⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 pldrsjdxshowsave.asp

📁 客户管理系统-支持 Ms Sql-Server
💻 ASP
字号:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>管理</title>
<LINK href="mainimages/style.css" type="text/css" rel="stylesheet">
<body >
</head>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td height="30" class="black12px"><strong>&nbsp;&nbsp;<font color="#003399">您现在的位置:</font></strong><font color="#003399">客户管理系统 <span class="nav">-&gt;</span> 用户中心 <span class="nav">-&gt;</span> 导入短信</font> </td>
    </tr>
</table>
  <TABLE id=data_table cellSpacing=0 cellPadding=3 width="100%" 
      bgColor=#dbeaf5 border=0>
    <TBODY>
      <TR>
        <TD height="20" align="left" valign="middle"><SPAN 
            class=blue12px><STRONG>&nbsp;&nbsp;&nbsp;</font></STRONG></SPAN></TD>
      </TR>
      <TR bgColor=#c1cdd8>
        <TD align=middle height=1></TD>
      </TR>
      <TR bgColor=#c1cdd8>
        <TD align=middle 
height=1></TD>
      </TR>
    </TBODY>
  </TABLE>
<!--#include file="hyyxlAdmin.asp"-->



<%
kfglsjdxbm=session("kfglsjdxbm")
   set conn=Server.CreateObject("ADODB.Connection")
   conn.open "driver={SQL Server};server=(local);uid=sa;pwd=yuanxl;database=piaoy" 
   recCnt=cint(request.form("recCnt")) 
   kfglid="'"&session("kfglid")&"'"
   xkfzb="'"&Request.Form("xkfzb")&"'"
   ls=request.form("ls")
for i=1 to recCnt
for fi=1 to ls
if fi mod ls = 0 then 
f = f &Request.Form("f"&fi&"")
else
f = f &Request.Form("f"&fi&"") & ","
End if
next
for sji=1 to ls
if sji mod ls = 0 then 
sj= sj& "'"&Request.Form("sj"&sji&"")(i) & "'"
else
sj= sj& "'"&Request.Form("sj"&sji&"")(i) & "',"
end if
next

 'response.write f
'response.write sj
'Response.Write "<br>"
Sql ="Insert into "&kfglsjdxbm&"(kfglid,xkfzb,"&f&")values("&kfglid&","&xkfzb&","&sj&")"


for cfi=1 to ls
cff = Request.Form("f"&cfi&"")
'Response.Write cff
if Ubound(split(f,cff))>1 then%><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#fff7e5">
  <tr>
    <td><%
response.write "<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.write "<br><br><br><br><br><br>"%>&nbsp;</td>
  </tr>
</table>
<TABLE id=data_table cellSpacing=0 cellPadding=3 width="100%" 
      bgColor=#dbeaf5 border=0>
  <TBODY>
    <TR>
      <TD height="20" align="left" valign="middle"></TD>
    </TR>
    <TR bgColor=#c1cdd8>
      <TD align=middle height=1></TD>
    </TR>
    <TR bgColor=#c1cdd8>
      <TD align=middle 
height=1></TD>
    </TR>
  </TBODY>
</TABLE><%response.end 
end if
cf=""
next
sj =""
f =""


 Conn.execute(sql)
next
 %>
 
 <html>
<head>
<meta http-equiv="refresh" content="1;url=allsjdx.asp?kfglid=<%=kfglid%>&xkfzb=all">
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="mainimages/style.css" type="text/css" rel="stylesheet">



<body>


<table width="100%" border="0" align=center cellspacing="1" bgcolor="#fff7e5">
<tr>
<td width="100%" align="center">
<p>&nbsp;</p>
<p>导入客户资料成功,共导入<%=recCnt%>条!</p>
<p>&nbsp;</p>
</td>
</tr>
</table>
<TABLE id=data_table cellSpacing=0 cellPadding=3 width="100%" 
      bgColor=#dbeaf5 border=0>
  <TBODY>
    <TR>
      <TD height="20" align="left" valign="middle"></TD>
    </TR>
    <TR bgColor=#c1cdd8>
      <TD align=middle height=1></TD>
    </TR>
    <TR bgColor=#c1cdd8>
      <TD align=middle 
height=1></TD>
    </TR>
  </TBODY>
</TABLE>
</body>
</html>

⌨️ 快捷键说明

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