网络商店源码 实现商品浏览 购物车 后台管理等

				
				
				
				
				
				
				
				
				
				
								Action=LCase(Request.QueryString("Action"))
				newsID=Request.QueryString("newsID")
				
				If request("action")="modify" 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
				%>