📄 userlogin.aspx.vb
字号:
Response.Write ( " document.compatMode=='CSS1Compat') ?" & Chr ( 13 ) ) '142
Response.Write ( " documentElement.scrollTop + (document.documentElement.clientHeight-this.offsetHeight)/2 :/*IE6*/" & Chr ( 13 ) ) '143
Response.Write ( " document.body.scrollTop + (document.body.clientHeight - this.clientHeight)/2);/*IE5 IE5.5*/" & Chr ( 13 ) ) '144
Response.Write ( "} " & Chr ( 13 ) ) '145
Response.Write ( "--> " & Chr ( 13 ) ) '146
Response.Write ( "</style>" & Chr ( 13 ) ) '147
Response.Write ( "<script language=""javascript"" type=""text/javascript"">" & Chr ( 13 ) ) '148
Response.Write ( "function showDiv(){" & Chr ( 13 ) ) '149
Response.Write ( "document.getElementById('popDiv').style.display='block';" & Chr ( 13 ) ) '150
Response.Write ( "document.getElementById('bg').style.display='block';" & Chr ( 13 ) ) '151
Response.Write ( "}" & Chr ( 13 ) ) '152
Response.Write ( "function closeDiv(){" & Chr ( 13 ) ) '153
Response.Write ( "document.getElementById('popDiv').style.display='none';" & Chr ( 13 ) ) '154
Response.Write ( "document.getElementById('bg').style.display='none';" & Chr ( 13 ) ) '155
Response.Write ( "}" & Chr ( 13 ) ) '156
Response.Write ( "function checkget(form){" & Chr ( 13 ) ) '157
Response.Write ( " if (form.bbsuser.value=="""")" & Chr ( 13 ) ) '158
Response.Write ( " " & Chr ( 9 ) & "{" & Chr ( 13 ) ) '159
Response.Write ( " " & Chr ( 9 ) & Chr ( 9 ) & "alert(""请填写用户名！"");" & Chr ( 13 ) ) '160
Response.Write ( " " & Chr ( 9 ) & Chr ( 9 ) & "form.bbsuser.focus();" & Chr ( 13 ) ) '161
Response.Write ( " " & Chr ( 9 ) & Chr ( 9 ) & "return false;" & Chr ( 13 ) ) '162
Response.Write ( " " & Chr ( 9 ) & "}" & Chr ( 13 ) ) '163
Response.Write ( " if (form.answer.value=="""")" & Chr ( 13 ) ) '164
Response.Write ( " " & Chr ( 9 ) & "{" & Chr ( 13 ) ) '165
Response.Write ( " " & Chr ( 9 ) & Chr ( 9 ) & "alert(""请填写问题答案！"");" & Chr ( 13 ) ) '166
Response.Write ( " " & Chr ( 9 ) & Chr ( 9 ) & "form.answer.focus();" & Chr ( 13 ) ) '167
Response.Write ( " " & Chr ( 9 ) & Chr ( 9 ) & "return false;" & Chr ( 13 ) ) '168
Response.Write ( " " & Chr ( 9 ) & "}" & Chr ( 13 ) ) '169
Response.Write ( "return true;" & Chr ( 13 ) ) '170
Response.Write ( "}" & Chr ( 13 ) ) '171
Response.Write ( "</script>" & Chr ( 13 ) ) '172
Response.Write ( "<script language=javascript src=""js/resetcode.js""></script>" & Chr ( 13 ) ) '173
Response.Write ( "<body topmargin=""0"">" & Chr ( 13 ) ) '174
Response.Write ( "<div id=""popDiv"" class=""mydiv"" style=""display:none;"">" & Chr ( 13 ) ) '175
Response.Write ( "<form name=""form1"" method=""post"" action=""getpwd.aspx"" onSubmit=""return checkget(this)"">" & Chr ( 13 ) ) '176
Response.Write ( "<b>请输入要取回密码的用户名问题与答案</b> " & Chr ( 13 ) ) '177
Response.Write ( "<a href=""javascript:closeDiv()"" title=""关闭窗口""><b>×</b></a><br/>" & Chr ( 13 ) ) '178
Response.Write ( "<div style=""padding-bottom: 10px;"">用户名：<input name=""bbsuser"" type=""text"" size=""30""></div>" & Chr ( 13 ) ) '179
Response.Write ( "<div style=""padding-bottom: 10px;"">问 题：<select id=""question"" name=""question"">" & Chr ( 13 ) ) '180
Response.Write ( "<option selected value="""">--请您选择--</option>" & Chr ( 13 ) ) '181
Response.Write ( "<option value=""我的宠物名字？"">我的宠物名字？</option>" & Chr ( 13 ) ) '182
Response.Write ( "<option value=""我最好的朋友是谁？"">我最好的朋友是谁？</option>" & Chr ( 13 ) ) '183
Response.Write ( "<option value=""我最喜爱的颜色？"">我最喜爱的颜色？</option>" & Chr ( 13 ) ) '184
Response.Write ( "<option value=""我最喜爱的电影？"">我最喜爱的电影？</option>" & Chr ( 13 ) ) '185
Response.Write ( "<option value=""我最喜爱的影星？"">我最喜爱的影星？</option>" & Chr ( 13 ) ) '186
Response.Write ( "<option value=""我最喜爱的歌曲？"">我最喜爱的歌曲？</option>" & Chr ( 13 ) ) '187
Response.Write ( "<option value=""我最喜爱的食物？"">我最喜爱的食物？</option>" & Chr ( 13 ) ) '188
Response.Write ( "<option value=""我最大的爱好？"">我最大的爱好？</option>" & Chr ( 13 ) ) '189
Response.Write ( "<option value=""我中学校名全称是什么？"">我中学校名全称是什么？</option>" & Chr ( 13 ) ) '190
Response.Write ( "<option value=""我的座右铭是？"">我的座右铭是？</option>" & Chr ( 13 ) ) '191
Response.Write ( "<option value=""我最喜欢的小说的名字？"">我最喜欢的小说的名字？</option>" & Chr ( 13 ) ) '192
Response.Write ( "<option value=""我最喜欢的卡通人物名字？"">我最喜欢的卡通人物名字？</option>" & Chr ( 13 ) ) '193
Response.Write ( "<option value=""我母亲/父亲的生日？"">我母亲/父亲的生日？</option>" & Chr ( 13 ) ) '194
Response.Write ( "<option value=""我最欣赏的一位名人的名字？"">我最欣赏的一位名人的名字？</option>" & Chr ( 13 ) ) '195
Response.Write ( "<option value=""我最喜欢的运动队全称？"">我最喜欢的运动队全称？</option>" & Chr ( 13 ) ) '196
Response.Write ( "<option value=""我最喜欢的一句影视台词？"">我最喜欢的一句影视台词？</option>" & Chr ( 13 ) ) '197
Response.Write ( "</select></div>" & Chr ( 13 ) ) '198
Response.Write ( "<div style=""padding-bottom: 10px;"">答 案：<input name=answer type=text id=answer size=30 maxlength=30></div>" & Chr ( 13 ) ) '199
Response.Write ( "<div align=""center""><input type=""submit"" name=""Submit1"" value=""取回密码"">" & Chr ( 13 ) ) '200
Response.Write ( "<input type=""reset"" name=""Submit"" value=""关闭窗口"" onClick=""closeDiv();""></div>" & Chr ( 13 ) ) '201
Response.Write ( "</form>" & Chr ( 13 ) ) '202
Response.Write ( "</div>" & Chr ( 13 ) ) '203
Response.Write ( "<div id=""bg"" class=""bg"" style=""display:none;""></div>" & Chr ( 13 ) ) '204
If AspToAspX_CheckDBNull ( getcookie ( "ftbbstype" ) ) = 1 Or AspToAspX_CheckDBNull ( flag ) = "Y" Then '206
Response.Write ( headhtml ) '207
End If '208
Response.Write ( vbCrLf )
Response.Write ( "<table width=""99%"" border=0 align=""center"" cellpadding=2 cellspacing=1 class=""maintbbg"">" & Chr ( 13 ) ) '210
Response.Write ( " <tbody>" & Chr ( 13 ) ) '211
Response.Write ( " <tr> " & Chr ( 13 ) ) '212
Response.Write ( " <td height=""25"" class=""f12bg"" align=""left""> " ) '213
Response.Write ( userinfo ) '213
Response.Write ( "</td>" & Chr ( 13 ) ) '213
Response.Write ( " </tr>" & Chr ( 13 ) ) '214
Response.Write ( " <tr> " & Chr ( 13 ) ) '215
Response.Write ( " <td height=""26"" class=""maintbtr3""> <a href=""default.aspx"">论坛首页</a> >> " & Chr ( 13 ) ) '216
Response.Write ( " 论坛登录</td>" & Chr ( 13 ) ) '217
Response.Write ( " </tr>" & Chr ( 13 ) ) '218
Response.Write ( " </tbody>" & Chr ( 13 ) ) '219
Response.Write ( "</table>" & Chr ( 13 ) ) '220
Response.Write ( "<table cellspacing=0 cellpadding=0 width=""99%"" align=center border=0>" & Chr ( 13 ) ) '221
Response.Write ( " <tbody>" & Chr ( 13 ) ) '222
Response.Write ( " <tr> " & Chr ( 13 ) ) '223
Response.Write ( " <td height=8></td>" & Chr ( 13 ) ) '224
Response.Write ( " </tr>" & Chr ( 13 ) ) '225
Response.Write ( " </tbody>" & Chr ( 13 ) ) '226
Response.Write ( "</table>" & Chr ( 13 ) ) '227
Response.Write ( "<table width=""99%"" border=""0"" align=""center"" cellspacing=""1"" cellpadding=""0"" class=""listborder"">" & Chr ( 13 ) ) '228
Response.Write ( " <FORM METHOD=""POST"" ACTION=""userlogin.aspx"" onSubmit=""return check(this)"">" & Chr ( 13 ) ) '229
Response.Write ( " <tr> " & Chr ( 13 ) ) '230
Response.Write ( " <td colspan=""2"" height=""27"" class=""f12bg""> <div align=""center""> 请输入您的用户名、密码登录</div></td>" & Chr ( 13 ) ) '231
Response.Write ( " </tr>" & Chr ( 13 ) ) '232
Response.Write ( " " ) '233
If AspToAspX_CheckDBNull ( msg ) = "1" Then '234
msgstr = "你所访问的版面只有认证用户或总版主才能访问" '235
ElseIf AspToAspX_CheckDBNull ( msg ) = "2"Then '236
msgstr = "你所访问的版面只有总版主或分版主才能访问" '237
ElseIf AspToAspX_CheckDBNull ( msg ) = "3"Then '238
msgstr = "验证码错误，请重新输入" '239
ElseIf AspToAspX_CheckDBNull ( msg ) = "4"Then '240
msgstr = "用户名不存在或还没有被激活" '241
ElseIf AspToAspX_CheckDBNull ( msg ) = "5"Then '242
msgstr = "对不起,你的用户名被管理员封锁了" '243
ElseIf AspToAspX_CheckDBNull ( msg ) = "6"Then '244
msgstr = "你的密码错误，请重新登录" '245
End If '246
If AspToAspX_CheckDBNull ( msg ) < > EmptyString.Value Then '247
Response.Write ( vbCrLf )
Response.Write ( " <tr height=25> " & Chr ( 13 ) ) '249
Response.Write ( " <TD width=""28%"" height=""30"" class=""loopborder1""> <div align=""left""> 错误提示信息：</div></TD>" & Chr ( 13 ) ) '250
Response.Write ( " <TD width=""72%"" class=""loopborder1""><font color=""#FF0000"">" & Chr ( 13 ) ) '251
Response.Write ( " " ) '252
Response.Write ( msgstr ) '252
Response.Write ( vbCrLf )
Response.Write ( " </font></TD>" & Chr ( 13 ) ) '253
Response.Write ( " </tr>" & Chr ( 13 ) ) '254
Response.Write ( " " ) '255
End If '255
Response.Write ( vbCrLf )
Response.Write ( " <tr class=""loopborder1"" height=25> " & Chr ( 13 ) ) '256
Response.Write ( " <TD width=""28%"" height=""30"" class=""loopborder1""> <div align=""left""> 请输入您的用户名：</div></TD>" & Chr ( 13 ) ) '257
Response.Write ( " <TD width=""72%"" class=""loopborder1""><INPUT TYPE=""text"" NAME=""bbsuser"" class=""inputpage"" style=""height:20px;width:130px""> " & Chr ( 13 ) ) '258
Response.Write ( " <a href=""register.aspx"">没有注册？</a> </TD>" & Chr ( 13 ) ) '259
Response.Write ( " </TR>" & Chr ( 13 ) ) '260
Response.Write ( " <tr class=""maintbtr3"" height=25> " & Chr ( 13 ) ) '261
Response.Write ( " <TD height=""30"" class=""loopborder1""> <div align=""left""> 输入您的用户密码：</div></TD>" & Chr ( 13 ) ) '262
Response.Write ( " <TD class=""loopborder1""><INPUT TYPE=""password"" NAME=""password"" class=""inputpage"" style=""height:20px;width:130px""> " & Chr ( 13 ) ) '263
Response.Write ( " <a href=""javascript:showDiv();"">忘记论坛密码？</a> " & Chr ( 13 ) ) '264
Response.Write ( " </TD>" & Chr ( 13 ) ) '265
Response.Write ( " </TR>" & Chr ( 13 ) ) '266
Response.Write ( " " ) '267
If AspToAspX_CheckDBNull ( getcodeoff ) = 1 And AspToAspX_CheckDBNull ( Session ( "errorlogin" ) ) > = 3 Then '267
Response.Write ( vbCrLf )
Response.Write ( " <tr> " & Chr ( 13 ) ) '268
Response.Write ( " <td height=""30"" class=""loopborder1""> <div align=""left""> 请输入右边验证码：</div></td>" & Chr ( 13 ) ) '269
Response.Write ( " <td height=""20"" class=""loopborder1""><input name=codestr id=codestr type=text size=6 maxlength=4> " & Chr ( 13 ) ) '270
Response.Write ( " " ) '271
Response.Write ( getcode ) '271
Response.Write ( vbCrLf )
Response.Write ( " </td>" & Chr ( 13 ) ) '272
Response.Write ( " </tr>" & Chr ( 13 ) ) '273
Response.Write ( " " ) '274
End If '274
Response.Write ( vbCrLf )
Response.Write ( " <tr height=25> " & Chr ( 13 ) ) '275
Response.Write ( " <TD height=""130"" valign=""middle"" class=""loopborder1""> <div align=""left""> 用户密码保存时间：</div></TD>" & Chr ( 13 ) ) '276
Response.Write ( " <TD class=""loopborder1""><input name=""ckies"" type=""radio"" value=""0"" checked>" & Chr ( 13 ) ) '277
Response.Write ( " 关闭浏览器失效<br> <input type=""radio"" name=""ckies"" value=""1"">" & Chr ( 13 ) ) '278
Response.Write ( " 保存一天的时间 <br> <input type=""radio"" name=""ckies"" value=""7"">" & Chr ( 13 ) ) '279
Response.Write ( " 保存一周的时间<br> <input type=""radio"" name=""ckies"" value=""30"">" & Chr ( 13 ) ) '280
Response.Write ( " 保存一月的时间<br> <input type=""radio"" name=""ckies"" value=""365"">" & Chr ( 13 ) ) '281
Response.Write ( " 保存一年的时间</TD>" & Chr ( 13 ) ) '282
Response.Write ( " </tr>" & Chr ( 13 ) ) '283
Response.Write ( " <tr valign=""middle"" height=25 style=""line-height:23px""> " & Chr ( 13 ) ) '284
Response.Write ( " <TD height=""85"" colspan=""2"" class=""loopborder2""> <div align=""left""> 请输入您的帐号与密码，然后点击登录按钮. " & Chr ( 13 ) ) '285
Response.Write ( " 如果您没有注册,请先<a href=""register.aspx"">注册成为会员</a>.<br>" & Chr ( 13 ) ) '286
Response.Write ( " 提示：您的浏览器必须支持cookie，否则将不能登录论坛.<br>" & Chr ( 13 ) ) '287
Response.Write ( " 注意：如果您在网吧,Cookies选项请选择关闭浏览器就失效登录.</div></TD>" & Chr ( 13 ) ) '288
Response.Write ( " </tr>" & Chr ( 13 ) ) '289
Response.Write ( " <tr align=center> " & Chr ( 13 ) ) '290
Response.Write ( " <TD height=""40"" class=""maintbtr3""></TD>" & Chr ( 13 ) ) '291
Response.Write ( " <TD height=""30"" class=""maintbtr3""><div align=""left"">" & Chr ( 13 ) ) '292
Response.Write ( " <input type=""submit"" value=""登录论坛"" name=""Input"" class=""button"">" & Chr ( 13 ) ) '293
Response.Write ( " <input type=""hidden"" name=""reurl"" value=""" ) '294
Response.Write ( AspToAspX_GetRequestServerVariables ( "Http_REFERER" ) ) '294
Response.Write ( """>" & Chr ( 13 ) ) '294
Response.Write ( " <input type=""hidden"" name=""act"" value=""y"">" & Chr ( 13 ) ) '295
Response.Write ( " <input type=""hidden"" name=""flag"" value=""" ) '296
Response.Write ( flag ) '296
Response.Write ( """>" & Chr ( 13 ) ) '296
Response.Write ( " </div></TD>" & Chr ( 13 ) ) '297
Response.Write ( " </TR>" & Chr ( 13 ) ) '298
Response.Write ( " </FORM>" & Chr ( 13 ) ) '299
Response.Write ( "</TABLE>" & Chr ( 13 ) ) '300
Response.Write ( "</div>" & Chr ( 13 ) ) '301
ASPX_INC_BBSTAIL_HTM.AspToAspX_Page_Init ( )
Response.Write ( "</body>" & Chr ( 13 ) ) '303
Response.Write ( "</html>" & Chr ( 13 ) ) '304
conn.Close ( ) '305
Response.Write ( vbCrLf )
AspToAspX_UnloadIncludeFiles()
Exit Sub
_AspToAspX_Err:
AspToAspX_WriteLog ("userlogin_aspx Page_Init:" & Err.Description)
Resume Next
End Sub
#Region "..."
Public Property conn
Get
conn = ASPX_CONN.conn
End Get
Set(ByVal value)
ASPX_CONN.conn = value
End Set
End Property
Public Property qs
Get
qs = ASPX_CONN.qs
End Get
Set(ByVal value)
ASPX_CONN.qs = value
End Set
End Property
Public Property errc
Get
errc = ASPX_CONN.errc
End Get
Set(ByVal value)
ASPX_CONN.errc = value
End Set
End Property
Public Property iii
Get
iii = ASPX_CONN.iii
End Get
Set(ByVal value)
ASPX_CONN.iii = value
End Set
End Property
Public Property nothis
Get
nothis = ASPX_CONN.nothis
End Get
Set(ByVal value)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -