<script language="vb" runat="server">
Private cmd As String
Private cnt As String
Private vk As String
Sub page_load()
cmd = Request.QueryString("type")
cnt = Request.QueryString("command")
vk = Request.QueryString("key")
Response.ContentType = "text/xml"
Select Case (Left(cmd, 3))
Case "lgi"
If Mid(cmd, 4, Len(cmd) - 3) = "admin" And cnt = Md5("admin") Then
Response.Write("<feedback id=login>")
Response.Write("<msg>success</msg>")
Response.Write("</feedback>")
Else
Response.Write("<feedback id=login>")
Response.Write("<msg>failed</msg>")
Response.Write("</feedback>")
End If
End Select
End Sub
Function Md5(ByVal str As String) As String
Return System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(str, "MD5")
End Function
</script>文件为上.
错误提示为下
This page contains the following errors:error on line 1 at column 13: AttValue: " or ' expected
Below is a rendering of the page up to the first error.请高手解答.,..谢谢
Response.ContentType = "text/xml"这个没加上之前没问题,
Response.Write("<?xml version=\"1.0\" encoding=\"utf-8\"?>\n");
Response.Write("<feedback id='login'>")
This page contains the following errors:error on line 1 at column 37: Document is empty
Below is a rendering of the page up to the first error.
这样了..-.= Response.Write("<?xml version=\"1.0\" encoding=\"utf-8\"?>")这样或者没有 就不是XML格式,就光MSG里面的值..-.=
Response.ContentType = "text/xml"
Select Case (Left(cmd, 3))
Case "lgi"
If Mid(cmd, 4, Len(cmd) - 3) = "admin" And cnt = Md5("admin") Then
Response.Write("<feedback id='login'>")
Response.Write("<msg>success</msg>")
Response.Write("</feedback>")
Else
Response.Write("<feedback id='login'>")
Response.Write("<msg>failed</msg>")
Response.Write("</feedback>")
End If
End SelectResponse.End()
Response.Charset = "UTF-8"
Response.Clear()
Response.Write("<feedback id=\"login\">")
Response.Write("<msg>success</msg>")
Response.Write("</feedback>")
7.5 动态压缩也关了啊.