www.gusucode.com > 艺帆全站DIV+CSS体育用品公司网站源码 1.7.5源码程序 > i5808/add_download_pass.asp

    <!--#include file="../Conn.asp" -->
<!--#include file="seeion.asp" -->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from download"
rs.open sql,conn,1,3
title=request.form("title")
ssfl=request.form("ssfl")
yuyan=request.form("yuyan")
yxpt=request.form("yxpt")
daxiao=request.form("daxiao")
tjdj=request.form("tjdj")
danwei=request.form("danwei")
body=request.form("body")
url=request.form("img")
keywords=request.form("keywords")
description=request.form("description")
qx=request.form("qx")
if title=""  then 
response.Write("<script language=javascript>alert('下载名称不能为空!');history.go(-1)</script>") 
response.end 
end if
if yxpt=""  then 
response.Write("<script language=javascript>alert('请选择程序运行平台!');history.go(-1)</script>") 
response.end 
end if
if daxiao=""  then 
response.Write("<script language=javascript>alert('请填写程序大小!');history.go(-1)</script>") 
response.end 
end if
IF not isNumeric(request("daxiao")) then
response.write("<script>alert(""程序大小必须为数字！""); history.go(-1);</script>")
response.end
end if
if url=""  then 
response.Write("<script language=javascript>alert('下载地址不能为空!');history.go(-1)</script>") 
response.end 
end if
if body=""  then 
response.Write("<script language=javascript>alert('内容不能为空!');history.go(-1)</script>") 
response.end 
end if
rs.addnew
rs("title")=title
rs("ssfl")=ssfl
rs("yuyan")=yuyan
rs("yxpt")=yxpt
rs("daxiao")=daxiao
rs("tjdj")=tjdj
rs("danwei")=danwei
rs("body")=body
rs("url")=url
rs("keywords")=keywords
rs("description")=description
rs("qx")=qx
rs.update
rs.close
set rs=nothing
conn.close
set rs=nothing
Response.Write "<script>alert('下载增加成功！');window.location.href='add_download.asp';</script>" 
%>