📄 sys_updownload.asp

📁 直接解压即可都是asp源码超经典的啊
💻 ASP
字号:


<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<% 
id=session("userid")
username=session("username")
if id="" or username="" then
response.Redirect("adminloginerror.asp")
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from adminuser where username='"& username &"' and id=" & id &""
rs.open sql,conn,3,3
if rs.eof then
response.Redirect("adminloginerror.asp")
else
downloadid=request.querystring("id")
set rs=server.createobject("adodb.recordset")
sql="select * from download where id="&downloadid&""
rs.open sql,conn,3,3
%>
<html>

<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" type="text/css">

<body bgcolor="#FFFFFF" text="#000000">
<div align="center">
  <center>
<table width="80%" border="1" cellpadding="3" cellspacing="0" bordercolor="#6687BA" bgcolor="#EAF1FB" style="border-collapse: collapse">
  <tr bordercolor="#FFFFFF"> 
    <td width="25%"><div align="center"><a href="sys_addaffiche.asp">首页公告管理</a></div></td>
    <td width="25%"><div align="center"><a href="sys_addbank.asp">付款事项管理</a></div></td>
    <td width="25%"><div align="center"><a href="sys_adddownload.asp">常用软件管理</a></div></td>
    <td width="25%"><div align="center"><a href="sys_addproblemtyp.asp">常见问题管理</a></div></td>
  </tr>
</table>
  </center>
</div>
<br>

<% if request.querystring("cmd")="add" then
downloadtop=request.form("downloadtop")
download=request.form("download")
shouming=request.form("shouming")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from download where id="& request.querystring("id")&""
rs.open sql,conn,3,3
rs("downloadtop")=downloadtop
rs("download")=download
rs("shouming")=shouming
rs("date")=date()
rs.update
end if
%>
<div align="center">
  <center>
<table width="80%" border="1" cellspacing="0" cellpadding="5" bordercolor="#6687BA" bgcolor="#EAF1FB" style="border-collapse: collapse">
  <form name="form" method="post" action="sys_updownload.asp?cmd=add&id=<%=downloadid%>">
  <tr>
      <td> 
        <div align="center" class="f1" >常 用 软 件 添 加</div>
    </td>
  </tr>
  <tr>
      <td bgcolor="#FFFFFF" bordercolor="#FFFFFF"> 
        <div align="center">软件名称：   
          <input name="downloadtop" type="text" id="downloadtop" value="<%=rs("downloadtop")%>" size="40">
          <br>
          <br>
          下载地址：   
          <input name="download" type="text" id="download" value="<%=rs("download")%>" size="40">
          <br>
          <br>
          软件说明：   
          <textarea name="shouming" cols="40" rows="5" id="shouming"><%=rs("shouming")%></textarea>
        </div>
    </td>
  </tr>
  <tr>
      <td bgcolor="#FFFFFF" bordercolor="#FFFFFF"> 
        <div align="center">
        <input type="submit" name="Submit" value="修改">
        <input type="reset" name="Submit2" value="重写">
      </div>
    </td>
  </tr>
  </form>
</table>
  </center>
</div>
<br>

<br>
<br>

</body>
</html>
<%
set rs=nothing
end if
%><% set conn=nothing %>
⌨️ 快捷键说明

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