📄 view.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 file="conn.inc"-->
<%
dim id
cz=request("cz")
cw=request("cw")
pagegg=request.QueryString("pagegg")
if pagegg="" then pagegg="1"
id=usb(request.QueryString("id"))
set npp=Server.CreateObject("ADODB.Recordset")
rspl="select * from 66hc_xx where id="&id
npp.open rspl,conn
if not npp.eof then

sql="update [66hc_xx] set k=k+1 Where id="&id
  conn.Execute(sql)%>
<wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="<%=npp("name")%>">
<p>
名称<%=ubb(npp("name"))%><br/>
<img src='<%=ubb(npp("pic"))%>' alt=''/><br/>
介绍<%=ubb(npp("txt"))%><br/>
价格<%=ubb(npp("jg"))%><br/>
店主<%=ubb(npp("fid"))%><br/>
联系<%=ubb(npp("lx"))%><br/>

<a href='list.asp?xid=<%=npp("xid")%>&amp;id=<%=npp("lid")%>'>回到上级</a><br/>
<a href="/index.asp">易购商城</a>
<%
end if
npp.close
set npp=nothing
conn.close
set conn=nothing
%>
</p>
</card>
</wml>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -