|
成功案例
<%@ 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
%>
 |
|
|
◆ 中国人民解放军重庆某集团军
◆
中国人民解放军成都某部队指挥中心
◆
中国人民解放军兰州某部队指挥中心
◆
中国人民解放军新疆某部队指挥中心
◆
中国人民解放军某空军模拟作战指挥中心
◆
中国人民解放军某指挥工程学院
◆
中国人民解放军某司令部指挥中心
◆
中国人民解放军某军事指挥基地
◆
中国人民解放军某炮兵部队指挥中心
◆
中国人民解放军某炮兵研究所
◆
中国人民解放军某陆军指挥学院
◆
中国人民解放军海军某工程学院
◆
四川省政府省长办公楼音视频项目
◆
四川电视台广告中心
◆
四川航空股份公司董事会议中心
◆
成都军区联勤部音视频项目
◆
云南溪洛渡水电站指挥操作中心
◆
成都119指挥控制中心
◆
成都市公安局视频会议中心
◆
西藏某部队战勤处作战指挥中心
◆
云南某部队警官培训中心
|
