📄 protextbox.asp

📁 凡人网络购物系统 v8.0 中文版
💻 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">
<%
if Request("hw_id")="" and request("news_id")="" and request("htmlc")="" and request("info_id")="" and request("a_id")="" and request("huo_id")="" then
elseif  Request("hw_id")<>"" then
id=Request("hw_id")
set rs=server.createobject("adodb.recordset")
rs.open "select * from venshop_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("news_id")<>"" then
news_id=Request("news_id")
set rs=server.createobject("adodb.recordset")
rs.open "select * from news where news_id="&news_id&"",conn,1,3
	If Not rs.Eof Then
	content=rs("news_content")
	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
end if
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -