|
#2
jocket122010-12-25 11:27
 昨天写了三小时 刚接触编程 代码写的比较乱 大家帮下忙吧 |
程序代码：<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.>
<wml>
<%
dim user,password
user="15970854517"
password="305405"
if request.form("user")=user and request.form("password")=password then
response.write("<card id=""1"" title="""" ontimer=""#true""><time value=""0""/>")
else if request.form("user")="" and request.form("password")="" then
response.write("<card id=""1"" title="""" ontimer=""#main""><time value=""0""/>")
else
response.write("<card id=""1"" title="""" ontimer=""#error""><time value=""0""/>")
end if
%>
<%
sub endwml()
time=now()
response.write("</br><a href=""#main"">返回首页</a></br>")
response.write("优乐报时:""&time&""")
response.Write("</P></card>")
end sub
sub head(cardna,tit)
response.write("<card id=""&cardna&"" title=""&tit&"">")
response.Write("<p align=""center"">")
response.Write("<b>本站服务全免费</b><br/>")
end sub
%>
<%
call head("main","用户登陆")
%>
输入ID或手机号码:<br/>
<input name="user" title="输入注册id或者手机号码（推荐）" type="text" format="*N" emptyok="true" maxlength="500" value=""/></br>
密码：</br>
<input name="password" title="输入密码" type="password" format="*M" emptyok="true" maxlength="500" value=""/></br>
喜欢本站吗？</br>
<select name="like" value="1">
<option value="0">不喜欢</option>
<option value="1">喜欢</option>
</select><br/>
<anchor title="login">登陆
<go href="login.asp?user=15970854517&password=305405&like=yes" method="post">
<postfield name="user" value="$(user)" />
<postfield name="password" value="$(passwoed)" />
<postfield name="like" value="$(like)" />
</go>
</anchor>
<%
call endwml()
%>
<%
call head("ture","登陆成功")
if request.form("like")="yes" then
response.write("恭喜你！登陆成功，感谢你喜欢本站。</br></br>")
else if request.form("like")="no" then
response.write("恭喜你！登陆成功，虽然你不喜欢本站，但我相信时间会让你慢慢的了解我的(*^__^*) 嘻嘻……。</br></br>")
else
response.write("<a href=""#error""></a>")
end if
call endwml()
%>
<card id="error" title="出错啦！" ontimer="#main" time value="3">
<p align="center">
<b>本站服务全免费</b><br/>
登陆失败!3秒后自动跳转到首页。<br/>
<%
call endwml()
%>
</wml>
刚学ASP 一个非常简单的代码 大家帮忙看看吧 错误类型：<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.>
<wml>
<%
dim user,password
user="15970854517"
password="305405"
if request.form("user")=user and request.form("password")=password then
response.write("<card id=""1"" title="""" ontimer=""#true""><time value=""0""/>")
else if request.form("user")="" and request.form("password")="" then
response.write("<card id=""1"" title="""" ontimer=""#main""><time value=""0""/>")
else
response.write("<card id=""1"" title="""" ontimer=""#error""><time value=""0""/>")
end if
%>
<%
sub endwml()
time=now()
response.write("</br><a href=""#main"">返回首页</a></br>")
response.write("优乐报时:""&time&""")
response.Write("</P></card>")
end sub
sub head(cardna,tit)
response.write("<card id=""&cardna&"" title=""&tit&"">")
response.Write("<p align=""center"">")
response.Write("<b>本站服务全免费</b><br/>")
end sub
%>
<%
call head("main","用户登陆")
%>
输入ID或手机号码:<br/>
<input name="user" title="输入注册id或者手机号码（推荐）" type="text" format="*N" emptyok="true" maxlength="500" value=""/></br>
密码：</br>
<input name="password" title="输入密码" type="password" format="*M" emptyok="true" maxlength="500" value=""/></br>
喜欢本站吗？</br>
<select name="like" value="1">
<option value="0">不喜欢</option>
<option value="1">喜欢</option>
</select><br/>
<anchor title="login">登陆
<go href="login.asp?user=15970854517&password=305405&like=yes" method="post">
<postfield name="user" value="$(user)" />
<postfield name="password" value="$(passwoed)" />
<postfield name="like" value="$(like)" />
</go>
</anchor>
<%
call endwml()
%>
<%
call head("ture","登陆成功")
if request.form("like")="yes" then
response.write("恭喜你！登陆成功，感谢你喜欢本站。</br></br>")
else if request.form("like")="no" then
response.write("恭喜你！登陆成功，虽然你不喜欢本站，但我相信时间会让你慢慢的了解我的(*^__^*) 嘻嘻……。</br></br>")
else
response.write("<a href=""#error""></a>")
end if
call endwml()
%>
<card id="error" title="出错啦！" ontimer="#main" time value="3">
<p align="center">
<b>本站服务全免费</b><br/>
登陆失败!3秒后自动跳转到首页。<br/>
<%
call endwml()
%>
</wml>
Microsoft VBScript 编译器错误 (0x800A03F6)
缺少 'End'
/login.asp, 第 72 行
