user_put.asp

后台登陆admin.asp

    if not isInteger(csid) then
      call admin_error("请选择 "&tit_fir&"类型 ！")
      exit sub
    end if
    if name="" or djname="" or url="" or word="" then
      call admin_error(tit_fir&"名称、歌手、地址和歌词 不能为空！")
      exit sub
    end if
    username=code_admin("tjuser",1,20)
    set rs=server.CreateObject("adodb.recordset")
    rs.open "select dj_name,dj_url from dj where dj_name='"&name&"' or dj_url='"&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"this.top.location.href='User_put.asp?action=dj';</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
    rs("tjuser")=username
    rs("dj_name")=name
    rs("dj_user")=djname
    rs("djcat_id")=csid
    rs("dj_url")=url
    rs("dj_pic")=types
    rs("dj_desc")=grades
    rs("dj_word")=word
    rs("Grade")=cint(dGrade)
    if cint(dGrade)=0 then
    rs("points")=0
    else
    rs("points")=cint(dpoints)
    end if
    if fbpass<>"yes" or (Hx66_Grade=1 and vippass<>"yes") then
    rs("passed")=0
    sql="UPDATE [user] SET points = points + "&fbpoints&" where username='"&username&"'"
    conn.execute (sql)
    else
    rs("passed")=1
    end if
    upurl=right(url,len(url)-7)
    conn.execute("update [upload] set webtype='音乐',totable=1,url='"&name&"' where filename='"&upurl&"' and totable=0")
    rs.update
    rs.close
    call user_msg("发布")
    exit sub
  end if
call form_first()
%>
<table bgcolor="#ffffff" borderColor="#f0f0f0" Border="1" Cellspacing="0" Cellpadding="5" width="100%" align="Center" style="border-collapse: collapse">
  <tr> 
     <td width="17%">歌曲名称</td>
     <td><input type="text" name="name" size="65" class="input"></td>
  </tr>
  <tr> 
     <td>歌手名字</td>
     <td><input type="text" name="djname" size="30" value="云南天空" class="input"></td>
  </tr>
  <tr> 
     <td>歌曲选项</td>
     <td><select name="c_id" class="input">
<%
sql="select * from djcat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("djcat_name")&"'>"
sql="select * from djcat where sid="&rs1("djcat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
     <option value="<%=rs2("djcat_id")%>">├ <%=rs2("djcat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs1.close
set rs1=nothing
%></select>
<select name="types" class="input">
     <option value="asf">播放类型</option>
     <option value="mtv">MTV影视</option>
     <option value="asf">RM音乐</option>
     <option value="asfmtv">ASF影视</option>
     <option value="rm">RAM音乐</option>
     <option value="rmmtv">RAM影视</option>
     <option value="flash">FLASH动画</option>
 </select>              
<select name="grades" class="input">
     <option value="☆☆★★★">推荐等级</option>
     <option value="☆☆☆☆★">☆☆☆☆★</option>
     <option value="☆☆☆★★">☆☆☆★★</option>
     <option value="☆☆★★★">☆☆★★★</option>
     <option value="☆★★★★">☆★★★★</option>
     <option value="★★★★★">★★★★★</option>
</select></td>
  </tr>
  <tr> 
     <td>视听地址</td>
     <td><input type="text" name="url" size="65" class="input"></td>
  </tr>
  <tr> 
     <td>音乐上传</td>
     <td><IFRAME name=upload_frame src="user_upload.asp?action=url" frameBorder=0 width="100%" scrolling=no height=25></IFRAME></td>
  </tr>
  <tr> 
     <td>添加歌词</td>
     <td><textarea rows="8" name="Word" cols="63" class="input">暂无歌词</textarea></td>
  </tr>
  <tr>
     <td>下载权限</td>
     <td><select name="dGrade" id="dGrade" class="input">
         <option value="0">游客下载</option>
         <option value="1">普通用户</option>
         <option value="2">VIP 用户</option>
         </select>&nbsp;&nbsp;下载所需会员积分数：<input type="text" name="dpoints" size="5" value="0" class="input"> *正整数数字. </td>
  </tr>
  <tr> 
     <td>提交会员</td>
     <td><input type="hidden" name="tjuser" value="<%=Hx66_name%>"><%=Hx66_name%></td>
  </tr>          
  <tr align="center"> 
     <td colspan="2" height="30">              
         <input type="submit" name="Submit" value="确定新增" class="input">
         <input type="reset" name="Reset" value="清空重填" class="input"></td>
  </tr>
</table>
<table cellspacing="1" border="0" width="530" cellpadding="4" align=center >
  <tr>
      <td>类型说明</td>
  </tr>
  <tr>
      <td>1."<FONT COLOR="#FF0000">.mp3.mid.wma.asf</FONT>"纯音乐文件请选择<FONT COLOR="#0000FF">RM音乐</FONT>类型<br>
          2."<FONT COLOR="#FF0000">.wmv.asf.mpg.avi</FONT>"影视文件选择<FONT COLOR="#0000FF">ASF影视</FONT>类型.<br>
          3."<FONT COLOR="#FF0000">.ram.rm</FONT>"纯音乐文件请选择<FONT COLOR="#0000FF">RAM音乐</FONT>类型<br>
          4."<FONT COLOR="#FF0000">.ram.rm</FONT>"影视文件请选择<FONT COLOR="#0000FF">RAM影视</FONT>类型<br>
          5."<FONT COLOR="#FF0000">.swf</FONT>"动画文件请选择<FONT COLOR="#0000FF">FLASH动画</FONT>类型 <br>
          6.<span class="style2">MTV影视可以播放大部分影视文件</span></td>
  </tr>
</table>
<%
end sub

'=================================================
'过程名：put_pic
'作  用：显示发表图片
'参  数：无
'Web:    www.ynsky.com.cn
'=================================================
sub put_pic()
  dim name,pic,desc,csid,username,uppic
  if chk() then
    name=CheckStr(code_admin("name",1,50))
    pic=CheckStr(code_admin("pic",1,100))
    desc=CheckStr(code_admin("desc",1,200))
    csid=trim(request.form("c_id"))
    if not isInteger(csid) then
      call admin_error("请选择 "&tit_fir&"类型 ！")
      exit sub
    end if
    if name="" or pic="" or desc="" then
      call admin_error(tit_fir&"名称、地址和说明 不能为空！")
      exit sub
    end if
    username=code_admin("tjuser",1,20)
    set rs=server.CreateObject("adodb.recordset")
    rs.open "select pic_name,pic_pic from pic where pic_name='"&name&"' or pic_pic='"&pic&"'",conn,1,1
if not rs.eof and not rs.bof then
	   	   response.write"<SCRIPT language=JavaScript>alert('错误提示：\n\n① 此图片已提交过，正等待审核通过，请不要重复提交!\n\n② 您提交的图片已经存在，感谢你的支持!');"
	           response.write"this.top.location.href='User_put.asp?action=pic';</SCRIPT>"
		   Response.End
    rs.close
    end if
    sql="select * from pic"
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,3
    rs.addnew
    rs("tjuser")=username
    rs("pic_name")=name
    rs("piccat_id")=csid
    rs("pic_spic")=pic
    rs("pic_pic")=pic
    rs("pic_desc")=desc
    if fbpass<>"yes" or (Hx66_Grade=1 and vippass<>"yes") then
    rs("passed")=0
    sql="UPDATE [user] SET points = points + "&fbpoints&" where username='"&username&"'"
    conn.execute (sql)
    else
    rs("passed")=1
    end if
    uppic=right(pic,len(pic)-7)
    conn.execute("update [upload] set webtype='图片',totable=1,url='"&name&"' where filename='"&uppic&"' and totable=0")
    rs.update
    rs.close
    call user_msg("上传")
    exit sub
  end if
call form_first()
%>
<table bgcolor="#ffffff" borderColor="#f0f0f0" Border="1" Cellspacing="0" Cellpadding="5" width="100%" align="Center" style="border-collapse: collapse">
  <tr> 
    <td width="17%">图片名称</td>
    <td> <input type="text" name="name" size="65" class="input"></td>
  </tr>
  <tr> 
    <td>所属分类</td>
    <td><select name="c_id" class="input">
<%
sql="select * from piccat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("piccat_name")&"'>"
sql="select * from piccat where sid="&rs1("piccat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
         <option value="<%=rs2("piccat_id")%>">├ <%=rs2("piccat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs1.close
set rs1=nothing%>
</select></td>
  </tr>
  <tr> 
     <td>图片地址</td>
     <td><input type="text" name="pic" size="65" class="input"></td>
  </tr>
  <tr> 
     <td>图片上传</td>
     <td><IFRAME name=ad src="user_upload.asp?action=pic" frameBorder=0 width="100%" scrolling=no height=25></IFRAME></td>
  </tr>
  <tr> 
     <td>图片介绍</td>
     <td><textarea name="desc" cols="63" rows="6" class="input">图片版权归图片本人所有,未经同意不得转载!</textarea></td>
  </tr>
  <tr> 
     <td>提交会员</td>
     <td><input type="hidden" name="tjuser" value="<%=Hx66_name%>"><%=Hx66_name%></td>
  </tr>          
  <tr align="center"> 
     <td colspan="2" height="30"> 
        <input type="submit" name="Submit" value="确定新增" class="input"> 
        <input type="reset" name="Reset" value="清空重填" class="input"></td>
  </tr>
</table>
<%
end sub

'=================================================
'过程名：put_joke
'作  用：显示发表笑话
'参  数：无
'Web:    http://www.ynsky.com.cn
'=================================================
sub put_joke()
  dim name,artname,aahome,csid,akeyword,pic,content,dGrade,dpoints,username,uppic
  if chk() then
    name=CheckStr(code_admin("name",1,50))
    artname=CheckStr(code_admin("artname",1,50))
    aahome=CheckStr(code_admin("aahome",1,50))
    csid=trim(request.form("c_id"))
    akeyword=CheckStr(code_admin("akeyword",1,50))
    pic=CheckStr(code_admin("pic",1,100))
    content=code_admin("content",1,100000)
    dGrade=trim(request.form("dGrade"))
    dpoints=trim(request.form("dpoints"))
    if not isInteger(csid) then
      call admin_error("请选择 "&tit_fir&"类型 ！")
      exit sub
    end if
    if name="" or artname="" or aahome="" or content="" then
      call admin_error(tit_fir&"标题、作者、来源和内容 不能为空！")
      exit sub
    end if
    if strLength(content)>artmax then
      call admin_error(tit_fir&"内容太长 不可以超过"&artmax&"个字符！！")
      exit sub
    end if
    username=code_admin("tjuser",1,20)
    set rs=server.CreateObject("adodb.recordset")
    rs.open "select art_title from joke where art_title='"&name&"'",conn,1,1
    if not rs.eof and not rs.bof then
	   	   response.write"<SCRIPT language=JavaScript>alert('错误提示：\n\n① 此笑话已提交过，正等待审核通过，请不要重复提交!\n\n② 您提交的笑话已经存在，感谢你的支持!');"
	           response.write"this.top.location.href='User_put.asp?action=joke';</SCRIPT>"
		   Response.End
    rs.close
    end if
    sql="select * from joke"
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,3
    rs.addnew
    rs("tjuser")=username
    rs("art_title")=name
    rs("art_author")=artname
    rs("art_ahome")=aahome
    rs("cat_id")=csid 
    rs("art_keyword")=akeyword  
    rs("art_content")=content
    rs("Grade")=cint(dGrade)
    if cint(dGrade)=0 then
    rs("points")=0
    else
    rs("points")=cint(dpoints)
    end if
    if fbpass<>"yes" or (Hx66_Grade=1 and vippass<>"yes") then
    rs("passed")=0
    sql="UPDATE [user] SET points = points + "&fbpoints&" where username='"&username&"'"
    conn.execute (sql)
    else
    rs("passed")=1
    end if
    if pic<>"" then
    rs("images")=pic
    rs("isimg")=1
    uppic=right(pic,len(pic)-7)
    conn.execute("update [upload] set webtype='笑话',totable=1,url='"&name&"' where filename='"&uppic&"' and totable=0")
    end if