?? login.asp
字號:
<!--#include file="up.asp"-->
<!--#include file="inc/md5.asp"-->
<%
dim action,comeurl,mark,graden,alltopicnum
action=request.querystring("action")
select case action
case"login"
call Login
case "exit"
Response.Cookies(prefix)("lgname")=""
Response.Cookies(prefix)("lgpwd")=""
Response.Cookies(prefix)("lgtype")=""
Response.Cookies(prefix)("lgcook")=""
if isnull(lguserid) or lguserid="" then lguserid=0
conn.execute("delete*from [online] where userid="&lguserid&"")
session(prefix&"lgname")=""
session(prefix&"lguserid")=""
session(prefix&"usertype")=""
session(prefix&"adminbd")=""
session(prefix&"usertype2")=""
tl=1
mes="<li>已經成功的退出論壇</li><li><a href=login.asp>重新登陸論壇</a></li><li><a href=index.asp>進入論壇首頁</a></li>"
call sendinfo(tl,mes)
case else
comeurl=Request.ServerVariables("HTTP_REFERER")
call ShowLogin
end select
call down%>
<%Sub ShowLogin()%>
<%=ttop%>
<table align="center" class="BBS_BoardList" cellpadding="0" cellspacing="1">
<tr class="BBS_BoardTitle">
<td colspan="2"> <img border="0" src="pic/gl.gif" align="absmiddle" /> 用戶登陸</td>
</tr>
<form action="login.asp?action=login" method="post">
<input type="hidden" name="comeurl" value="<%=kbbs(comeurl)%>" />
<tr class="BBS_BoardItem">
<td width="30%"><b> 請輸入您的用戶名:</b></td>
<td> <input type="text" name="lgname" size="20" maxlength="20" /> <a href="reg.asp">沒有注冊?</a></td>
</tr>
<tr class="BBS_BoardItem">
<td><b> 請輸入您的密碼:</b></td>
<td> <input type="password" name="lgpwd" size="20" maxlength="20" /> <a href="getpass.asp">忘記密碼?</a></td>
</tr>
<%if conn.execute("select postcode from config")(0)=0 then%>
<tr class="BBS_BoardItem">
<td><b> 請輸入登陸驗證碼:</b></td>
<td> <input type="text" name="adminid" maxlength="4" /> <%response.write"<img src=""inc/code.asp"">"%></td>
</tr>
<%end if%>
<tr class="BBS_BoardItem">
<td><b> Cookie 選項:</b><br /> 請選擇你的 Cookie 保存時間</td>
<td> <select name="cook"><option value="0">不保存</option><option value="1">保存一天</option><option value="30">保存一月</option><option value="365">保存一年</option></select></td>
</tr>
<tr class="BBS_BoardItem">
<td><b> 登陸方式:</b><br /> 請選擇你的登陸方式</td>
<td> <input type="radio" value="1" checked name="lgtype" />正常登陸 <input type="radio" value="2" name="lgtype" />隱身登陸</td>
</tr>
<tr class="BBS_BoardItem">
<td colspan="2" align="center">
<input type="submit" value=" 登 陸 ">
<input type="reset" value=" 重 置 ">
</td>
</tr>
</form>
</table>
<%=tbottom%>
<br />
<%End Sub%>
<%function pname(str)
pname=true
if Instr(str,"=")>0 or Instr(str,"%")>0 or Instr(str,chr(32))>0 or Instr(str,"?")>0 or Instr(str,"&")>0 or Instr(str,";")>0 or Instr(str,",")>0 or Instr(str,"'")>0 or Instr(str,".")>0 or Instr(str,chr(34))>0 or Instr(str,chr(9))>0 or Instr(str,"
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -