| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 784 人关注过本帖
标题:各位大哥帮忙分析一下这段代码!谢谢了。
只看楼主 加入收藏
wptys
Rank: 1
等 级:新手上路
帖 子:33
专家分:0
注 册:2005-11-29
收藏
得分:0 
你能把代码帖完整吗?你得传值应该有问题。。。
2005-11-29 17:10
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
wptys
Rank: 1
等 级:新手上路
帖 子:33
专家分:0
注 册:2005-11-29
收藏
得分:0 
传值好像没有问题

表单的定义名称是对的吗?
2005-11-30 11:32
ozzie
Rank: 1
等 级:新手上路
帖 子:194
专家分:0
注 册:2005-11-25
收藏
得分:0 
表单的定义名称应该在哪个页看呢?
哈哈,见笑了。
2005-11-30 11:45
wptys
Rank: 1
等 级:新手上路
帖 子:33
专家分:0
注 册:2005-11-29
收藏
得分:0 
就是你的提交页面

例如:

<TEXTAREA name="word" id="word" cols="88" rows="15"></textarea>

这个的名称就是:word


你看看你的是否为:newss

[此贴子已经被作者于2005-11-30 11:50:15编辑过]

2005-11-30 11:49
ozzie
Rank: 1
等 级:新手上路
帖 子:194
专家分:0
注 册:2005-11-25
收藏
得分:0 
哈哈。谢谢楼上的“wptys“大哥,终于找到原因了。解决了。谢谢。
有机会希望再赐教。
2005-11-30 16:54
yixiu880
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2006-10-24
收藏
得分:0 
关于这个问题我也碰上了,但是最后你们怎么解决的帖子里没说明哦,希望能指导下,谢谢啦!我QQ84216868
邮箱yixiu8880@163.com
2006-10-24 16:59
快速回复:各位大哥帮忙分析一下这段代码!谢谢了。
数据加载中...
 
   



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

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