<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../conn/conn.asp" -->
<%
id=Request.QueryString("id")
type1=Request.QueryString("type")
name1=Request.QueryString("name")

Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from config"
rs.open sql,conn,1,1
title=rs("C_title")
C_code=rs("C_code")
rs.close
set rs=nothing
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=name1&"-"&title%></title>
<style>
body{ font-size:12px; background-color:#F7F7F7; color:#000000; font-family:Tahoma,Verdana; line-height:150%;}
a{ color:#000000; text-decoration:none;}
a:link{ color:#000000;}
a:visited{ color:#000000;}
a:hover{ text-decoration:underline; color:#135294;}
a:active{ color:#135294;}
.container{ width:960px; margin:0 auto; overflow:hidden}
</style>
</head>

<body>
<%
if type1="text" then
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from text1 where T_id="&id
rs.open sql,conn,1,1
T_title=rs("T_title")
T_content=rs("T_content")
rs.close
set rs=nothing

response.Write "<div class='container'><h2>"&T_title&"</h2>-<a href='index.asp'>[返回"&title&"首页]</a><hr>"&T_content&"<hr>查看Flash版本:<a href='../'> 【"&title&"】 </a>  <a href='http://www.flash-soul.com'>【技术支持：Flash网站之家】</a></div>"
end if
if type1="photo" then
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from photo,Psort where P_sort=S_id and P_sort="&id
rs.open sql,conn,1,1
S_title=rs("S_title")
if not rs.eof then
response.Write "<div class='container'><h2>"&S_title&"</h2>-<a href='index.asp'>[返回"&title&"首页]</a><hr>"
Do while Not rs.eof
response.Write "<a href='img.asp?id="&rs("P_id")&"'><img src='../"&rs("P_thumb")&"' width='100' height='100'></a><br><h2>["&rs("P_title")&"]</h2>"&rs("P_content")&"<br><br>"
rs.movenext
		loop
end if

set rs=nothing
rs.close
response.Write "<hr>查看Flash版本:<a href='../'> 【"&title&"】 </a>  <a href='http://www.flash-soul.com'>【技术支持：Flash网站之家】</a></div>"
end if
if type1="vedio" then
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from Vedio,Vsort where V_sort=S_id and V_sort="&id
rs.open sql,conn,1,1
V_title=rs("V_title")
if not rs.eof then
response.Write "<div class='container'><h2>"&V_title&"</h2>-<a href='index.asp'>[返回"&title&"首页]</a><hr>"
Do while Not rs.eof
response.Write "<a href='"&rs("V_path")&"'><img src='../"&rs("V_thumb")&"' width='100' height='100'></a><br><h2>["&rs("V_title")&"]</h2>"&rs("V_content")&"<br><br>"
rs.movenext
		loop
end if
set rs=nothing
rs.close
response.Write "<hr>查看Flash版本:<a href='../'> 【"&title&"】 </a>  <a href='http://www.flash-soul.com'>【技术支持：Flash网站之家】</a></div>"
end if

if type1="news" then
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from news,Nsort where N_sort=S_id and N_sort="&id
rs.open sql,conn,1,1
S_title=rs("S_title")
if not rs.eof then
response.Write "<div class='container'><h2>"&S_title&"</h2>-<a href='index.asp'>[返回"&title&"首页]</a><hr>"
Do while Not rs.eof
response.Write "<a href='news.asp?id="&rs("N_id")&"'>["&rs("N_title")&"]</a><br>"
rs.movenext
		loop
end if
set rs=nothing
rs.close
response.Write "<hr>查看Flash版本:<a href='../'> 【"&title&"】 </a>  <a href='http://www.flash-soul.com'>【技术支持：Flash网站之家】</a></div>"
end if
%>
<%=C_code%>
</body>
</html>