| 网吧注册

<%if GetUsersSystem("UsersRegOn") =0 then call ShowErr("
- 暂时关闭注册功能
","Users_WcafesReg.asp",0) End if Sub RegSave() Set Rs=Server.CreateObject(YWNT_TMS_RS) sql="select * from YWNT_TMS_Wcafes" Rs.open sql,Conn,1,3 Rs.addnew RS("WcafesName")=NoSqlHack(Request.Form("WcafesName")) RS("WcafesStartIP")=NoSqlHack(Request.Form("WcafesStartIP")) RS("WcafesOverIP")=NoSqlHack(Request.Form("WcafesOverIP")) RS("WcafesStartIPS")=NoSqlHack(EncodeIP(Request.Form("WcafesStartIP"))) RS("WcafesOverIPS")=NoSqlHack(EncodeIP(Request.Form("WcafesOverIP"))) RS("WcafesRegDate")=date() RS("WcafesUseDate")=date()+NoSqlHack(Request.Form("WcafesUseDate")) RS("WcafesGroup")=GetUsersSystem("WcafesRegGroup") 'RS("WcafesAdmin")=Request.Form("WcafesAdmin") RS("WcafesNote")=NoSqlHack("联系人:"&Request.Form("Name")&vbcrlf&"联系QQ："&Request.Form("QQ")&vbcrlf&"联系电话："&Request.Form("Phone")) RS("WcafesAudit")=0 Rs.Update Rs.Close Set Rs = Nothing response.write"
" End Sub Action=Trim(request("Action")) Select Case Action Case "Reg2" call Reg2() Case "RegSave" call RegSave() Case else call Reg1() End Select sub Reg1() Set Rs=Server.CreateObject(YWNT_TMS_RS) sql="select * from YWNT_TMS_UsersRegNotice" Rs.open sql,Conn,1,1 YWNT_TMS_ID=RS("ID") YWNT_TMS_RegNotice=RS("RegisterNotice") RS.close set RS=nothing%>

注册条款

<%=YWNT_TMS_RegNotice%>

<%end sub sub Reg2()%>

网吧名称： |
网吧起始IP： | 自动检测IP
网吧结束IP： |
使用时间： |
联 系 人： |
联系 Q Q： |
联系电话： |

<%end sub call connclose()%>