您所在位置：主题：[讨论]请指定要修改的文章ID asp后台编辑器修改时无法显示
csems
[专家分：0] 发布于 2008-04-30 09:05:00
我网站的后台在修改产品展示时，在编辑器里显示：请指定要修改的文章ID 使得我无法修改产品的图片和内容 希望得到高手的帮助 不甚感谢啊 下面是相关的代码 ：
<%@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 ArticleID,sql,rs
Action=trim(request("Action"))
ArticleID=trim(request("ArticleID"))
if Action="Modify" then
if ArticleId="" then
response.write "请指定要修改的文章ID"
else
ArticleID=Clng(ArticleID)
sql="select * from Products where ArticleID=" & ArticleID & ""
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 if
%>
</body>
</html>
<%
call CloseConn()
%>
<%@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 ArticleID,sql,rs
Action=trim(request("Action"))
ArticleID=trim(request("ArticleID"))
if Action="Modify" then
if ArticleId="" then
response.write "请指定要修改的文章ID"
else
ArticleID=Clng(ArticleID)
sql="select * from Products where ArticleID=" & ArticleID & ""
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 if
%>
</body>
</html>
<%
call CloseConn()
%>
