| 自助连接

<%if GetLink("LinkOff") =0 then call ShowErr("
- 暂时自助连接功能
","Users_linkReg.asp",0) End if Sub RegSave() Set Rs=Server.CreateObject(YWNT_TMS_RS) sql="select * from YWNT_TMS_Link" Rs.open sql,Conn,1,3 Rs.addnew RS("LinkName")=NoSqlHack(Request.Form("LinkName")) RS("LinkUrl")=NoSqlHack(Request.Form("LinkUrl")) RS("LinkPic")=NoSqlHack(Request.Form("LinkPic")) RS("LinkType")=NoSqlHack(Request.Form("LinkType")) RS("LinkTel")=NoSqlHack(Request.Form("LinkTel")) RS("LinkNote")=NoSqlHack(Request.Form("LinkNote")) RS("LinkAudit")=0 RS("LinkDate")=Now() 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() IF GetLink("LinkUsersOff")=1 then IF ChecKWcafesIP(UsersIP())<>True Then IF Request.Cookies("YWNTUserCookie")("UserName")="" Then Call UsersLogin() response.end End If End If End If%>

注册条款

<%=GetLink("LinkNeed")%>

<%end sub sub Reg2()%>

站点名称： |
连接类型： | 图片 文字
图片地址： |
连接地址： |
站长联系方式： |
站点说明： |

<%end sub call connclose()%>