<?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&amp;password=305405&amp;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  一个非常简单的代码  大家帮忙看看吧   错误类型：
Microsoft VBScript 编译器错误 (0x800A03F6)
缺少 'End'
/login.asp, 第 72 行

昨天写了三小时  刚接触编程  代码写的比较乱  大家帮下忙吧

最后那个call endwml()那里

问题又来了  

<%
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","用户登陆")
%>

变量cardna、tit插入时错误  我很不懂这个

[ 本帖最后由 jocket12 于 2010-12-25 12:03 编辑 ]