| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 784 人关注过本帖
标题:各位大哥帮忙分析一下这段代码!谢谢了。
取消只看楼主 加入收藏
ozzie
Rank: 1
等 级:新手上路
帖 子:194
专家分:0
注 册:2005-11-25
收藏
 问题点数:0 回复次数:10 
各位大哥帮忙分析一下这段代码!谢谢了。

这是一段修改网站新闻页的一段代码。每次在修改完一个新闻保存之后再去看那条新闻,就会只剩标题内容就没有了。
请各位帮忙分析一下哪里出了问题?谢谢了。

elseif request("action")="edit" then
cityping=split(cityping,"|")
for i=0 to UBound(cityping)
if instr(news,cityping(i)) then
response.write"<script>alert('修改新闻出错,下面是产生错误的可能原因:\n\n·在您的新闻内容中含有敏感字符');history.go(-1);</script>"
response.end
end if
next

Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from SMT_news where SMT_id="&request("id")
rs.open sql,conn,1,3
if rs("SMT_yp_id")<>session("id") then
response.write"<script>alert('操作出错,下面是产生错误的可能原因:\n\n·对不起,您没有权力修改此新闻');history.go(-1);</script>"
response.end
end if

rs("SMT_title")=title
rs("SMT_news")=newss
rs("SMT_ly")=ly
rs("SMT_addr")=addr
rs("SMT_newssort")=newssort
rs("SMT_key1")=citynewskey
rs.update
rs.close
set rs=nothing
if citynewskey=1 then
response.redirect"ok.asp?url=news.asp&page="&page
else
response.redirect"ok.asp?url=news.asp&key=yes&page="&page
end if

elseif request("action")="key" then
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from SMT_news where SMT_id="&request("id")
rs.open sql,conn,1,3

if rs("SMT_yp_id")<>session("id") then
response.write"<script>alert('操作出错,下面是产生错误的可能原因:\n\n·对不起,您没有权力修改此新闻');history.go(-1);</script>"
response.end
end if
rs("SMT_key")=request("zt")
rs.update
rs.close
set rs=nothing
response.redirect"ok.asp?url=news.asp&page="&page
end if
%>

搜索更多相关主题的帖子: 代码 
2005-11-25 14:10
ozzie
Rank: 1
等 级:新手上路
帖 子:194
专家分:0
注 册:2005-11-25
收藏
得分:0 
谢谢楼上的大哥.
2005-11-26 09:12
ozzie
Rank: 1
等 级:新手上路
帖 子:194
专家分:0
注 册:2005-11-25
收藏
得分:0 

再请求各位提示一下。我看了几遍了。也没有看出问题在什么地方?先谢过了。
急。

2005-11-26 09:14
ozzie
Rank: 1
等 级:新手上路
帖 子:194
专家分:0
注 册:2005-11-25
收藏
得分:0 
感谢谢指点。
2005-11-26 15:24
ozzie
Rank: 1
等 级:新手上路
帖 子:194
专家分:0
注 册:2005-11-25
收藏
得分:0 
再请各位帮忙分析一下上面的代码有没有问题?
2005-11-26 15:37
ozzie
Rank: 1
等 级:新手上路
帖 子:194
专家分:0
注 册:2005-11-25
收藏
得分:0 

一经修改之后数据库里的内容项也会变成空的。
这是怎么回事呢?

2005-11-29 17:05
ozzie
Rank: 1
等 级:新手上路
帖 子:194
专家分:0
注 册:2005-11-25
收藏
得分:0 
好的。我把整个页的代码都贴上,谢谢,帮忙分析一下。我真的非常关急呀!
谢谢啦!
2005-11-30 09:21
ozzie
Rank: 1
等 级:新手上路
帖 子:194
专家分:0
注 册:2005-11-25
收藏
得分:0 

<!--#include file="top.asp"-->
<%if userflag4=0 then
response.redirect"ok.asp?action=flag"
end if%>
<%
title=request("title")
newss=request("newss")
ly=request("ly")
addr=request("addr")
newssort=request("newssort")
page=request("page")
if page="" then page=1

if request("action")="del" then


Rem 删除一级栏目
on error resume next
sql="delete from SMT_news where SMT_id=" & request("id")
conn.execute sql

if err.Number<>0 then
err.clear
response.write ""
else
finished
end if

rs.open sql,conn,3,3
rs.delete
rs.update
Response.Redirect "ok.asp?url=news.asp&page="&page

elseif request("action")="add" then
cityping=split(cityping,"|")
for i=0 to UBound(cityping)
if instr(news,cityping(i)) then
response.write"<script>alert('添加新闻出错,下面是产生错误的可能原因:\n\n·在您的新闻内容中含有敏感字符');history.go(-1);</script>"
response.end
end if
next

Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from SMT_news where SMT_yp_id="& session("id")&" and (SMT_id=1 or SMT_id=2 or SMT_id=3 or SMT_id=4 or SMT_id=5)"
rs.open sql,conn,1,3
if flag3<>0 then
if rs.recordcount >= cint(flag3) then
response.write"<script>alert('操作出错,下面是产生错误的可能原因:\n\n·您还是普通会员,只能上传最多 "&flag3&" 条企业动态!');history.go(-1);</script>"
response.end
end if
end if
rs.addnew
rs("SMT_title")=title
rs("SMT_news")=newss
rs("SMT_ly")=ly
rs("SMT_addr")=addr
rs("SMT_newssort")=newssort
rs("SMT_key1")=citynewskey
rs("SMT_yp_id")=session("id")
rs.update
rs.close
set rs=nothing
if citynewskey=1 then
response.redirect"ok.asp?url=news_add.asp"
else
response.redirect"ok.asp?url=news_add.asp&key=yes"
end if

elseif request("action")="edit" then
cityping=split(cityping,"|")
for i=0 to UBound(cityping)
if instr(news,cityping(i)) then
response.write"<script>alert('修改新闻出错,下面是产生错误的可能原因:\n\n·在您的新闻内容中含有敏感字符');history.go(-1);</script>"
response.end
end if
next

Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from SMT_news where SMT_id="&request("id")
rs.open sql,conn,1,3
if rs("SMT_yp_id")<>session("id") then
response.write"<script>alert('操作出错,下面是产生错误的可能原因:\n\n·对不起,您没有权力修改此新闻');history.go(-1);</script>"
response.end
end if

rs("SMT_title")=title
rs("SMT_news")=newss
rs("SMT_ly")=ly
rs("SMT_addr")=addr
rs("SMT_newssort")=newssort
rs("SMT_key1")=citynewskey
rs.update
rs.close
set rs=nothing
if citynewskey=1 then
response.redirect"ok.asp?url=news.asp&page="&page
else
response.redirect"ok.asp?url=news.asp&key=yes&page="&page
end if

elseif request("action")="key" then
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from SMT_news where SMT_id="&request("id")
rs.open sql,conn,1,3

if rs("SMT_yp_id")<>session("id") then
response.write"<script>alert('操作出错,下面是产生错误的可能原因:\n\n·对不起,您没有权力修改此新闻');history.go(-1);</script>"
response.end
end if
rs("SMT_key")=request("zt")
rs.update
rs.close
set rs=nothing
response.redirect"ok.asp?url=news.asp&page="&page
end if
%>

2005-11-30 09:23
ozzie
Rank: 1
等 级:新手上路
帖 子:194
专家分:0
注 册:2005-11-25
收藏
得分:0 
这是修改之后提交页的整个页代码。
名称为add_news_sava.asp
2005-11-30 09:24
ozzie
Rank: 1
等 级:新手上路
帖 子:194
专家分:0
注 册:2005-11-25
收藏
得分:0 
表单的定义名称应该在哪个页看呢?
哈哈,见笑了。
2005-11-30 11:45
快速回复:各位大哥帮忙分析一下这段代码!谢谢了。
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023183 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved