📄 dl.asp

📁 wap系统程序源码用户名密码:admin

💻 ASP

字号:

<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %><% Response.ContentType="text/vnd.wap.wml; charset=utf-8" %><?xml version="1.0" encoding="utf-8"?><!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<!--#INCLUDE VIRTUAL="/bbs/conn.inc"-->
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head>
<%dim glsb
glsb=request.querystring("glsb")
if glsb<>"" then
  set objgbrs=Server.CreateObject("ADODB.Recordset")
  ssql="select * from 66hc_gr where grsb=" & Sqlstr(glsb)
  objgbrs.open ssql,conn
if objgbrs.eof then
response.redirect "66hc_grdl.asp"
response.end
else
if glsb=objgbrs("grsb") then
phone=objgbrs("sjhm")
pass=objgbrs("dlmm")
response.redirect "index.asp?glsb="&glsb
response.Cookies("glsb")=glsb
end if
end if
end if
set objgbrs=nothing
conn.close
set conn=nothing
function sqlstr(data)
   sqlstr="'" & Replace(data,"'","'") & "'"
  End function
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -