?? productcontent.asp
字號(hào):
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
option explicit
response.buffer=true
'強(qiáng)制瀏覽器重新訪問服務(wù)器下載頁面，而不是從緩存讀取頁面
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<!--#include file=conn.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 ArticleID,sql
Action=trim(request("Action"))
ArticleID=trim(request("id"))
if Action="Modify" then
if ArticleId="" then
response.write "請(qǐng)指定要修改的文章ID"
else
ArticleID=Clng(ArticleID)
sql="select * from Bs_Product where ArticleID=" & ArticleID & ""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "找不到產(chǎn)品"
else
response.write "<p>" & rs("bs_Content") & "</p>"
end if
rs.close
set rs=nothing
end if
end if
%>
</body>
</html>
<%
call CloseConn()
%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -