soft_add_save.asp

欢迎使用《雨点下载系统 2.0》！ 本系统仅提供给个人网站免费使用

<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="chkadmin.asp"-->
<!--#include file="inc/char.asp"-->
<%dim ClassID,FileName,FileSize,RunSystem,Grade,FTP,FtpFile,URL,Chinese,Crack
dim Brief,LinkText,LinkURL,SmallImage,BigImage,Best,Hidden,Member,Keyword
ClassID=CInt(Trim(Request.Form("ClassID")))
FileName=Trim(Request.Form("FileName"))
Keyword=Trim(Request.Form("Keyword"))
FileSize=Trim(Request.Form("FileSize"))
RunSystem=Trim(Request.Form("RunSystem"))
Grade=CInt(Trim(Request.Form("Grade")))
FTP=Trim(Request.Form("FTP"))
FtpFile=Trim(Request.Form("FtpFile"))
URL=Trim(Request.Form("URL"))
Chinese=Trim(Request.Form("Chinese"))
Crack=Trim(Request.Form("Crack"))
Brief=RTrim(Request.Form("Brief"))
LinkText=Trim(Request.Form("LinkText"))
LinkURL=Trim(Request.Form("LinkURL"))
SmallImage=Trim(Request.Form("SmallImage"))
BigImage=Trim(Request.Form("BigImage"))
SmallImage=Trim(Request.Form("SmallImage"))
Best=Trim(Request.Form("Best"))
Hidden=Trim(Request.Form("Hidden"))
Member=Trim(Request.Form("Member"))

dim Info,Picture,FtpDown
Info=FileSize&"|"&RunSystem&"|"&LinkText&"|"&LinkURL
Picture=SmallImage&"|"&BigImage
if FtpFile<>"" then FtpDown=FTP&"|"&FtpFile else FtpDown="" end if
if SmallImage<>"" then Picture=SmallImage&"|"&BigImage else Picture="" end if
if Best="" then Best=false end if
if Hidden="" then Hidden=false end if
if Member="" then Member=false end if

dim errmsg,founderr
founderr=false

if chkadmin=false or power(0)="0" then
	founderr=true
	errmsg=errmsg+"<li>您没有添加软件的权限</li>"
end if

if FileName="" then
	founderr=true
	errmsg=errmsg+"<li>软件名称不能为空</li>"
elseif strlen(FileName)>80 then
	founderr=true
	errmsg=errmsg+"<li>软件名称不能大于80个字符</li>"
end if

if Keyword="" then
	founderr=true
	errmsg=errmsg+"<li>关键字不能为空</li>"
elseif strlen(Keyword)>40 then
	founderr=true
	errmsg=errmsg+"<li>关键字不能大于40个字符</li>"
end if

if FileSize="" then
	founderr=true
	errmsg=errmsg+"<li>软件大小不能为空</li>"
end if

if URL="" and FtpFile="" then
	founderr=true
	errmsg=errmsg+"<li>下载地址不能为空</li>"
end if

if founderr=false then
	conn.execute("insert into Software (FileName,Info,Grade,Keyword,URL,Chinese,Crack,FtpDown,Brief,Picture,Best,Hidden,Member,ClassID,Poster,PostType,Point) values ('"&FileName&"','"&Info&"',"&Grade&",'"&Keyword&"','"&URL&"','"&Chinese&"','"&Crack&"','"&FtpDown&"','"&Brief&"','"&Picture&"',"&Best&","&Hidden&","&Member&","&ClassID&",'"&session("adm_usr")&"',0,'0,0,0,0,0')")
	conn.execute("update UserInfo set Point=Point+"&PostPoint&" where USR='"&session("adm_usr")&"'")
	dim gourl,msg
	gourl="soft_nav.asp"
	msg="软件添加成功！"
	call ok()
else
	call error()
end if

conn.close
set conn=nothing
%>