📄 upmoban.asp

📁 关于网络渗透技术的详细讲解
💻 ASP
字号:
<!--#include file=conn.asp-->
<script language="javascript">
var fname='';
function findname(vl)
{var no0=vl.lastIndexOf("\\");
 var no1=vl.lastIndexOf(".");
 var no2=vl.indexOf(":");
 if (no0==-1 || no1==-1 || no2!=1 || no0>no1) return ;
 var fname=vl.substr(no0+1); 
return fname;
}
</script>
<%
  if session("username")="" then
  response.redirect "admin.asp"
  else
	if session("flag")<>1 then
		response.write "<br><p align=center>您没有操作的权限</p>"
		response.end
	end if
  end if
%>
<html>
<head>
<title>上传文件</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../images/style.css">
<style type="text/css">
<!--
@import url("wsbs.css");
-->
</style>
</head>

<body bgcolor=#ccccff>
<br><br>
<table width="520" border="0" align="center" cellpadding="3">
  <tr align="center" valign="middle"> 
<td align="left">
<center><b><font color=red style='font-size:14px'>办税模板文件上传</font></b></center>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from qylb order by id"
rs.open sql,conn,1,1
if rs.eof then
%>
<br><br><center><font style='font-size:14px'>未定义企业类别，新增后重试。</font></center>
<%
response.end 
else
%>
      <form method="post" action="savemoban.asp" name="reg" enctype="multipart/form-data">
        本地文件：&nbsp;<input type="file" name="sf_file" size="32" onpropertychange="fname.value=findname(this.value)">
<br><br>
模板名称：&nbsp;<input type=text name="mbmc" size=42><br>
作用企业：
<%while not rs.eof%>
<input type="checkbox" name="lbid" value="<%=rs("lbid")%>"><%=rs("cotype")%>&nbsp;&nbsp;
<%
rs.movenext
wend
end if
%>
<br>作用年度：
<%
for i=2006 to 2010
%>
<input type="checkbox" name="zyyear" value="<%=i%>" <%if i=int(year(now())) then%>checked<%end if%>><%=i%>年&nbsp;&nbsp;
<%
next
%>

<br><br><center>
        <input class=button9 type="submit" name="Submit" value="开始上传">
        <input class=button9 type="reset" name="reset" value="重新选择">
        <br></center>
      </form>
    </td>
  </tr>
</table>
<script language=vbscript>
function reg_Onsubmit()
biaoti=document.reg.mbmc.value
for each ob in document.reg.lbid
if ob.checked then zyid=zyid&ob.value&","
next
for each ob in document.reg.zyyear
if ob.checked then zyyear=zyyear&ob.value&","
next
if document.reg.sf_file.value="" then
	msgbox "必须选择需要上传的文件！"
	reg_onsubmit=false
	exit function
elseif biaoti="" then
        msgbox "必须填写模板名称！"
        reg_onsubmit=false
        exit function
elseif zyid="" or zyyear="" then
        msgbox "必须选择作用企业和年度！"
        reg_onsubmit=false
        exit function
else
document.reg.action="savemoban.asp?biaoti="&biaoti&"&zyyear="&zyyear&"&zyid="&zyid
end if
end function
</script>
</body>
</html>
⌨️ 快捷键说明

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