index.asp

来自「j2me lan 聊天 server 基于 servlet 使用向导： 」· ASP 代码 · 共 31 行

<%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>
<card>
	<%=Uni("号码")%>
	<input name="username" type="text" value="" />
	<%=Uni("密码")%>
	<input name="password" type="password" value="" />
	<br/>
	<do type="accept" label="<%=Uni("提交")%>">
		<go href="login.asp" method="post" accept-charset="UTF-8">
			<postfield name="name" value="$(username)"/>
			<postfield name="pass" value="$(password)"/>
		</go>
	</do>
</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
%>