📄 wap10_dispms.asp
字号:
<%
msid=Request("id")
fromu=Request("fuser")
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 newcontext="true">
<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 content From sanchat_mss where id=" & msid
rs.open sql,conn,3,3
if rs.eof<>true then
Response.write rs("content")
end if
%>
<br/>
<%=Uni("发给")%>
<input name="touser" type="text" value="<%=fromu%>" />
<%=Uni("信息")%>
<input name="mscontent" type="text" value="" />
<br/>
<do type="accept" label="<%=Uni("提交")%>">
<go href="wap10_postms.asp" method="post" accept-charset="UTF-8">
<postfield name="mscont" value="<%=CrackStr("$(mscontent)")%>"/>
<postfield name="tuser" value="$(touser)"/>
<postfield name="pass" value="<%=passWord%>"/>
<postfield name="fuser" value="<%=userName%>"/>
</go>
</do>
</p>
<%
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
<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 CrackStr(Byval Chinese)
CrackStr = Chinese + Uni("_")
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
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -