www.gusucode.com > 绿色环保工作企业网站源码程序 > ProductContent.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% option explicit response.buffer=true '强制浏览器重新访问服务器下载页面,而不是从缓存读取页面 Response.Buffer = True Response.Expires = -1 Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" %> <!--#include file="inc/conn.asp"--> <!--#include file="admin/admin.asp"--> <!--#include file="inc/function.asp"--> <html> <head> <meta http-equiv=Content-Type content="text/html; charset=gb2312"> <style type="text/css">body {font-size: 9pt}</style> </head> <BODY bgcolor="#FFFFFF" MONOSPACE> <% dim Action,FoundErr,ErrMsg dim ID,sql,rs Action=trim(request("Action")) ID=trim(request("ID")) select case Action case "Modify" if ID="" then response.write "请指定要修改的产品ID" else ID=Clng(ID) sql="select * from Product where ID=" & ID & "" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.bof and rs.eof then response.write "找不到产品" else response.write "<p>" & rs("Content") & "</p>" end if rs.close set rs=nothing end if case "News" if ID="" then response.write "请指定要修改的新闻ID" else ID=Clng(ID) sql="select * from News where ID=" & ID & "" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.bof and rs.eof then response.write "找不到新闻" else response.write "<p>" & rs("Content") & "</p>" end if rs.close set rs=nothing end if case "Down" if ID="" then response.write "请指定要修改的下载ID" else ID=Clng(ID) sql="select * from Download where ID=" & ID & "" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.bof and rs.eof then response.write "找不到下载" else response.write "<p>" & rs("Content") & "</p>" end if rs.close set rs=nothing end if end select %> </body> </html> <% call CloseConn() %>