<!-- #include file="../conn.asp" -->
<!-- #include file="cls_main.asp" -->
<%  
dim Mesky,URL , ID , CommentTpye
	URL = ""

Set Mesky = New Cls_Main


Mesky.LoadSetting()

    CommentTpye = Request("CommentTpye")
	ID = (Request("ID"))
	ID = INT(id)
	
	if IsNumeric(CommentTpye) then
	    CommentTpye = int(CommentTpye)
	else
		CommentTpye = 0
	end if
	
	
	if CommentTpye = 0 then  '软件
	   strSQL = "select id,catalogID  from Mesky_Down_Resource where ID = " & id
	   
	
	   
		 Set sRs = Mesky.Execute(strSQL)
		 If Not (sRs.EOF And sRs.BOF) Then
		 
		 
            cFileName=  Mesky.ReadResFileMb(0 ,sRs(1) ,0 , "Mesky_Down_Catalog" ,"SoftTempPath" ,  77)
		    URL    =  Replace(cFileName, "{$id}", ID) 
		 End if
	end if
	
	
	if CommentTpye = 1 then '文章
	
	 strSQL = "select id,catalogID  from Mesky_Cms_Resource where ID = " & id
		 Set sRs = Mesky.Execute(strSQL)
		 If Not (sRs.EOF And sRs.BOF) Then
			
			cFileName=  Mesky.ReadResFileMb(0 ,sRs(1) ,0 , "Mesky_Cms_Catalog" ,"SoftTempPath" ,  101)
			URL=   Replace(cFileName, "{$id}", ID & TempCmsFileName)

		 End if
	
	end if
	
	
	if CommentTpye = 2 then  '专题
	
	   strSQL ="select Title,SpacesType , URL , FileName , Content from Mesky_HtmlPage where id=" &  id
			Set sRs = Mesky.Execute(strSQL)
			If Not (sRs.EOF And sRs.BOF) Then
			 if sRs(1) = 0 then
			  URL = sRs(3)
			 end if 
			 
			  if sRs(1) = 1 then
			   URL = sRs(2)
			   if instr(URL,"https://")=0 then URL = "https://" & URL
			  end if 
			end if
			sRs.close()
	
	end If

	if CommentTpye = 5 then  'K
	   strSQL =" select sname from soft_about  where id=" &  id
		Set sRs = Mesky.Execute(strSQL)
		If Not (sRs.EOF And sRs.BOF) Then
			URL=KeyWord_path&sRs(0)
		end if
		sRs.close()
	end if
	

   if URL = "" then
    Response.Write("没有记录")
   else
  	Response.Redirect(URL)
   end if
   
  ' Response.Write(URL)

 %>