📄 panduan.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Conn.asp" -->
<%
Dim gl__MMColParam
gl__MMColParam = "1"
If (Request("name") <> "") Then
gl__MMColParam = Request("name")
End If
%>
<%
Dim gl__aaaa
gl__aaaa = "1"
If (Request("pasd") <> "") Then
gl__aaaa = Request("pasd")
End If
%>
<%
Dim gl
Dim gl_numRows
Set gl = Server.CreateObject("ADODB.Recordset")
gl.ActiveConnection = MM_logo_STRING
gl.Source = "SELECT * FROM denglu WHERE name = '" + Replace(gl__MMColParam, "'", "''") + "' AND pasd ='" + Replace(gl__aaaa, "'", "''") + "'"
gl.CursorType = 0
gl.CursorLocation = 2
gl.LockType = 1
gl.Open()
gl_numRows = 0
%><%if not gl.eof then
session("tc_id")="0231"
response.Redirect("ok.asp")
end if%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>xmuu.net网址</title>
<link href="STYLE.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#339999" leftmargin="0" topmargin="3">
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="zi"><div align="center"><font color="#FF6633"><br>
<br>
<br>
<br>
</font>管理提示：您输入的姓名或密码不正确，请<font color="#FFFFFF"><a href="logo.asp" class="zi"><font color="#0000FF">返回</font></a></font>重新输入。</div></td>
</tr>
</table>
</body>
</html>
<%
gl.Close()
Set gl = Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -