?? chkuser.asp
字號(hào):
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'=========================================================
' Serv-U 用戶在線注冊(cè)管理程序-1.0(odbc+asp版)[2006040819]
' 版權(quán)所有:北江科技
' 客服QQ:418322257 E-Mail:qystu@163.Com
' 歡迎大家聯(lián)系我們,根據(jù)具體情況定制相對(duì)應(yīng)的程序。
' 討論建議網(wǎng)址:http://asp.6to23.com/qyzz/qystu/forumTopicRead.asp?id=1187
'=========================================================
%>
<!--#include file="md5.asp"-->
<!--#include file="config.asp" -->
<%
dim sql
dim rs
if(Request.Form("username") <> "") then Userusername = Request.Form("username")
if(Request.Form("password") <> "") then UserPassword = Request.Form("password")
set rs=server.createobject("adodb.recordset")
sql="select * from User_accounts where User='"&Userusername&"'"
rs.open sql,MM_ServU_STRING,1,1
If Not rs.EOF Or Not rs.BOF Then
dbpassword = rs("Password")
cdbpassword = left(dbpassword,2) & md5(left(dbpassword,2)& UserPassword)
if trim(cdbpassword) <> trim(dbpassword) then
Response.Write("<center>對(duì)不起,密碼錯(cuò)誤!<P><a href='login.asp'>返回登錄頁(yè)面</a></p></center>")
else
session("MM_kasak")=Userusername
Response.Redirect "mycentre.asp"
end if
else
Response.Write("<center>對(duì)不起!你還沒(méi)申請(qǐng)?jiān)搸ぬ?hào),請(qǐng)先申請(qǐng)!<P><a href='reg.asp'>返回申請(qǐng)頁(yè)面</a></p></center>")
end if
%>
<% rs.close
set rs=nothing %>
<% 'end if %>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -