📄 upfile.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("flag")>2 then
		response.write "<br><p align=center>您没有操作的权限</p>"
		response.end
	end if
jinn=int(year(now()))
xyear=request("year")
if xyear<>"" then
jinn=int(xyear)
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="600" 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><hr size=1></center>
      <form method="post" action="savefile.asp" name="reg" enctype="multipart/form-data">
        所属年: <select name="zyyear" size=1 onchange="location.href='?year='+this.options[this.options.selectedIndex].value">

<%
for y=2005 to 2010
%>
<option value="<%=y%>" <%if y=jinn then%>selected<%end if%>><%=y%></option>
<%
next
%>
</select>
        所属月: <select name="zymon" size=1>
<%
for m=1 to 12
%>
<option value="<%=m%>" <%if m=int(month(now())) then%>selected<%end if%>><%=m%></option>
<%
next
%>
</select>
<br><br>上传文件名：
<%
set rs=server.createobject("adodb.recordset")
sql="select * from moban where lbid like '%"&session("lbid")&","&"%' and year like '%"&jinn&"%'order by id desc"
rs.open sql,conn,1,1
if not rs.eof then
%>
<select name="biaoti" size=1>
<%
while not rs.eof
%>
<option value="<%=rs("filename")%><%=rs("filepath")%>"><%=rs("filename")%></option>
<%
rs.movenext
wend
%>
</select>&nbsp;--->&nbsp;<input type=button value="下载对应模板文件" id="downmb" class="button9">
<%
else
response.write "<font color=red>暂无需要上传的文件("&jinn&"年度)!请等待相关文件模板出台。</font>"
response.end
end if
%>
<br><br>
        本地文件名： 
<input type="file" name="sf_file" size="36" onpropertychange="fname.value=findname(this.value)">

<br><br><center>
        <input type="submit" name="Submit" value="开始上传" class="button9">&nbsp;&nbsp;
        <input type="reset" name="reset" value="重新选择" class="button9">
        <br></center>
      </form>
    </td>
  </tr>
</table>
<script language=vbscript>
function downmb_onclick()
fn=document.reg.biaoti.value
ft=left(fn,instr(fn,"lytax")-1)
fn=mid(fn,instr(fn,"lytax"))
document.location="showmb.asp?ft="&ft&"&fn="&fn
end function

function reg_Onsubmit()
if document.reg.sf_file.value="" then
	msgbox "必须选择需要上传的文件！"
	reg_onsubmit=false
	exit function
else
zyyear=document.reg.zyyear.value
zymon=document.reg.zymon.value
fn=document.reg.biaoti.value
biaoti=left(fn,instr(fn,"lytax")-1)
document.reg.action="savefile.asp?biaoti="&biaoti&"&zyyear="&zyyear&"&zymon="&zymon
end if
end function
</script>
</body>
</html>
⌨️ 快捷键说明

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