/list.asp代码页
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN" "http://www.wapforum.org/DTD/xhtml-mobile10.dtd" >
<html xmlns="http://www.w3.org/1999/xhtml">
<!--#include file="conn.inc"-->
<%
mmmm=usb(request("mmmmm"))
id=usb(request("id"))
if id="" then id="0"
set rss=Server.CreateObject("ADODB.Recordset")
rsspl="select * from wap_lm where id="&id
rss.open rsspl,conn,1,2
if rss.eof then 
nxn="出错了"
else
nxn=ubb(rss("nxn"))
txt=ubb(rss("txt"))
mm=ubb(rss("mm"))
yccl=ubb(rss("yc"))
dq=ubb(rss("dq"))
if dq="" then dq="left"
end if
%>
<head>
<meta http-equiv="Content-Type" content="application/vnd.wap.xhtml+xml;charset=UTF-8"/>
<title><%=nxn%></title>
<link href="css.css" rel="stylesheet" type="text/css" />
</head>
<body>
<%
set rs=Server.CreateObject("ADODB.Recordset")
rsppl="select * from wap_lm where lx<>500 and did<>0 and yc<>1 and did="&id&" order by pid asc"
rs.open rsppl,conn,1,2
if rs.eof then 
response.write("栏目建设中。。<br/>")
else%>
<%if mm="0" or mm=mmmm then%>
<%rs.Move(0)
dim j
j=1
do while ((not rs.EOF) and j <=500000)%>
<%if rs("lx")="1" then%>
<%=ubb(rs("txt"))%>
<%elseif rs("lx")="2" then%>
<a href="<%=ubb(rs("txt"))%>"><%=ubb(rs("nxn"))%></a>
<%elseif rs("lx")="3" then%>
<img src="<%=ubb(rs("url"))%>" alt="<%=ubb(rs("nxn"))%>"/>
<%elseif rs("lx")="4" then%>
<a href="<%=ubb(rs("url"))%>"><img src="<%=ubb(rs("txt"))%>" alt="<%=ubb(rs("nxn"))%>"/></a>
<%elseif rs("lx")="5" then%>
<a href="list.asp?id=<%=ubb(rs("id"))%>"><%=ubb(rs("nxn"))%></a>
<%elseif rs("lx")="6" then%>
<a href="view.asp?id=<%=ubb(rs("id"))%>"><%=ubb(rs("nxn"))%></a>
<%elseif rs("lx")="7" then%>
<a href="wml.asp?id=<%=rs("id")%>"><%=ubb(rs("nxn"))%></a>
<%elseif rs("lx")="8" then%>
<%=ubb2(rs("txt"))%>
<%elseif rs("lx")="9" then%>
<%=rs("txt")%>
<%elseif rs("lx")="10" then%>
<a href="wlist.asp?id=<%=rs("id")%>&amp;page=1"><%=ubb(rs("txt"))%></a>
<%elseif rs("lx")="11" then%>
<a href="dowm.asp?id=<%=rs("id")%>"><%=ubb(rs("nxn"))%></a>
<%elseif rs("lx")="12" then%>
<a href="soft.asp?id=<%=ubb(rs("id"))%>&amp;page=1"><%=ubb(rs("nxn"))%></a>
<%elseif rs("lx")="13" then%>
<a href="piclist.asp?id=<%=ubb(rs("id"))%>&amp;page=1"><%=ubb(rs("nxn"))%></a>
<%end if%>
<%if rs("brr")="1" then%><br/><%end if%>
<%
rs.MoveNext
j=j+1
loop
end if
end if%>
<%if mm<>"0" and mm<>mmmm then%>
加密页面！请输入正确密码！<br/>
请输入密码<br/>
<input name="nnmm" title="密码" type="text" maxlength="100" /><br/>
<anchor>
[确定提交]
<go href="list.asp?id=<%=id%>&amp;mkl=<%=time%>" method="post" accept-charset="utf-8">
        <postfield name="mmmmm" value="$(nnmm)"/>
    </go>
</anchor><br/>
<%end if%>
<!--#include file="w.asp"-->
</body>
</html>
相关源码
字母检索
回到顶部