protextboxt.asp 运动用品商城网站系统源代码程序 - ASP源码程序

www.gusucode.com > 运动用品商城网站系统源代码程序 > feyok/protextboxt.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_hwt 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

%>