?? 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 "Please appoint product ID"
else
ID=Clng(ID)
sql="select * from Productwygk where ID=" & ID & ""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "have not found product"
else
response.write "<p>" & rs("Content") & "</p>"
end if
rs.close
set rs=nothing
end if
case "News"
if ID="" then
response.write "Please appoint News ID"
else
ID=Clng(ID)
sql="select * from Newswygk where ID=" & ID & ""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "have not found news"
else
response.write "<p>" & rs("Content") & "</p>"
end if
rs.close
set rs=nothing
end if
case "Down"
if ID="" then
response.write "Please appoint down 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 "have not fond anything"
else
response.write "<p>" & rs("Content") & "</p>"
end if
rs.close
set rs=nothing
end if
end select
%>
</body>
</html>
<%
call CloseConn()
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -