action2.asp

来自「采用ASP。NET做的网上游戏交易平台」· ASP 代码 · 共 66 行

<!--#include file="dbconn.asp"-->
<!--#include file="isValidUser.asp"-->
<!--#include file = "sjcatstudio.inc"-->
<%
function getFileName(filestr)
	dim tmpformat
	tmpformat=split(filestr,".")
	getFileName="s"&replace(cstr(date()),"-","")&replace(cstr(time()),":","")&"."&tmpformat(1)
end function
'------------------------发布交易信息处理程序
redim myinfoArr(10)
dim upload,f,formElement,formFile,oldurl,newurl
set upload = new sjCat_Upload ''建立上传对象
myinfoArr(0)=upload.form("GAMENAME")
myinfoArr(1)=upload.form("GAMEAREA")
myinfoArr(2)=upload.form("sltType1")
myinfoArr(3)=upload.form("txtTitle")
myinfoArr(4)=upload.form("txtMemo")
myinfoArr(5)=upload.form("txtPrice")
myinfoArr(6)=upload.form("pt")
myinfoArr(7)=upload.form("rdoPic")
myinfoArr(8)=date()
myinfoArr(9)=upload.form("infoType")
if myinfoArr(0)="" or myinfoArr(1)="" then
Response.Write "<script language=javascript>" &vbCrLf&_
"alert('游戏名称和区服必须选择！！！');" &vbCrLf&_
" history.go(-1);" &vbCrLf&_
"</script>"
response.end
end if

if myinfoArr(4)="" then myinfoArr(4)="无说明"
if myinfoArr(7)=1 then
set f=upload.file("file")
myinfoArr(10)=f.FileSize
oldurl=f.FileName
if myinfoArr(10)>102400 then
Response.Write "<script language=javascript>" &vbCrLf&_
"alert('图片文件不能超过30K！！！');" &vbCrLf&_
" history.go(-1);" &vbCrLf&_
"</script>"
response.end
end if
if myinfoArr(7)=1 and  (oldurl="" or instr("jpgJPGgifGIF",right(oldurl,3))=0) then
Response.Write "<script language=javascript>" &vbCrLf&_
"alert('图片未选择或图片格式不对！！！');" &vbCrLf&_
"history.go(-1);"&vbCrLf&_
"</script>"
response.end
end if
newurl=getFileName(oldurl)
f.Save2File Server.mappath("uploadimages") & "\" &  newurl
newurl="uploadimages/"&newurl
else
newurl="images/14.gif"
end if
sql="insert into ziliao(pubID,gameName,gameService,tradeType,infoType,tradeTitle,tradeMemo,tradePrice,priceType,area,isPicture,url,pubDate,recommed) values('"&session("userID")&"','"&myinfoArr(0)&"','"&myinfoArr(1)&"',"&myinfoArr(2)&","&myinfoArr(9)&",'"&myinfoArr(3)&"','"&myinfoArr(4)&"',"&myinfoArr(5)&","&myinfoArr(6)&",'"&session("area")&"',"&cint(myinfoArr(7))&",'"&newurl&"','"&myinfoArr(8)&"','')"
conn.execute(sql)
'response.write sql
'response.end
Response.Write "<script language=javascript>" &vbCrLf&_
"alert('交易信息发布成功\n点确定继续发布！！！');" &vbCrLf&_
"window.location='pubInfo.asp';" &vbCrLf&_
"</script>"

%>