www.gusucode.com > 运动用品商城网站系统源代码程序 > feyok/protextboxj.asp
<!--#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"> <% host=lcase(request.servervariables("HTTP_HOST")) if Request("hw_id")="" and request("htmlc")="" and request("info_id")="" and request("a_id")="" and request("huo_id")="" and request("zp_id")="" then elseif Request("hw_id")<>"" then id=Request("hw_id") set rs=server.createobject("adodb.recordset") rs.open "select * from venshop_hwj 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 venshop_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 venshop_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 venshop_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")="t" then set rs=server.createobject("adodb.recordset") rs.open "select top 1 * from venshop_venad",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 venshop_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 venshop_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 venshop_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 venshop_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 end if %>