如有任何问题或建议请发email:chenxingbai@21cn.com 生成表结构的脚本 if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[yingpin]') and OBJECTPROPERTY(id, N'IsUserTable') = 1) drop table [dbo].[yingpin] GO
ALTER TABLE [dbo].[yingpin] WITH NOCHECK ADD CONSTRAINT [DF_yingpin_shijian] DEFAULT (getdate()) FOR [shijian], CONSTRAINT [PK_yingpin] PRIMARY KEY CLUSTERED ( [id] ) ON [PRIMARY] GO
Asp脚本addyp.asp
<% if request("action")="add" then dim str,strvalue,strname,i,str1 str="yp_name,sex,birthday,health,hunyin,zhengzhi,xueli,zhicheng,english,email,phone,yp_address,zip,colledge,zhuanye,bumen,gangwei1,gangwei2,x_shijian,x_address,x_zhiwu,g_shijian,g_address,g_zhiwu,h_name,h_guanxi,h_danwei,h_zhiwu,pingjia,shexiang,beizhu" str1="x_shijian,x_address,x_zhiwu,g_shijian,g_address,g_zhiwu,h_name,h_guanxi,h_danwei,h_zhiwu" strname=split(str,",")
for i=lbound(strname) to ubound(strname) if i<>ubound(strname) then if instr(str1,strname(i))=0 then if trim(request.Form(strname(i)))="" then response.write "" response.End() end if sql=sql&"'"&trim(request.Form(strname(i)))&"'," else j=1 much=trim(request.Form(cstr(strname(i)&j))) for j=2 to 5 much=much&"|"&trim(request.Form(cstr(strname(i)&j))) next sql=sql&"'"&much&"'," end if else if trim(request.Form(strname(i)))="" then response.write "" response.End() end if sql=sql&"'"&trim(request.Form(strname(i)))&"'" end if next sql="insert into yingpin ("&str&") values ("&sql&")"
conn.Execute(Sql) if Err <> 0 Then response.write ""