📄 pldcschmdc.asp

📁 客户管理系统-支持 Ms Sql-Server
💻 ASP
字号:
<%kfglid=request("kfglid")%>

<%

kfglscsjbm=session("kfglscsjbm")
%>
<LINK href="mainimages/style.css" type="text/css" rel="stylesheet">

<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
-->
</style><body bgColor="#fff7e5" leftMargin="0" topMargin="0" rightMargin="0" MS_POSITIONING="GridLayout">


<%


if  request.form("chkGroup_Id")="" then 
response.write "<br><br><br><br><br><br><br><br><br><br><br><br>"
 response.write " <div align='center'><font color='red'>至少选择一个组名！</font><a href='javascript:history.go(-1)'>退回上一步！</a></div>"

response.end 
end if
excelfile="exceldc/"&session("kfglid")&".xls" 
set fso=Server.CreateObject ("Scripting.FileSystemObject")
 fpath=Server.MapPath(excelfile)
 if fso.FileExists(fpath) then
 whichfile=Server.MapPath(excelfile)
				  Set fs = CreateObject("Scripting.FileSystemObject")
				  Set thisfile = fs.GetFile(whichfile)
				  thisfile.delete true
dim excelfile,tbname



end if

           
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")








if request.form("chkGroupSelectAll")<>"" then
fzb="1+1=2"
else
lss=request.form("chkGroup_Id").count
for fzbi=1 to request.form("chkGroup_Id").count

chkGroup_Id=request("chkGroup_Id")(fzbi)
if fzbi mod lss = 0 then 


fzb=fzb&" xkfzb="&chkGroup_Id
else

fzb=fzb&" xkfzb="&chkGroup_Id&" or"
End if



next

end if






set conna=Server.CreateObject("ADODB.Connection")
conna.open "driver={SQL Server};server=(local);uid=sa;pwd=yuanxl;database=piaoy" 
sqla = "select * from "&kfglscsjbm&" where kfglid="&kfglid&" and "&fzb&" order by sjhmbbx desc"
'response.write  sqla
Set rsa = Server.CreateObject("ADODB.RecordSet")
rsa.Open sqla,conna,1,1

'response.write b
sql="Create table hfchinaec(手机 int)"
'response.write sql
conn.Execute(sql)






do while not rsa.eof










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



bc ="Insert into hfchinaec(手机)values("&bcsj&")"
'response.write bc
conn.Execute(bc)
rsa.MoveNext
bcsj=""
Loop
rsa.close

response.Redirect "pldcschmdcfh.asp"


%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -