📄 pldrsjdxshow.asp
字号:
<!--#include file="hyyxlAdmin.asp"-->
<form id="form1" name="form1" method="post" action="pldrsjdxshowsave.asp">
<LINK href="mainimages/style.css" type="text/css" rel="stylesheet">
<body bgColor="#fff7e5" leftMargin="0" topMargin="0" rightMargin="0" MS_POSITIONING="GridLayout">
<%Dim conn
Dim StrConn
Dim Rs
Dim Sql
Dim i
Dim ExName
excelfile="sjdxexcelup/"&session("kfglid") '指定excel文件名
set excelconn=server.createobject("adodb.connection")
excelconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & Server.MapPath(excelfile)&";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
set rs3= Server.CreateObject("ADODB.Recordset")
set rs3 = excelconn.OpenSchema(20)
op=rs3("TABLE_NAME")
Set conn =Server.CreateObject("ADODB.Connection")
StrConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(excelfile)&";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
conn.Open StrConn
Set rs = Server.CreateObject("ADODB.Recordset")
Sql="select * from ["&op&"]"
rs.Open Sql,conn,3,3
%>
<!--#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")
%>
<%
kfglid=session("kfglid")
sqlfzb = "select * from "&kfglfzbm&" where kfglid=" &kfglid&" order by fzbid desc"
Set rsfzb = Server.CreateObject("ADODB.RecordSet")
rsfzb.Open sqlfzb,conn,1,2
%>
<%
recordcountff=rs.RecordCount
if rs.RecordCount>1000 then%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" class="black12px"><strong> <font color="#003399">您现在的位置：</font></strong><font color="#003399">客户管理系统 <span class="nav">-></span> 用户中心 <span class="nav">-></span> 导入短信 </font> </td>
</tr>
</table>
<TABLE width="100%" border=0 align="center" cellPadding=3 cellSpacing=0
bgColor=#dbeaf5 id=data_table>
<TBODY>
<TR>
<TD height="20" align="left" valign="middle"><SPAN
class=blue12px><STRONG> <font color="#336699">批量导入短信</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><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#fff7e5">
<tr>
<td><%
response.write "<br><br><br><br><br>"
response.write "<div align='center'>一次导入的数据不能超过<font color='red'>一千</font>条，此次导入Excel文件中共有 <font color='red'>"
response.write recordcountff+1
response.write "</font> 条，超出 <font color='red'>"
response.write recordcountff+1-1000
response.write "</font> 条，请返回<font color='red'>修改Excel文件</font>！<a href='javascript:history.go(-1)'>退回上一步</a></div>"
response.write "<br><br><br><br>"
%> </td>
</tr>
</table>
<TABLE width="100%" border=0 align="center" cellPadding=3 cellSpacing=0
bgColor=#dbeaf5 id=data_table>
<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
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" class="black12px"><strong> <font color="#003399">您现在的位置：</font></strong><font color="#003399">客户管理系统 <span class="nav">-></span> 用户中心 <span class="nav">-></span> 导入短信 </font> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" align="center" valign="middle"><TABLE width="100%" border=0 align="center" cellPadding=3 cellSpacing=0
bgColor=#dbeaf5 id=data_table>
<TBODY>
<TR>
<TD height="20" align="left" valign="middle"><SPAN
class=blue12px><STRONG> <font color="#336699">批量导入短信</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> </td>
</tr>
<tr>
<td> 根据下表每列的内容选择对应的字段名称！例如：下表列出的“F1”列为姓名，则在表上面的“F1=”位置处选择“姓名”。意思是“F1”列的内容为客户姓名！以下以此类推！ </td>
</tr>
</table>
<p align="center">
<input name="xkfzb" type="hidden" id="xkfzb" value="0">
<input type=submit value=导入客户资料 class=button style="COLOR: #ffcc33"></p>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border=0 align=center cellspacing=1 bgcolor="#dbeaf5">
<tr>
<td height="30"><table border=0 align=center cellspacing=1>
<tr align=center>
<%
for ii=1 to rs.Fields.Count
%>
<td width="145" align="left" valign="middle">
F<%=ii%><select name="F<%=ii%>" id="F<%=ii%>">
<option value="sjdxbdwmc">单位名称</option>
<option value="sjdxbxm">姓名</option>
<option value="sjdxbsjh">手机</option>
<option value="sjdxbdxnr">短信内容</option>
</select></td>
<%Next %>
<input name="ls" type="hidden" id="ls" value="<%=rs.Fields.Count%>">
<input name="recCnt" type="hidden" id="recCnt" maxlength="1" value="<%=rs.RecordCount%>">
<input name="kfglid" type="hidden" id="kfglid" maxlength="1" value="<%=kfglid%>">
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td>
<div align="center"><span class="STYLE2"><br />
<span class="STYLE2"><strong>如有不正确请现在修改！</strong></span></span></div>
<table border=0 align=center cellspacing=0>
<tr >
<%for i=0 to rs.Fields.Count-1 %>
<td width="145" align="center">
<select>
<option value="F<%=i+1%>">请选择F<%=i+1%></option>
</select>
</td>
<%Next %>
</tr>
</table></td>
</tr>
<tr >
<td><table align=center cellspacing=0 >
<tr ><td align=center >
<%do while not rs.eof
for i=0 to rs.Fields.Count-1
if i mod rs.Fields.Count = 0 then
Response.Write "<br>"
px=px+1
Response.Write " "
Response.Write px
End if
%>
<input name=sj<%=i+1%> value="<%=Rs(i)%>" size="10" >
<%
next
rs.MoveNext
Loop%>
</td></tr></table>
<br />
</td>
</tr>
<tr bgcolor="#dbeaf5">
<td><table border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td height="30" align="center" valign="middle"><input type=submit value=导入客户资料 class=button style="COLOR: #ffcc33"></td>
</tr>
</table></td>
</tr>
</table>
</form>
<%
rs.close
set rs=nothing
conn.close
set StrConn=nothing
Response.End
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -