<% Dvbbs.LoadTemplates("usermanager") Dvbbs.Stats=Dvbbs.MemberName&template.Strings(0) Dvbbs.Nav() Dvbbs.Head_var 0,0,template.Strings(0),"usermanager.asp" Dim Sql,Rs,TempStr If dvbbs.userid=0 Then Dvbbs.AddErrCode(6) Dvbbs.Showerr() Else If Request("Action") = "CheckUser" Then CheckUser() Else Main() End If End If Dvbbs.ActiveOnline() Dvbbs.Footer() Dvbbs.PageEnd() Sub Main() Response.Write Template.Html(0) Dim FoundPassport Set Rs=Dvbbs.Execute("Select Passport,IsChallenge From Dv_User Where UserID = " & Dvbbs.UserID) If Rs.Eof And Rs.Bof Then Rs.Close:Set Rs=Nothing Dvbbs.AddErrCode(6) Dvbbs.Showerr() Else If Rs("IsChallenge") = 1 And Rs("Passport") <> "" And Not IsNull(Rs("Passport")) Then FoundPassport = Rs("Passport") End If End If Rs.Close:Set Rs=Nothing %>
<% If FoundPassport <> "" Then %> <% Else %> <% End If %>

论坛通行证设置
说明： 论坛通行证可让您自由通行于国内大部分的网络论坛，您可以在论坛中设置绑定或解除绑定论坛通行证帐号 如果您尚未绑定论坛通行证，无论您是否注册了论坛通行证，您都可以直接输入论坛通行证帐号，系统将自动引导您完成整个过程 如果您希望更改已绑定论坛通行证，请先解除绑定后进行绑定或注册操作
您的论坛帐号已绑定论坛通行证：	<%=FoundPassport%>
请输入论坛通行证帐号：

<% End Sub Sub CheckUser() If Request("Submit") = "解除论坛通行证绑定" Then Dvbbs.Execute("Update Dv_User Set Passport='',IsChallenge=0 Where UserID = " & Dvbbs.UserID) Dvbbs.Dvbbs_Suc("

解除论坛通行证绑定论坛帐号成功！") Else Response.Redirect "login.asp?action=chk&passport=" & Request("passport") End If End Sub %>