biaoshi.asp

支持IE 手机同步访问的WAP论坛社区程序

<!--#Include File="Inc/xkon.Asp"--><%
Call QuanXian("1",0)
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Private Sub H()
		c.Write(xkon_FenXi("经常更换标识可以让您的账号更安全,确认要更换吗?<br/><a href=""BiaoShi.Asp?l=h{(xkon.cn)链接}"">是</a>"))
	End Sub
	Private Sub x()
		Dim BS
		BS=Get_Rnd_Str()&Zi_ZhangHao
		Call OpenData()
			Conn.Execute("Update ZhangHao Set BiaoShi='"&BS&"' Where ZhangHao='"&Zi_ZhangHao&"'")
		Call CloseData()
		Response.Redirect("DiPan.Asp?xkon="&Server.UrlEncode(BS))
	End Sub
	Call H_Title("更换标识")
	Dim l
	l=s.QueryString("l")
	Select Case l
	Case ""
		Call H()
	Case Else
		Call x()
	End Select
	Call H_End()
Set c=Nothing
Set s=Nothing
%>