| 会员中心 >> 发布舞曲 |
|
<%
action=request("action")
if action="add" then
Ylmv_Com_DjName=trim(request.form("Dj_Name"))
Ylmv_Com_DjUser=trim(request.form("Dj_User"))
Ylmv_Com_DjCatId=trim(request.form("DjCat_Id"))
Ylmv_Com_DjPic=trim(request.form("Dj_Pic"))
Ylmv_Com_DjUrl=trim(request.form("Dj_Url"))
Ylmv_Com_DjWord=trim(request.form("Dj_Word"))
Ylmv_Com_TjUser=trim(request.form("TjUser"))
set RsAdd=server.createobject("adodb.recordset")
sql="select * from Ylmv_Dj where Dj_Name='"&Ylmv_Com_DjName&"' and Dj_Url='"&Ylmv_Com_DjUrl&"' and TjUser='"&Ylmv_Com_TjUser&"'"
RsAdd.open sql,conn,1,1
if RsAdd.eof and RsAdd.bof then
set rs=server.createobject("adodb.recordset")
rs.open "select * from Ylmv_Dj",conn,1,3
rs.addnew
rs("DjCat_Id")=Ylmv_Com_DjCatId
rs("SpecialID")=0
rs("Dj_Name")=FormatStr(Ylmv_Com_DjName)
rs("Hits")=0
rs("DownHits")=0
rs("BoxHits")=0
rs("DayHits")=0
rs("WeekHits")=0
rs("MonthHits")=0
rs("Dj_Date")=Now()
rs("Dj_Url")=FormatStr(Ylmv_Com_DjUrl)
rs("Path")=1
rs("Deleted")=0
rs("Dj_Pic")=Ylmv_Com_DjPic
rs("Dj_User")=FormatStr(Ylmv_Com_DjUser)
rs("TjUser")=FormatStr(Ylmv_Com_TjUser)
rs("Dj_Word")=FormatStr(Ylmv_Com_DjWord)
rs("Dj_Desc")="☆☆★★★"
rs("IsBest")=0
rs("Error")=0
rs("Passed")=1
rs("IsTop")=0
rs("Points")=0
rs("Grade")=1
rs("Music")=0
rs("uHits")=0
rs("dHits")=0
rs.update
rs.close
Call SaveSuccess(" 发布成功，请等待管理员审核。通过后可获 "&fbpoints&" 点奖励！ ","User_CorpusList.asp?act=dj") set rs=nothing else Call SaveSuccess(" 不要重复发布，请等待管理员审核。通过后可获 "&fbpoints&" 点奖励！ ","User_CorpusList.asp?act=dj") end if else %> |