<%@ Language=VBScript %>
<%
Response.Expires=0
Response.Buffer=true
'ADO Connection
dim cn
dim sSQL 'SQL string
dim rsMod ' ado content recordset
dim rsPMod ' ado content recordset
dim rs ' ado content recordset
dim sModID
dim sModName
'init object
set rsMod=Server.CreateObject("ADODB.Recordset")
set rsPMod=Server.CreateObject("ADODB.Recordset")
set rs=Server.CreateObject("ADODB.Recordset")
set cn= Server.CreateObject("ADODB.Connection")
'init var
cn.ConnectionString=Application("ConStr")
cn.CursorLocation=3
cn.Open
'sModID="321DB94E-C2A6-4F1B-A9D7-BBB560CC77BC"
sModID=Request("ModID")
if CInt(Application("ModuleClickCount"))=1 then
sSQL="update iModule set Click=Click+1 where ID="+checkString(sModID,"")
cn.Execute sSQL
end if
sSQL="select ID,Name from iModule where ID in (select ParentID from iModule where ID="+checkString(sModID,")")
set rsPMod=cn.Execute(sSQL)
sSQL="select ID,Descr,Name from iModule where ID="+checkString(sModID,"")
set rsMod=cn.Execute(sSQL)
sModName=rsMod("Name")
sSQL="select iArt.ID,iArt.Type,iArt.Title from iArt where iArt.PublishDate is not null and iArt.Grade<="&Session("UserType")&" and iArt.pNo=0 and iArt.ModuleId="+checkString(sModID,"")+" order by iArt.PublishDate desc"
set rs=cn.Execute (sSQL)
%>
<%=Application("AppTitle")%>
版权所有 北京三鼎体联网络科技有限公司 电话:010-67171178 信箱:contact@cn-tt.com
Copyright? 2000 中国乒乓网 All Rights Reserved 京ICP证:030410
