📄 saveadd.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("admin")<>"ok" then
response.write "对不起，你没有管理权限。<a href='login.asp'>请登录</a>后再操作"
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>念青迷你下载统计系统</title>
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body background="images/bg.jpg">
<table width="90%" border="0" align="center">
<tr>
<td valign="top"><table border="0" cellpadding="0" cellspacing="0" width="100%" align="left">
<tr>
<td width="100%" valign="top" align="left"><table width="100%" border="1" bordercolor="#FFFFCC">
<tr>
<td align="center" class="toptitlenew">
<span class="subjecttitle">念青迷你下载系统</span><br>
<br>
<table width="80%" border="1" align="center" cellpadding="0" cellspacing="0" bgcolor="EBF1F6">
<tr>
<td bordercolordark="#ffffff" bordercolorlight="#000000"><table width="100%" border="1" cellpadding="0" cellspacing="0" bgcolor="EBF1F6">
<tr>
<td bordercolordark="#ffffff" bordercolorlight="#000000"><table width="100%" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td width="5%" height="16"><div align="center"><img src="../arrow2.gif" width="8" height="20"></div></td>
<td class="font1"><div align="center"><a href="index.asp" class="font1">首页</a> <a href="add.asp" class="font1">添加软件</a> <a href="edit.asp" class="font1">修改删除</a>
<a href="userpass.asp" class="font1">修改用户密码</a> <a href="logout.asp" class="font1">退出</a> <a href="help.htm" class="font1">帮助</a></div></td>
<td width="11%"><a href="index.asp" class="toptitlenew"><<<</a></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<br>
<br>
<%
set rs=server.createobject("adodb.recordset")
if request("action")="add" then
call newsoft()
elseif request("action")="edit" then
call editsoft()
end if
sub newsoft()
sql="select * from download"
rs.open sql,conn,1,3
rs.addnew
if request.form("soft")="" then
response.write "软件名不能为空，请<a href='javascript:onclick=history.go(-1)'>返回</a>重新输入"
response.end
end if
if request.form("downurl")="" then
response.write "软件下载地址不能为空，请<a href='javascript:onclick=history.go(-1)'>返回重新输入</a>"
response.end
end if
soft=request.form("soft")
rs("soft")=soft
ver=request.form("ver")
rs("ver")=ver
size=request.form("size")
rs("size")=size
system=request.form("system")
rs("system")=system
home=request.form("home")
rs("home")=home
downurl=request.form("downurl")
rs("downurl")=downurl
resum=request.form("resum")
resum=replace(resum,vbcrlf,"<br>")
rs("resum")=resum
hits=0
rs("hits")=hits
rs.update
response.write "软件添加成功。<a href='add.asp'>继续添加</a>|<a href='index.asp' target='_blank'>返回首页</a>"
end sub
sub editsoft()
dim softid
softid=request("id")
if isnumeric(softid)=0 or softid="" then
response.write ""
response.end
end if
sql="select * from download where id="&request("id")
rs.open sql,conn,1,3
if request.form("soft")="" then
response.write "软件名不能为空，请<a href='javascript:onclick=history.go(-1)'>返回重新输入</a>"
response.end
end if
if request.form("downurl")="" then
response.write "软件下载地址不能为空，请<a href='javascript:onclick=history.go(-1)'>返回重新输入</a>"
response.end
end if
soft=request.form("soft")
rs("soft")=soft
ver=request.form("ver")
rs("ver")=ver
size=request.form("size")
rs("size")=size
system=request.form("system")
rs("system")=system
home=request.form("home")
rs("home")=home
downurl=request.form("downurl")
rs("downurl")=downurl
resum=request.form("resum")
resum=replace(resum,vbcrlf,"<br>")
rs("resum")=resum
rs.update
response.write "软件修改成功。<a href='edit.asp'>继续修改/删除</a>|<a href='index.asp' target='_blank'>返回软件下载首页</a>"
end sub
%>
<%
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
<p align="center"><div align=center><table border=0 cellpadding=0 cellspacing=0>
<iframe name="nq" src="bq.asp" width="350" height="68" frameborder="0"></iframe>
</table></div></td>
</tr>
</table> </td>
<td width="60" valign="top" align="left"><a href="http://input.foruto.com/nianqing" border=0><img src="images/logo.gif" width="58" height="243" border="0" target=blank></a></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -