|
成功案例
<%@ Language=VBScript%>
<%
Response.Buffer=true
Response.Expires=0
%>
<%
dim cn, rs, sql
set cn = Server.CreateObject("adodb.Connection")
set rs = Server.CreateObject("adodb.Recordset")
cn.Open mycnstr
dim classcode, keyno,url
classcode = "108"
url="show.asp"
keyno = Request.QueryString("keyno")
if not isnumeric(keyno) then
keyno = ""
end if
if keyno<>"" then
sql="select * from miscell where state='1' and keyno="&keyno
else
sql="select top 1 * from miscell where classcode='"+classcode+"' and state='1' order by sortnum"
end if
rs.Open sql, cn, 0, 3, 1
if not rs.EOF then
dim title, content, picflag, picflag2, flag, creadate, picalign, infocount
keyno = rs("keyno")
title = trim(rs("title"))
content = trim(rs("content"))
picflag = rs("picflag")
picflag2 = rs("picflag2")
flag = rs("flag")
creadate = rs("creadate")
picalign = trim(rs("picalign"))
infocount = rs("infocount")
else
Response.End
end if
rs.Close
%>
<%
sql = "select keyno, title ,content from miscell where classcode='"&classcode&"' and state='1' order by sortnum"
rs.Open sql, cn, 0, 1, 1
%>
<%
end if
rs.MoveNext
loop
rs.close
%>
 |
|
|
 
|
