手机WAP编程

开发平台：

ASP/ASPX

sbcs.asp：源码内容

							﻿<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><?xml version="1.0" encoding="utf-8"?>
<%response.buffer=true%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"> 
<% LANGUAGE="VBSCRIPT" %>
<%
	db1="/sc/cnscu@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><%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
' 程序制作：横云			  掌上校园收倾心整理收集于互联网,感谢你的支持!
' 升级时间： 2008-2-5  		主页地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com   	客服QQ:554904632 QQ群:30493504 QQ群2:46659883
'====================================================================
%> <head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="识别测试">
<p>
<%
cnscu=request("cnscu")
set npp=Server.CreateObject("ADODB.Recordset")
rspl="select * from cnscu_gr where CStr(grsb)="&cnscu
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>

						