手机WAP编程

开发平台：

ASP/ASPX

Add_Message.Asp：源码内容

							﻿<!--#include file="../wml.ini"-->
<%  
call wmlbegin("发表留言","wrap")
wapcks=request("wapcks")
%>
<%
Dim zNum,i,j
Dim Ados,Ados1
Randomize timer
zNum = cint(8999*Rnd+1000)
Session("gg") = zNum
Session.Timeout=5
Dim zimg(4),NStr
NStr=cstr(zNum)
For i=0 To 3
zimg(i)=cint(mid(NStr,i+1,1))
Next
%>
您的昵称<br/>
<input name="Name<%=minute(now)%><%=second(now)%>" size="15" maxlength="10" value=""/><br/>
留言标题<br/>
<input name="Title<%=minute(now)%><%=second(now)%>" size="15" maxlength="20" value=""/><br/>
留言内容<br/>
<input name="Content<%=minute(now)%><%=second(now)%>" size="15" maxlength="500" value=""/><br/>
联系方法(不公开)<br/>
<input name="Relation<%=minute(now)%><%=second(now)%>" size="15" maxlength="50" value="<%=request.cookies("mobile")%>"/><br/>
密码(用于修改留言)<br/>
<input name="Pass<%=minute(now)%><%=second(now)%>" size="15" maxlength="50" value=""/><br/>
验证码:<br/>
<input name="wapcks<%=minute(now)%><%=second(now)%>" size="5" maxlength="4"/><%=Session("gg")%><br/>
<anchor>确定提交<go method="get" href="Add_Messagecl.Asp">
<postfield name="Name" value="$(Name<%=minute(now)%><%=second(now)%>)"/>
<postfield name="Title" value="$(Title<%=minute(now)%><%=second(now)%>)"/>
<postfield name="Content" value="$(Content<%=minute(now)%><%=second(now)%>)"/>
<postfield name="Relation" value="$(Relation<%=minute(now)%><%=second(now)%>)"/>
<postfield name="Pass" value="$(Pass<%=minute(now)%><%=second(now)%>)"/>
<postfield name="wapcks" value="$(wapcks<%=minute(now)%><%=second(now)%>)"/>
</go>
</anchor><br/>
<%
call wap.navs("留言本,index.asp|发表留言,")
call wmlend
%>

						