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

📄 pldrsjdxupload2.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>

<!--#include file="upload_5xsoft.inc" -->
<!--#include file="hyyxladmin.asp"-->
<%excelup=session("kfglid")%>
<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 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>&nbsp;&nbsp;&nbsp;&nbsp;<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>

<%
set upload=new upload_5xsoft
set file=upload.file("sf_upfile")
if file.fileSize<1 then

  %>
  <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#fff7e5">
  <tr>
    <td><%response.write "<br><br><br><br><br><br>"
 response.write "<div align='center'>错误:请选择文件! <a href='javascript:history.go(-1)'>退回上一步</a></div>"
 response.write "<br><br><br><br><br>"%>&nbsp;</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
upfilename = split(file.FileName,".")
upfileext = upfilename(ubound(upfilename))
if upfileext<>"xls" and upfileext<>"XLS"   then

    %>
	<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#fff7e5">
  <tr>
    <td><%response.write "<br><br><br><br><br><br>"
 response.write "<div align='center'>错误:请选择Excel文件! <a href='javascript:history.go(-1)'>退回上一步</a></div>"
 response.write "<br><br><br><br><br>"
 %>&nbsp;</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
ufp=""&excelup&"."&upfilename(ubound(upfilename))
lx=upfilename(ubound(upfilename))
file.saveas Server.mappath("sjdxexcelup/"&ufp)
response.Redirect "pldrsjdxshow.asp"
%>

<%
set file=nothing
set upload=nothing
%>
</body></html>

⌨️ 快捷键说明

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