?? wap10_delms.asp
字號:
<%
msid=Request("id")
userName=Request("user")
passWord=Request("pass")
intTime=gen_key(10)
Response.ContentType="text/vnd.wap.wml"
%>
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<card>
<p>
<%
Set conn=Server.CreateObject("ADODB.connection")
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("mssdata.mdb")
conn.Open
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select user From sanchat_users where user='" &userName& "' and pass='" &passWord& "'"
rs.open sql,Conn,3,3
if rs.eof<>true then
'認證通過 開始刪除
'認證通過 開始查找最新收到的信息
rs.close
sql="select tou From sanchat_mss where id=" &msid
rs.open sql,Conn,3,3
if strcomp(rs("tou"),userName)=0 then
sql="Delete From sanchat_mss where id=" &msid
conn.execute(sql)
end if
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
</p>
<%
reurl="login.asp?name="&userName&"&pass="&passWord&"&time="&intTime
response.redirect(reurl)
%>
<a href="login.asp?name=<%=userName%>&pass=<%=passWord%>&time=<%=intTime%>">
<%
Response.write Uni("返回")
%>
</a>
</card>
</wml>
<%
Function Uni(Byval Chinese)
Dim i
For i = 1 to Len (Chinese)
A=Mid(Chinese, i, 1)
Uni=Uni & "&#x" & Hex(Ascw(A)) & ";"
Next
End Function
Function gen_key(digits)
'Create and define array
dim char_array(50)
char_array(0) = "0"
char_array(1) = "1"
char_array(2) = "2"
char_array(3) = "3"
char_array(4) = "4"
char_array(5) = "5"
char_array(6) = "6"
char_array(7) = "7"
char_array(8) = "8"
char_array(9) = "9"
char_array(10) = "A"
char_array(11) = "B"
char_array(12) = "C"
char_array(13) = "D"
char_array(14) = "E"
char_array(15) = "F"
char_array(16) = "G"
char_array(17) = "H"
char_array(18) = "I"
char_array(19) = "J"
char_array(20) = "K"
char_array(21) = "L"
char_array(22) = "M"
char_array(23) = "N"
char_array(24) = "O"
char_array(25) = "P"
char_array(26) = "Q"
char_array(27) = "R"
char_array(28) = "S"
char_array(29) = "T"
char_array(30) = "U"
char_array(31) = "V"
char_array(32) = "W"
char_array(33) = "X"
char_array(34) = "Y"
char_array(35) = "Z"
'Initiate randomize method for default seeding
randomize
'Loop through and create the output based on the the variable passed to
'the function for the length of the key.
do while len(output) < digits
num = char_array(Int((35 - 0 + 1) * Rnd + 0))
output = output + num
loop
'Set return
gen_key = output
End Function
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -