recheck.asp

本程序采用花香内核

rs.open sql,conn,1,3
rs.addnew
dim soft_name,soft_size,soft_mode,roof,commend,demo,home,showpic,desc,url1,softtjuser
soft_name=trim(replace(request.form("name"),"'",""))
soft_size=trim(replace(request.form("size"),"'",""))
soft_mode=trim(replace(request.form("mode"),"'",""))
roof=trim(replace(request.form("roof"),"'",""))
commend=cint(request.form("commend"))
demo=trim(replace(request.form("demo"),"'",""))
home=trim(replace(request.form("home"),"'",""))
showpic=trim(replace(request.form("showpic"),"'",""))
desc=trim(replace(request.form("desc"),"'",""))
url1=trim(replace(request.form("url1"),"'",""))
softtjuser=trim(replace(request.form("tjuser"),"'",""))
rs("tjuser")=softtjuser
if soft_name="" then
   founderr=true
   errmsg=errmsg+"<br>"+"<li>你必须填写文件名称！"
else
  if strLength(trim(request.form("name")))>30 then
      founderr=true
	  errmsg=errmsg+"<br>"+"<li>文件名称太长，不可以超过30个字符！"
  else
     rs("soft_name")=soft_name
  end if
end if
if soft_size="" then
  rs("soft_size")="未知"
else
  rs("soft_size")=soft_size
end if
if soft_mode="" then
  rs("soft_mode")=""
else
  rs("soft_mode")=soft_mode
end if
if roof="" then
  rs("soft_roof")=""
else
  rs("soft_roof")=roof
end if
if commend<1 then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须选择文件推荐程度！"
else
  rs("soft_commend")=commend
end if
if request("of")<>"" then
		Set rsclass = Server.CreateObject("ADODB.Recordset")
		sqlclass="SELECT * FROM d_class where class_id="&request("of")
		rsclass.OPEN sqlclass,Conn,1,1
		rs("soft_classid")=rsclass("class_id")
		rs("soft_classname")=rsclass("class_name")
		rs("soft_catid")=rsclass("cat_id")
		set rscat = Server.CreateObject("ADODB.Recordset")
		sqlcat="select cat_name from d_cat where cat_id="&rsclass("cat_id")
		rscat.open sqlcat,conn,1,1
		rs("soft_catname")=rscat("cat_name")
		rscat.close
		rsclass.close
		set rscat=nothing
		set rsclass=nothing
else
		founderr=true
                errmsg=errmsg+"<br>"+"<li>你必须选择所属分类，或者非法操作！" 
end if
if demo="" then
  rs("soft_demo")=""
else
  rs("soft_demo")=demo
end if
if home="" then
  rs("soft_home")=""
else
  rs("soft_home")=home
end if
if showpic="" then
  rs("soft_showpic")=""
else
  rs("soft_showpic")=showpic
end if
if desc="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须填写文件简介！"
else
  if strLength(trim(request.form("desc")))>100 then
      founderr=true
	  errmsg=errmsg+"<br>"+"<li>文件简介太长，不可以超过100个字符！"
else
  rs("soft_desc")=desc
end if
end if
if url1="" then
  founderr=true
errmsg=errmsg+"<br>"+"<li>你必须填写下载地址！"
end if
if url1="" then
  rs("soft_url1")=""
else
  rs("soft_url1")=url1
end if
if founderr then
  call checkerr()
  response.end
else
if Grade=1 then
  rs("passed")=0
sql="UPDATE [user] SET points = points + 20 where username='"&softtjuser&"'"
conn.execute (sql)
else
  rs("passed")=1
end if
  rs.update
  rs.close
  set rs=nothing
sql="select * from allcount"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3 
rs("softcount")=rs("softcount")+1
rs.update
rs.close
set rs=nothing
end if
elseif request.QueryString("hx66")="dj" then'==========网友上传歌曲处理程序
set rs=server.CreateObject("adodb.recordset")
rs.open "select dj_name,dj_url from dj where dj_name='"&trim(request.form("name"))&"' or dj_url='"&trim(request.form("url"))&"'",conn,1,1
if not rs.eof and not rs.bof then
	   	   response.write"<SCRIPT language=JavaScript>alert('错误提示：\n\n① 此音乐已提交过，正等待审核通过，请不要重复提交!\n\n② 您提交的音乐已经存在，感谢你的支持!');"
	           response.write"JavaScript:window.close()</SCRIPT>"
		   Response.End
rs.close
end if
sql="select * from dj"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
dim djcatid,djname,djurl,djpic,djdesc,djuser,djword,djtjuser
djcatid=cint(request.form("djcatid"))
djname=trim(replace(request.form("name"),"'",""))
djuser=trim(replace(request.form("user"),"'",""))
djurl=trim(replace(request.form("url"),"'",""))
djpic=trim(replace(request.form("pic"),"'",""))
djdesc=trim(replace(request.form("desc"),"'",""))
djword=trim(replace(request.form("word"),"'",""))
djtjuser=trim(replace(request.form("tjuser"),"'",""))
rs("tjuser")=djtjuser
if djname="" then
   founderr=true
   errmsg=errmsg+"<br>"+"<li>你必须填写歌曲名称！"
else
  if strLength(trim(request.form("name")))>50 then
      founderr=true
	  errmsg=errmsg+"<br>"+"<li>歌曲名称太长，不可以超过50个字符！"
  else
     rs("dj_name")=djname
  end if
end if
if djuser="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须填写歌手名称！"
else
  rs("dj_user")=djuser
end if
if djcatid<1 then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须选择歌曲所属分类！"
else
  rs("djcat_id")=djcatid
end if
if djurl="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须填写歌曲地址！"
else
  rs("dj_url")=djurl
end if
if djpic="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须填写歌曲的类型！"
else
  rs("dj_pic")=djpic
end if
if djdesc="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须选择歌曲的推荐等级！"
else
  rs("dj_desc")=djdesc
end if
if djword="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>歌词栏不能为空！"
else
  if strLength(trim(request.form("word")))>1000 then
      founderr=true
	  errmsg=errmsg+"<br>"+"<li>歌曲名称太长，不可以超过1000个字符！"
else
  rs("dj_word")=djword
end if
end if
if founderr then
  call checkerr()
  response.end
else
if Grade=1 then
  rs("passed")=0
sql="UPDATE [user] SET points = points + 20 where username='"&djtjuser&"'"
conn.execute (sql)
else
  rs("passed")=1
end if
  rs.update
  rs.close
  sql="select * from allcount"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3 
rs("djcount")=rs("djcount")+1
rs.update
rs.close
set rs=nothing
end if
end if
%>
<HTML>
<HEAD>
<title>提交成功</title>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<style type="text/css">
A{TEXT-DECORATION: none}
A:link {COLOR: #666666; FONT-FAMILY: 宋体; TEXT-DECORATION: none}
A:visited {COLOR: #666666; FONT-FAMILY: 宋体; TEXT-DECORATION: none}
A:active {FONT-FAMILY: 宋体; TEXT-DECORATION: none}
A:hover {BORDER-BOTTOM: 1px dotted; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-WIDTH: 1px; COLOR: #ff6600; TEXT-DECORATION: none}
BODY {
FONT-SIZE: 12px;
COLOR: #666666;
FONT-FAMILY:  宋体;
background-color: #ffffff; 
background-image: url(img/bg0.gif);
SCROLLBAR-FACE-COLOR: #e8e7e7; 
SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; 
SCROLLBAR-SHADOW-COLOR: #ffffff; 
SCROLLBAR-3DLIGHT-COLOR: #cccccc; 
SCROLLBAR-ARROW-COLOR: #ff6600; 
SCROLLBAR-TRACK-COLOR: #EFEFEF; 
SCROLLBAR-DARKSHADOW-COLOR: #b2b2b2; 
SCROLLBAR-BASE-COLOR: #000000
}
TABLE {BORDER-COLLAPSE: collapse; FONT-FAMILY: 宋体; FONT-SIZE: 9pt}
.button{height:18px;width:50px;background:#f6f6f9 url(img/ButtonBg.gif); border:solid 1px #5589AA;color: #000000 ;FONT-SIZE: 9pt}
.lanyu{border:solid 1px #5589AA;color: #000000 ; font-size: 12px;}
.font {  filter: DropShadow(Color=#cccccc, OffX=2, OffY=1, Positive=2); text-decoration: none; font-size: 9pt}
</style>
</HEAD>
<BODY leftMargin=10 topMargin=15 MARGINHEIGHT="0" MARGINWIDTH="0" onclick="JavaScript:window.close()">
<table align="center" border="0" cellspacing="0" style="border-collapse: collapse" width="98%"  cellpadding="0" height="1">
          <tr>
            <td width="7" height="1">
          <img border="0" src="img/Site_Top_Left.gif"></td>
            <td width="543" height="1" background="img/Site_Top_Bg.gif"></td>
            <td width="13" height="1"><img border="0" src="img/Site_Top_Right.gif"></td>
          </tr>
          <tr>
            <td width="7" height="17" background="img/Site_Left_Bg.gif"></td>
            <td width="543" height="17" bgcolor="#F2F2F2">
            <%if Grade=1 then%>
            你是本站VIP会员，本站已直接显示你提交的内容，请到版块列表处查看。同时你的个人积分已增加20会员币，谢谢您的支持！！<p align=right>---<%=webname%>&nbsp;&nbsp;</p>
            <%else%>
            <font color=red>已经成功提交，请等待审核。谢谢您对本站的支持！！</font><p align=right>---<%=webname%>&nbsp;&nbsp;</p>
            <%end if%>
            </td>
            <td width="13" height="17" background="img/Site_Right_Bg.gif"></td>
          </tr>
          <tr>
            <td width="7" height="1"><img border="0" src="img/Site_Down_Left.gif"></td>
            <td width="543" height="1" background="img/Site_Down_Bg.gif"></td>
            <td width="13" height="1"><img border="0" src="img/Site_Down_Right.gif"></td>
          </tr>
        </table>
</body></html>