📄 reupmb.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 "index.asp"
end if
mbid=request("mbid")
filepath=request("fp")
zyyear=request("zyyear")
zyid=request("zyid")
filename=request("fn")
%>
<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="500" 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>
      <form method="post" action="resavemb.asp" name="reg" enctype="multipart/form-data">
        本地文件：
<input type="file" name="sf_file" size="32" onpropertychange="fname.value=findname(this.value)">
<br><font color=red>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;注：选择本地文件将覆盖原有模板文件。</font>
        <input type=hidden name="filepath" value="<%=filepath%>">
        <input type=hidden name="mbid" value="<%=mbid%>"><br><br>
模板名称：&nbsp;<input type=text name="mbmc" size=42 value="<%=filename%>"><br>
作用企业：
<%
lbarr=split(zyid,",")
set rs=server.createobject("adodb.recordset")
sql="select * from qylb order by id"
rs.open sql,conn,1,1
if not rs.eof then
while not rs.eof
%>
<input type="checkbox" name="lbid" value="<%=rs("lbid")%>" 
<%
for k=0 to ubound(lbarr)-1
if rs("lbid")=left(lbarr(k),4) then
%>
checked
<%
end if
next
%>
><%=rs("cotype")%>&nbsp;&nbsp;
<%
rs.movenext
wend
end if
%>
<br>
作用年度：
<%
idArr=split(zyyear,",")
for i=2006 to 2010
%>
<input type=checkbox name="zyyear" value="<%=i%>" 
<%for j=0 to ubound(idArr)-1
if i=int(left(idArr(j),4)) then
%>
checked
<%
end if
next
%>
><%=i%>年&nbsp;
<%next%>
        <br><br>
<div align=center>
<input class=button9 type="submit" name="Submit" value="更新模板">&nbsp;
        <input class=button9 type="reset" name="reset" value="重新选择"></div>
        <br></center>
      </form>
    </td>
  </tr>
</table>
<script language=vbscript>
function reg_Onsubmit()
scfile=document.reg.sf_file.value
mbid=document.reg.mbid.value
fp=document.reg.filepath.value
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 biaoti="" then
        msgbox "必须填写模板名称！"
        reg_onsubmit=false
        exit function
elseif zyid="" or zyyear="" then
        msgbox "必须选择作用企业和年度！"
        reg_onsubmit=false
        exit function
else
document.reg.action="resavemb.asp?scfile="&scfile&"&mbid="&mbid&"&biaoti="&biaoti&"&zyyear="&zyyear&"&zyid="&zyid&"&fp="&fp
end if
end function
</script>
</body>
</html>
⌨️ 快捷键说明

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