<% Option Explicit %>
<!--#include file="inc/Cls_DB.asp" -->
<%
'==============================================================================
'软件名称：风讯新闻采集系统V1.0
'最新更新：2004.12
'==============================================================================
'商业注册联系：028-85098980-601,602 技术支持：028-85098980-606、607,客户支持：608
'产品咨询QQ：159410,655071,66252421
'技术支持:所有程序使用问题，请提问到bbs.foosun.net我们将及时回答您
'程序开发：风讯开发组 & 风讯插件开发组
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.net  演示站点：test.cooin.com    
'网站建设专区：www.cooin.com
'==============================================================================
'免费版本请在新闻首页保留版权信息，并做上本站LOGO友情连接
'==============================================================================
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing

Dim RsEditObj,EditSql,SiteID,StepIndex
StepIndex = Request("StepIndex")
Set RsEditObj = Server.CreateObject ("ADODB.RecordSet")
SiteID = Request("SiteID")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>查看内容</title>
</head>
<link href="Inc/Collect.css" rel="stylesheet">
<body>
<%
if SiteID <> "" then
	EditSql="Select * from Site where ID=" & SiteID
	RsEditObj.Open EditSql,Conn,1,3
	if RsEditObj.Eof then
		Response.write("没有查看的站点")
	else
		Select StepIndex
			Case "1"

			Case "2"
			
			Else
				Response.write("没有查看的站点")
		End Select
	end if
else
	Response.write("没有查看的站点")
end if
%>
</body>
</html>
<%
Set Conn = Nothing
%>