show.asp

WAP文章箮理

<%Response.ContentType = "text/vnd.wap.wml" %>
<?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapfourm.org/DTD/wml_1.1.xml">
<wml>
<card id="index" title="紫外线WAP" newcontext="true">
<p align="center">
<!--#include file="Connections/mdb.asp" -->
<%
Dim con__MMColParam
con__MMColParam = "1"
If (Request.QueryString("id") <> "") Then 
  con__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim con
Dim con_numRows

Set con = Server.CreateObject("ADODB.Recordset")
con.ActiveConnection = MM_mdb_STRING
con.Source = "SELECT * FROM art WHERE id = " + Replace(con__MMColParam, "'", "''") + ""
con.CursorType = 0
con.CursorLocation = 2
con.LockType = 1
con.Open()

con_numRows = 0
%>
<%=(con.Fields.Item("name").Value)%><br/>
<%=(con.Fields.Item("cont").Value)%><br/>
<a href="list.asp?id=<%=(con.Fields.Item("iid").Value)%>">返回</a> <a href="index.asp">主页</a> 
<%
con.Close()
Set con = Nothing
%>
</p>
</card>
</wml>