yinxun 2007年04月01日
一个关于ASP中取值再写入的问题~
我是一个ASP新手,问题比较幼稚 请大家指教~

sub shanchu()
dim id
id = request("id")
dim re,Referer,x,y
Referer=request("Referer")
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\?|&)#(.*)"
Referer=re.Replace(Referer,"")
re.Pattern="[^A-Za-z0-9]$"
Referer=re.Replace(Referer,"")
set re=nothing
if not login then
errinfo="<li>您未登陆或已经退出登陆,不能进入该页。"
call showError()
else
if id="" then
errinfo="<li>您未选定任何记录。"
call showError()
end if
sql="select id from [topic] where id in ("&id&")"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
x=rs<"rizhi">
y=x+"哈哈哈"
if rs.eof and rs.bof then
rs.close
set rs=nothing
errinfo="<li>该记录已删除(replycode='1')。"
call showError()
end if
rs.close
set rs=nothing
sql="update topic set replycode='1',rizhi = '"& y &"' where id in ("&id&")"
conn.execute(sql)
conn.close
if request.querystring("page")="" then
response.redirect Referer
else
response.redirect Referer & "& page=" & request.querystring("page")
end if
response.flush
end if
end sub

解释: replycode='1'表示已删除,不显示在界面,只存在数据库
这个函数的目的是对选中的某一个记录上传值,一个是上传replycode=1,一个是上传一个字符串y到rizhi这个字段里面去,其中y=x+哈哈哈,也就是说如果rizhi里没东西,则写入“哈哈哈”,有东西就取出来在它屁股后面加个“哈哈哈”再写进去,但是关于x,y的位置、语法我不太清楚,总是出错,只知道问题出在X上,因为我试过去掉X,令Y=“哈哈哈”,就可以正常写进去

特请教如何实现我的目的,非常感谢~~~!!!!
...全文
247 点赞 收藏 6
写回复
6 条回复

还没有回复,快来抢沙发~

发动态
发帖子
ASP
创建于2007-09-28

1.9w+

社区成员

35.7w+

社区内容

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区公告
暂无公告