回 帖 发 新 帖 刷新版面

主题:新手求救

1.      sql="select count(ID) from Software where Hidden=false and    PostType="&newtype&"" 
2.     dim OldWeek,NewWeek
OldWeek = WeekDay(Date())-1                                                                                     
If OldWeek = 0 Then OldWeek = 7                                                                                     
OldWeek = Date()-OldWeek                                                                                     
NewWeek = Date()+(9-WeekDay(Date()))    
3.    dim errmsg,founderr
founderr=false

if CheckUser=false or UserPower(2)="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)>30 then
    founderr=true
    errmsg=errmsg+"<li>关键字不能大于30个字符</li>"
end if

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

if URL="" 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,Brief,Picture,Best,ClassID,Poster,PostType,Point) values ('"&FileName&"','"&Info&"',"&Grade&",'"&Keyword&"','"&URL&"','"&Chinese&"','"&Crack&"','"&Brief&"','"&Picture&"',"&Best&","&ClassID&",'"&Request.Cookies("ydxz")("usr")&"',1,'0,0,0,0,0')")
各位大哥,帮忙解释一下上面代码的意思,多谢了

回复列表 (共1个回复)

沙发

WeekDay()和Date()都什么样子啊

我来回复

您尚未登录,请登录后再回复。点此登录或注册