showinfo.asp

本系统是根据科汛系统编写的程序

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit
response.Buffer=true
%>
<!--#include file="../Conn.asp"-->
<!--#include file="../KS_Cls/KS.UserCls.asp"-->
<!--#include file="../KS_Cls/KS.RCls.asp"-->
<!--#include file="Config.asp"-->
<%

Dim KSCls
Set KSCls = New ShowArticle
KSCls.Kesion()
Set KSCls = Nothing

Class ShowArticle
        Private KS,KSUser, KSRFObj
		Private FileContent,RSObj,SqlStr,PhotoContent,InfoPurview,ReadPoint,ChargeType,PitchTime,ReadTimes
		Private DomainStr,ID,ClassID,UserLoginTF,CurrPage,PayTF,PicUrlsTF

		Private Sub Class_Initialize()
		  Set KS=New PublicCls
		  Set KSUser=New UserCls
		  Set KSRFObj = New Refresh
		End Sub
        Private Sub Class_Terminate()
		 Call CloseConn()
		 Set KS=Nothing:Set KSUser=Nothing
		End Sub
		Public Sub Kesion()
	  	  
		  DomainStr=KS.GetDomain
		  PicUrlsTF=false
		  UserLoginTF=Cbool(KSUser.UserLoginChecked)
		  ID=KS.R(KS.S("ID"))
		 IF ID="" Then Exit Sub
		 SqlStr= "Select * From KS_GQ Where ID=" & KS.ChkClng(ID)
		 Set RSObj=Server.CreateObject("Adodb.Recordset")
		 RSObj.Open SqlStr,Conn,1,1
		 IF RSObj.Eof And RSObj.Bof Then
		  Call KS.Alert("您要查看的信息已删除。或是您非法传递注入参数!",""):Exit Sub
		 End IF
		 
		 Application(KS.SiteSN & "RefreshType") = "GQContent"
		 Application(KS.SiteSN & "RefreshFolderID") = RSObj("Tid")
		 Application(KS.SiteSN & "RefreshInfoID") = RSObj("GQID")

	     FileContent = KSRFObj.LoadTemplate(RSObj("TemplateID"))
		 FileContent = KSRFObj.KSLabelReplaceAll(FileContent)
		  FileContent = KSRFObj.ReplaceGQContent(ChannelID,RSObj, FileContent)
		  Response.write FileContent
		  RSObj.Close:Set RSObj=Nothing
	   End Sub

End Class
%>
<%
'==================================================
'邮箱: [e-mail]		
'网站: www.zxzyw.cn
'==================================================
%>