<!--#include file="conn.asp"-->
<!--#include file="ad_chk.asp"-->
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<link href=inc/css.css rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
if Request("hw_id")="" and request("htmlc")="" and request("info_id")="" and request("a_id")="" and request("huo_id")="" and request("zp_id")="" and request("pinpai_id")="" then
elseif  Request("hw_id")<>"" then
id=Request("hw_id")
set rs=server.createobject("adodb.recordset")
rs.open "select * from WrzcNethtml_hw where hw_id="&id&"",conn,1,3
If Not rs.Eof Then
content=rs("hw_content2")
Response.Write content
End If
rs.close
set rs=nothing
elseif  Request("htmlc")="xieyi" then
set rs=server.createobject("adodb.recordset")
rs.open "select * from WrzcNethtml_system",conn,1,3
If Not rs.Eof Then
content=rs("reg")
Response.Write content
End If
rs.close
set rs=nothing
elseif  Request("htmlc")="emailr" then
set rs=server.createobject("adodb.recordset")
rs.open "select * from WrzcNethtml_system",conn,1,3
If Not rs.Eof Then
content=rs("mail_regc")
Response.Write content
End If
rs.close
set rs=nothing
elseif  Request("htmlc")="emailo" then
set rs=server.createobject("adodb.recordset")
rs.open "select * from WrzcNethtml_system",conn,1,3
If Not rs.Eof Then
content=rs("mail_orderc")
Response.Write content
End If
rs.close
set rs=nothing
elseif  Request("htmlc")="emailf" then
set rs=server.createobject("adodb.recordset")
rs.open "select * from WrzcNethtml_system",conn,1,3
If Not rs.Eof Then
content=rs("mail_fahuoc")
Response.Write content
End If
rs.close
set rs=nothing
elseif  Request("htmlc")="t" then
set rs=server.createobject("adodb.recordset")
rs.open "select top 1 * from WrzcNethtml_WrzcNetad",conn,1,1
If Not rs.Eof Then
content=rs("t_content")
Response.Write content
End If
rs.close
set rs=nothing
elseif Request("a_id")<>"" then
set rs=server.createobject("adodb.recordset")
a_id=Request("a_id")
rs.open "select * from WrzcNethtml_article where id="&a_id&"",conn,1,1
If Not rs.Eof Then
content=rs("a_content")
Response.Write content
End If
rs.close
set rs=nothing
elseif Request("huo_id")<>"" then
set rs=server.createobject("adodb.recordset")
huo_id=Request("huo_id")
rs.open "select * from WrzcNethtml_huo where huo_id="&huo_id&"",conn,1,1
If Not rs.Eof Then
content=rs("huo_content")
Response.Write content
End If
rs.close
set rs=nothing
elseif  Request("info_id")<>"" then
set rs=server.createobject("adodb.recordset")
info_id=Request("info_id")
rs.open "select * from WrzcNethtml_book where id="&info_id&"",conn,1,3
If Not rs.Eof Then
content=rs("nr")
Response.Write content
End If
rs.close
set rs=nothing
elseif  Request("zp_id")<>"" then
set rs=server.createobject("adodb.recordset")
zp_id=Request("zp_id")
rs.open "select * from WrzcNethtml_zp where zp_id="&zp_id&"",conn,1,3
If Not rs.Eof Then
content=rs("zp_content")
Response.Write content
End If
rs.close
set rs=nothing
elseif  Request("pinpai_id")<>"" then
set rs=server.createobject("adodb.recordset")
pinpai_id=Request("pinpai_id")
rs.open "select * from WrzcNethtml_pinpai where pinpai_id="&pinpai_id&"",conn,1,3
If Not rs.Eof Then
content=rs("pinpai_content")
Response.Write content
End If
rs.close
set rs=nothing
end if
%>