找回密码
 注册
搜索
免费空间 免费域名 免费AI 老牌主机商首月仅1美分!27美元/年!Spaceship优惠码 Namecheap优惠码阿里云2核2G3M新老续费同享99元/年!
查看: 619|回复: 2

[程序代码] 兄弟们 帮帮我吧....快郁闷死拉

[复制链接]
发表于 2008-10-19 14:44:04 | 显示全部楼层 |阅读模式
<%
dim xxid,ts,username,lxrname,usertel,phone,company,xinxipic,qq,email,phonebm,emailbm,memo,huitype,yz,class1,class2,youxiao,b,leixing,jiage,sheng,shi,xiang,shiming,rs,sql,userip
xxid=trim(request("xxid"))
ts=trim(request("ts"))
xinxipic=trim(request("xinxipic"))
username=trim(request("username"))
lxrname=trim(request("lxrname"))
usertel=trim(request("usertel"))
phone=trim(request("phone"))
company=trim(request("company"))
qq=trim(request("qq"))
email=trim(request("email"))
phonebm=trim(request("phonebm"))
emailbm=trim(request("emailbm"))
memo=trim(request("memo"))
huitype=trim(request("huitype"))
yz=trim(request("yz"))
class1=trim(request("class1"))
class2=trim(request("class2"))
youxiao=trim(request("youxiao"))
b=trim(request("b"))
leixing=trim(request("leixing"))
jiage=trim(request("jiage"))
sheng=trim(request("sheng"))
shi=trim(request("shi"))
xiang=trim(request("xiang"))
shiming=trim(request("shiming"))
set rs=server.createobject("adodb.recordset")
sql="select * from [FOX_xinxi] where UserName='"&UserName&"' and xxid='"&xxid&"'"
rs.open sql,conn,1,3
if session("addxinxi")<>"" then
  if DateDiff("s",session("addxinxi"),Now())<0 then
  response.write "<script>alert('信息发布间隔为90秒,请梢后发布!');history.go(-1);</SCRIPT>"
  response.end
  end if
  end if
if not rs.eof or not rs.bof then
rs("ts")=ts
rs("lxrname")=lxrname
rs("usertel")=usertel
rs("phone")=phone
rs("company")=company
rs("qq")=qq
rs("email")=email
rs("phonebm")=phonebm
rs("emailbm")=emailbm
rs("memo")=memo
rs("huitype")=huitype
rs("class1")=class1
rs("class2")=class2
rs("leixing")=leixing
rs("jiage")=jiage
rs("sheng")=sheng
rs("shi")=shi
rs("xiang")=xiang
rs("shiming")=shiming
rs("youxiao")=youxiao
if request("b")="" then
rs("b")=0
else
rs("b")=b
end if
if xinxipic<>"" then
rs("xinxipic")=xinxipic
end if
if huitype>"0" and yz="1" then
rs("yz")=1
else
rs("yz")=0
end if
rs("fbsj")=now()
rs("dqsj")=rs("fbsj")+rs("youxiao")
userip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip="" Then
userip=Request.ServerVariables("REMOTE_ADDR")
end if
rs("ip")=userip
rs.update
rs.close
set rs=nothing
else
rs.addnew
rs("xxid")=xxid
rs("ts")=ts
rs("username")=username
rs("lxrname")=lxrname
rs("usertel")=usertel
rs("phone")=phone
rs("company")=company
rs("qq")=qq
rs("email")=email
rs("phonebm")=phonebm
rs("emailbm")=emailbm
rs("memo")=memo
rs("huitype")=huitype
rs("class1")=class1
rs("class2")=class2
rs("youxiao")=youxiao
rs("leixing")=leixing
rs("jiage")=jiage
rs("sheng")=sheng
rs("shi")=shi
rs("xiang")=xiang
rs("shiming")=shiming
rs("youxiao")=youxiao
if request("b")="" then
rs("b")=0
else
rs("b")=b
end if
if huitype>"0" and yz="1" then
rs("yz")=1
else
rs("yz")=0
end if
rs("fbsj")=now()
rs("dqsj")=rs("fbsj")+rs("youxiao")
userip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip="" Then
userip=Request.ServerVariables("REMOTE_ADDR")
end if
rs("ip")=userip
rs.update
rs.close
set rs=nothing
end if
set rs=server.createobject("adodb.recordset")
sql="select jf,dxb,b from [FOX_user] where UserName='"&UserName&"'"
rs.open sql,conn,1,3
if huitype="1" and yz="1" then
rs("dxb")=rs("dxb")-hxb
end if
rs("jf")=rs("jf")+xxjf
rs("b")=rs("b")-int(b)
rs.update
rs.close
set rs=nothing
closedb
session("addxinxi")=now()
response.redirect "addxinxiok.asp?id="
%>

这是一段添加信息的代码  我想让信息添加完后跳转到一个 addxinxiok.asp?id=2001 后面的数字表示信息的ID 的提示页面  

=号后面应该怎么写啊   那位大哥大姐帮小弟补充一下哈!!!!!
发表于 2008-10-19 16:19:55 | 显示全部楼层
储存”信息的ID“的变量是哪个?
"addxinxiok.asp?id="&储存”信息的ID“的变量
我不保证正确哦,我很久没动ASP了 :lol
&字符串连接符
 楼主| 发表于 2008-10-20 14:25:22 | 显示全部楼层
原帖由 reader 于 2008-10-19 16:19 发表
储存”信息的ID“的变量是哪个?
"addxinxiok.asp?id="&储存”信息的ID“的变量
我不保证正确哦,我很久没动ASP了 :lol
&字符串连接符



谢谢拉  已经调试正确了
"addxinxiok.asp?id="&xxid
您需要登录后才可以回帖 登录 | 注册

本版积分规则

手机版|小黑屋|免费吧论坛

GMT+8, 2024-11-23 11:29 , Processed in 0.029276 second(s), 4 queries , Redis On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表