sbcs.asp
来自「wap系统程序源码 用户名密码:admin」· ASP 代码 · 共 36 行
ASP
36 行
<% @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">
<% LANGUAGE="VBSCRIPT" %>
<%
db1="/sc/66hc@net.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
conn.CommandTimeOut = 1200
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db1)
conn.mode = 3
conn.Open connstr
%>
<wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="识别测试">
<p>
<%
glsb=request("glsb")
set npp=Server.CreateObject("ADODB.Recordset")
rspl="select * from 66hc_gr where CStr(grsb)="&glsb
npp.open rspl,conn,1,2
if npp.eof then
Response.write "无此论坛!<br/>"
Else
Response.write "正常!<br/>"
end if
npp.close
set npp=nothing
%>
************<br/>
<!--#include file="w.asp"-->
</p>
</card>
</wml>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?