|
<%
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 的提示页面
=号后面应该怎么写啊 那位大哥大姐帮小弟补充一下哈!!!!! |
|