pldcsjdcbf.asp

客户管理系统-支持 Ms Sql-Server

<!--#include file="piaoy.inc"-->

<%
kfglzlbm=session("kfglzlbm")
kfglfzbm=session("kfglfzbm")
kfglsjdxbm=session("kfglsjdxbm")
kfglscsjbm=session("kfglscsjbm")
kfglgrdxkbm=session("kfglgrdxkbm")
kfgldxlsjlbm=session("kfgldxlsjlbm")
kfgldxlsjlxxbm=session("kfgldxlsjlxxbm")
kfglyfkjlbm=session("kfglyfkjlbm")
%>
<%
set fso=Server.CreateObject ("Scripting.FileSystemObject")
 fpath=server.MapPath ("piaoy.xls")
 if fso.FileExists(fpath) then
 whichfile=Server.MapPath("piaoy.xls")
				  Set fs = CreateObject("Scripting.FileSystemObject")
				  Set thisfile = fs.GetFile(whichfile)
				  thisfile.delete true
dim excelfile,tbname
end if

excelfile="piaoy.xls"             
Dim Driver,DBPath
Set conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};Readonly=0;"
DBPath = "DBQ=" & Server.MapPath(excelfile) 
conn.Open Driver & DBPath
set rs= Server.CreateObject("adodb.recordset")
ls=request.form("chkField").count
for i=1 to request.form("chkField").count
chkField=Request.Form("chkField")(i)
chkFielda=Request.Form("chkField")(i)
if i mod ls = 0 then 
b = b &chkField&" text"
bb = bb &chkField
else
b = b &chkField &" text"& ","
bb = bb &chkField & ","
End if

if i mod ls = 0 then 
sjb = sjb &chkFielda
if sjb="单位名称"then
sjb="xkfdwmc"
end if
if sjb="姓名"then
sjb="xkfxm"
end if
if sjb="尊称"then
sjb="xkfzc"
end if
if sjb="电话"then
sjb="xkfdh"
end if
if sjb="手机"then
sjb="xkfsj"
end if
if sjb="传真"then
sjb="xkfcz"
end if
if sjb="邮箱"then
sjb="xkfemail"
end if
if sjb="网址"then
sjb="xkfwz"
end if
if sjb="QQ"then
sjb="xkfqq"
end if
if sjb="地址"then
sjb="xkfdz"
end if
if sjb="邮编"then
sjb="xkfyb"
end if
if sjb="性别"then
sjb="xkfxb"
end if
if sjb="生日"then
sjb="xkfsr"
end if
if sjb="证件号"then
sjb="xkfzjh"
end if
if sjb="备注"then
sjb="xkfbz"
end if

else
sjb = sjb &chkFielda & ","
if sjb="单位名称,"then
sjb="xkfdwmc,"
end if
if sjb="姓名,"then
sjb="xkfxm,"
end if
if sjb="尊称,"then
sjb="xkfzc,"
end if
if sjb="电话,"then
sjb="xkfdh,"
end if
if sjb="手机,"then
sjb="xkfsj,"
end if
if sjb="传真,"then
sjb="xkfcz,"
end if
if sjb="邮箱,"then
sjb="xkfemail,"
end if
if sjb="网址,"then
sjb="xkfwz,"
end if
if sjb="QQ,"then
sjb="xkfqq,"
end if
if sjb="地址,"then
sjb="xkfdz,"
end if
if sjb="邮编,"then
sjb="xkfyb,"
end if
if sjb="性别,"then
sjb="xkfxb,"
end if
if sjb="生日,"then
sjb="xkfsr,"
end if
if sjb="证件号,"then
sjb="xkfzjh,"
end if
if sjb="备注,"then
sjb="xkfbz,"
end if

End if
aa=aa&sjb
sjb=""
next	
'response.write b
sql="Create table hfchinaec("&b&")"
'response.write sql
conn.Execute(sql)

set conna=Server.CreateObject("ADODB.Connection")
conna.open "driver={SQL Server};server=(local);uid=sa;pwd=yuanxl;database=piaoy" 
'response.write aa
sqla = "select "&aa&" from "&kfglzlbm&" "
'response.write sqla
Set rsa = Server.CreateObject("ADODB.RecordSet")
rsa.Open sqla,conna,1,1
do while not rsa.eof
'response.write aa


bcsj="'"&rsa(aa)&"'"

'response.write bcsj

bc ="Insert into hfchinaec("&bb&")values("&bcsj&")"
'response.write bc
'response.write "<br>"
bcsj=""

conn.Execute(bc)
rsa.MoveNext

Loop
'Response.Redirect "piaoy.xls"
%>