3
回答
哪位朋友帮我看看这段asp代码啊,错在哪里了
华为云4核8G,高性能云服务器,免费试用   
<% @LANGUAGE = "VBScript" %>


 <!--#include file="../include/const.asp"-->
<%
Select Case Action
Case "Check"
Call Check()
Case else
Call Main 
End Select
Sub Check()
MasterPassword = Replace(MSCMS.ReplaceBadChar(Trim(Request("password"))), ".", "")
If MasterPassword <> MasterPwd Then
FoundErr = True
ErrMsg = ErrMsg & "<li>密码不对"
End If
If FoundErr = True Then '输出错误结果
Call ShowErrMsg(0,ErrMsg, 0)
Else
Response.Cookies(CookieName)("MasterPassword")=MasterPassword
Response.Redirect "index.asp" 
End If
End Sub

%>


<% Sub Main() %>

<input type="text" class="text" value="用户名"name="username" onfocus="this.value = '';" onblur="if (this.value == '') {this.value = '用户名';}" >
<div class="key">
<input type="password" value="Password" name="password" onfocus="this.value = '';" onblur="if (this.value == '') {this.value = 'Password';}">
</div>
</form>
<div class="signin">
<input type="submit" name="sybmit" value="登录" >
</div>
    <% End Sub  %>


PS:为什么会出现Microsoft VBScript 编译器错误 error '800a0400'啊

<无标签>
举报
y10s24t
发帖于2年前 3回/133阅
顶部