<%
sql="select keyno,title from miscell where state='1' and classcode='400' order by sortnum asc"
rs.Open sql,cn,1,1
do while not rs.EOF
if keyno="" then keyno=rs(0)
if cstr(keyno)=cstr(rs(0)) then
%>
<%else%>
<%
end if
rs.MoveNext
loop
rs.Close
%>
|
免费咨询热线：
<%
sql="select * from sys_dept order by flag desc,sortnum "
rs.Open sql,cn,1,1
i=1
do while not rs.EOF and i<=2
%>
（<%=trim(rs("shortname"))%>） <%=trim(rs("phone"))%>
<%
i=i+1
rs.MoveNext
loop
rs.Close
%>
|
|
|
|
|
<%
if keyno<>"" then
sql="select * from miscell where state='1' and keyno="&keyno
else
sql="select * from miscell where state='1' and classcode='400' order by sortnum"
end if
rs.Open sql,cn,1,3
if not rs.EOF then
title=trim(rs("title"))
sortnum=rs("sortnum")
content=trim(rs("content"))
querycount=trim(rs("querycount"))
newsform=trim(rs("newsform"))
author=trim(rs("author"))
classcode=rs("classcode")
picflag=rs("picflag")
picflag2=rs("picflag2")
flag=rs("flag")
website=trim(rs("website"))
basclass=rs("basclass")
creadate=rs("creadate")
rs("querycount")=rs("querycount")+1
picalign=trim(rs("picalign"))
infocount=rs("infocount")
rs.Update
else
Response.End
end if
rs.Close
%>
|
|
