<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> 
<!--#include virtual="/inc/MD5.asp"--> 
<!--#include virtual="/Inc/conn.asp" --> 

<% 
'16 md5 1234656789 323b453885f5181f 
' discuz 25f9e794323b453885f5181f1b624d0b 
'Response.Write(Md5("123456789")) 
'Response.Write("Cookie："&Request.Cookies("dnt")("userid")) 
Dim userName:userName = Request.Form("userName") 
Dim passWord:passWord = Request.Form("passWord") 

Set objRs = conn.execute("select * from Member_User where UserName = '"&userName"'") 
If Not objRs.Eof Then 
Response.Write(objRs("UserPassword")) 

Set conn2 = server.CreateObject("ADODB.Connection") 
conn2.open "Provider = Sqloledb; User ID = sa; Password = 123456; Initial Catalog = dnt; Data Source = MWW/SQLEXPRESS;" 


Set objRs2 = conn2.execute("select * from [dnt_users] where username='"&Username"'") 
If Not objRs2.Eof Then 
Response.Write("<br />"&objRs2("uid")"<br />") 
Response.Write(objRs2("password")"<br />") 
Response.Write(objRs2("tpp")"<br />") 
Response.Write(objRs2("ppp")"<br />") 
Response.Write(objRs2("pmsound")"<br />") 
Response.Write(objRs2("invisible")"<br />") 
Response.Write(objRs2("sigstatus")"<br />") 

'userid=2&password=0P273vMb%2bonHszSw%2fTtGpb%2fz4pB7CbWl&avatar=avatars%5ccommon%5c0.gif&tpp=0&ppp=0&pmsound=1&invisible=0&referer=index.aspx&sigstatus=1&expires=-1 
'產(chǎn)生cookie 
Response.Cookies("dnt")("userid") = objRs2("uid") 
Response.Cookies("dnt")("password") = objRs2("password") 
Response.Cookies("dnt")("tpp") = objRs2("tpp") 
Response.Cookies("dnt")("ppp") = objRs2("ppp") 
Response.Cookies("dnt")("pmsound") = objRs2("pmsound") 
Response.Cookies("dnt")("invisible") = objRs2("invisible") 
Response.Cookies("dnt")("referer") = "index.aspx" 
Response.Cookies("dnt")("sigstatus") = objRs2("sigstatus") 
'Response.Cookies("dnt")("expires") = Expires 
'if Expires<>0 then 
'Response.Cookies("dnt").Expires = DateAdd("N", Expires, Now()) 
'end if 
Response.Cookies("dnt").Domain = ".ejia.com" '修改為你的域名,注意前面帶.(點) 

Response.Cookies("dnt").Secure = False 



End If 
objRs2.close 
set objRs2 = nothing 
conn2.Close 
set conn2 = nothing 

End If 
objRs.close 
set objRs = nothing 
conn.close 
Set conn = nothing 
%> 
<form action="cookie.asp" method="post"> 
用戶名：<input type="text" name="userName" /><br /> 
密碼：<input type="text" name="passWord" /> 
<input type="submit" value="登陸" /> 
</form>