| 用户求片

<%sub AddSave() IF ChecKWcafesIP(UsersIP())=True Then DemandUsers=session("WcafesName") UsersGroupx=session("WcafesGroup") else Set RS=Server.CreateObject(YWNT_TMS_RS) SQL="select UsersName,UsersGroup from YWNT_TMS_Users Where UsersName='"&Request.Cookies("YWNTUserCookie")("UserName")&"'" Rs.open sql,Conn,1,1 If not RS.Eof Then DemandUsers=RS("UsersName") UsersGroupx=RS("UsersGroup") End If RS.Close Set RS = Nothing end if if GetUsersGroup("GroupFfilms",UsersGroupx)=0 then response.write"
" response.end end if Set Rs=Server.CreateObject(YWNT_TMS_RS) sql="select * from YWNT_TMS_DemandMovie" Rs.open sql,Conn,1,3 RS.AddNew RS("DemandMovie")=NoSqlHack(Replacehtml(Request.Form("DemandMovie"))) RS("DemandContent")=NoSqlHack(Replacehtml(Request.Form("DemandContent"))) RS("DemandUsers")=DemandUsers RS("DemandDate")=Now() Rs.Update Rs.Close Set Rs = Nothing Response.write "
" end sub Action=Trim(Request.QueryString("Action")) Select Case Action Case "AddSave" call AddSave() Case else if ChecKWcafesIP(UsersIP())<>True then if Request.Cookies("YWNTUserCookie")("UserName")="" then call UsersLogin() end if end if call Add() End Select Sub Add()%>

影片名称： |
影片描述： |

<%End Sub%>

<%call connclose()%>