<%
set rs=server.CreateObject("adodb.recordset")
set rsList=server.CreateObject("adodb.recordset")
BigModule=Request.QueryString("BigModule")
Module =Request.QueryString("Module")
sql="select top 7 BigModule,TopLevel,Title,[Module],Num,DocTime,Id from News where BigModule='webnews' and TopLevel='1' order by num desc"
rsList.open sql,conn,3,1
if not rsList.eof then
Id=rsList("Id")
end if
if (Request.QueryString("Id")<>"") Then
Id=Request.QueryString("Id")
End IF
IF (Module<>"") Then
sql="select * from News where [Module]=" & SqlString(Module)
Else
sql="select * from News where Id=" & Id
End IF
rs.open sql,conn,3,1
if not rs.eof then
Title=trim(rs("Title"))
Detail=trim(rs("Detail"))
end if
%>
手机充值-机票分销-商旅系统-系统介绍
