saveadd.asp

超简单的下载系统

<!--#include file="conn.asp"-->
<%
if session("admin")<>"ah" then
response.write "对不起！你的权限不够.<a href='login.asp'>请登录</a>后再操作"
response.end
end if
%>
<%
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("downname")="" then
response.write "软件名不能为空<a href='javascript:onclick=history.go(-1)'>返回</a>"
response.end
end if
if request.form("downaddress1")="" then
response.write "软件下载地址不能为空<a href='javascript:onclick=history.go(-1)'>返回</a>"
response.end
end if
if request.form("downjjie")="" then
response.write "软件简介不能为空<a href='javascript:onclick=history.go(-1)'>返回</a>"
response.end
end if
if request ("downtjian")="1" then
rs("downtjian")="1"
elseif request("downtjian")="2" then
rs("downtjian")="2"
elseif request("downtjian")="3" then
rs("downtjian")="3"
elseif request("downtjian")="4" then
rs("downtjian")="4"
elseif request("downtjian")="5" then
rs("downtjian")="5"
end if
downname=request.form("downname")
rs("downname")=downname
downnbie=request.form("downnbie")
rs("downnbie")=downnbie
downsize=request.form("downsize")
rs("downsize")=downsize
downsquang=request.form("downsquang")
rs("downsquang")=downsquang
downptai=request.form("downptai")
rs("downptai")=downptai
downhome=request.form("downhome")
rs("downhome")=downhome
downaddress1=request.form("downaddress1")
rs("downaddress1")=downaddress1
downaddress2=request.form("downaddress2")
rs("downaddress2")=downaddress2
downjjie=request.form("downjjie")
downjjie=replace(downjjie,vbcrlf,"<br>")
rs("downjjie")=downjjie
downhits=1
rs("downhits")=downhits
rs.update
response.write "软件添加成功<a href='addsoft.asp'>继续添加</a>|<a href='index.asp' target='_blank'>查看内容</a>"
end sub
sub editsoft()
dim idid
idid=request("id")
if isnumeric(idid)=0 or idid="" then
response.write "FUCK.......你想干什么! By----AH"
response.end
end if
sql="select * from download where id="&request("id")
rs.open sql,conn,1,3
if request.form("downname")="" then
response.write "软件名不能为空<a href='javascript:onclick=history.go(-1)'>返回</a>"
response.end
end if
if request.form("downaddress1")="" then
response.write "软件下载地址不能为空<a href='javascript:onclick=history.go(-1)'>返回</a>"
response.end
end if
if request.form("downjjie")="" then
response.write "软件简介不能为空<a href='javascript:onclick=history.go(-1)'>返回</a>"
response.end
end if
if request ("downtjian")="1" then
rs("downtjian")="1"
elseif request("downtjian")="2" then
rs("downtjian")="2"
elseif request("downtjian")="3" then
rs("downtjian")="3"
elseif request("downtjian")="4" then
rs("downtjian")="4"
elseif request("downtjian")="5" then
rs("downtjian")="5"
end if
downname=request.form("downname")
rs("downname")=downname
downnbie=request.form("downnbie")
rs("downnbie")=downnbie
downsize=request.form("downsize")
rs("downsize")=downsize
downsquang=request.form("downsquang")
rs("downsquang")=downsquang
downptai=request.form("downptai")
rs("downptai")=downptai
downhome=request.form("downhome")
rs("downhome")=downhome
downaddress1=request.form("downaddress1")
rs("downaddress1")=downaddress1
downaddress2=request.form("downaddress2")
rs("downaddress2")=downaddress2
downjjie=request.form("downjjie")
downjjie=replace(downjjie,vbcrlf,"<br>")
rs("downjjie")=downjjie
rs.update
response.write "软件修改成功<a href='editsoft.asp'>继续修改</a>|<a href='index.asp' target='_blank'>查看内容</a>"
end sub
%>
<%
rs.close
conn.close
set rs=nothing
set conn=nothing
%>