textbox.asp

来自「购物系统(本版为正式商业版」· ASP 代码 · 共 59 行

<!--
┌─9911.com.cn────────────┐
│  动感购物 WWW.9911.com.cn 版权所有  │
│  动感购物2005Vb  联系：[e-mail] │
└───────────9911.com.cn──┘
-->
<!--#include file="conn.asp" -->
<!--#include file="fuction.asp"-->
<%if session("username")="" and session("admin")="" then%>
<script language="javascript">
 window.alert("警告：非法操作！");
 window.close();
</script>
<%response.end
end if%>
<%=session("content")%>
<%
Action=nosql(LCase(Request.QueryString("Action")))
newsID=nosql(Request.QueryString("newsID"))
shopID=nosql(Request.QueryString("shopID"))
lx=nosql(Request.QueryString("lx"))
newsID=nosql(Request.QueryString("newsID"))
If request("action")="zhuantiedit" Then
set rs=server.createobject("adodb.recordset")
sql="select * From shop_zhuanti where newsid="&newsid
rs.open sql,conn,1,1
	If Not rs.Eof Then
		Content=rs("Content")
	End If
	Response.Write Content
End If
If request("action")="editsn" Then
set rs=server.createobject("adodb.recordset")
sql="select * from shop_snsn where shopid="&shopid
rs.open sql,conn,1,1
	If Not rs.Eof Then
		Content=rs("shopcontent")
	End If
	Response.Write Content
End If
If request("action")="vip" Then
set rs=server.createobject("adodb.recordset")
sql="select "&lx&" from shop_config "
rs.open sql,conn,1,1
	If Not rs.Eof Then
		Content=rs(0)
	End If
	Response.Write Content
	End If
	If request("action")="news" Then
set rs=server.createobject("adodb.recordset")
sql="select * from shop_news where newsid="&newsid
rs.open sql,conn,1,1
	If Not rs.Eof Then
		Content=rs("newscontent")
	End If
	Response.Write Content
End If
%>