xinxieditchk.asp

信息类网站的不错选择

<!--#include file="conn1.asp"-->
<!--#include file="err.asp"-->
<!--#include file=usercookies.asp-->
<!--#include file="config.asp"-->
<%
dim rs,sql,class1,biaoti,jiage,diqu,memo,username,userip,id,addr1,addr2,size,htype,room,hall,name,dianhua,content,com,job,jtype,skill,leixing
dim  gender,age1,age2,con,pay,addr,kind,serie,status,htime,email

id=trim(request("id"))
if  id=""  then
response.write   "参数错误！"
response.end
end if
username=request.cookies("cnmai")("username")
class1=trim(request("ptype"))
leixing=trim(request("wtype"))
biaoti=trim(request("title"))
price=trim(request("price"))
addr1=trim(request("addr1"))
addr2=trim(request("addr2"))

size=trim(request("size"))
htype=trim(request("htype"))
room=trim(request("room"))
hall=trim(request("hall"))
name=trim(request("pname"))
phone=trim(request("phone"))
com=trim(request("com"))
job=trim(request("job"))
jtype=trim(request("jtype"))
skill=trim(request("skill"))
gender=trim(request("gender"))
age1=trim(request("age1"))
age2=trim(request("age2"))
con=trim(request("con"))
pay=trim(request("pay"))
addr=trim(request("addr"))
kind=trim(request("kind"))
serie=trim(request("serie"))
status=trim(request("status"))
htime=trim(request("htime"))
email=trim(request("email"))
memo=trim(request("content"))

zd=request("zd")
yz=request("yz")
if class1="0" or class1="" then
errcnmai(10)
response.end
end if



sql = "select * from xinxi   where   id="&cint(id)&"  "
rs.open sql,conn,1,3

rs("class1")=cint(class1)
rs("leixing")=cint(leixing)
rs("biaoti")=biaoti
rs("price")=price
rs("addr1")=addr1
rs("addr2")=addr2
rs("size")=size
rs("htype")=cint(htype)
rs("room")=room
rs("hall")=hall
rs("name")=name
rs("phone")=phone
rs("com")=com
rs("job")=job
rs("jtype")=cint(jtype)
rs("skill")=skill
rs("gender")=cint(gender)
rs("age1")=age1
rs("age2")=age2
rs("con")=cint(con)
rs("pay")=pay
rs("addr")=addr
rs("kind")=kind
rs("serie")=serie
rs("status")=status
rs("htime")=htime
rs("memo")=memo
rs("email")=email

rs("zd")=cint(zd)
rs("yz")=cint(yz)

rs("fbsj")=now()
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
closedb
response.write "<p align=""center"">修改<font color=ff0000>"&biaoti&"</font>成功！</p>"
response.write "<meta http-equiv=refresh content=""1;URL=xinxi.asp"">"
%>