⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 addxinxichk.asp

📁 信息类网站的不错选择
💻 ASP
字号:
<!--#include file="conn1.asp"-->
<!--#include file="err.asp"-->
<!--#include file=usercookies.asp-->
<!--#include file="config.asp"-->

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=title%>-信息发布</title>
<link href="inc_style.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file=top.asp-->
<div align="center">
<table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="605" height="85" bgcolor="#FFFFFF">
<tr>
<td width="605" height="85" valign="top" align="left">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="83">
<tr>
<td width="100%" valign="top" height="83"> 
<!--#include file="err.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,price,phone,zd,yz
if session("addxinxi")<>"" then
  if DateDiff("s",session("addxinxi"),Now())<10 then
  response.write "<li>系统保护:你提交数据太快,系统中止运行,请等待10秒钟!"
  response.end
  end if
end if

username=request.cookies("cnmai")("username")
class1=trim(request("class1"))
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


set rs=server.createobject("adodb.recordset")
sql = "select * from [user] where username='"&username&"'"
rs.open sql,conn,1,3

if zd="1" and request.cookies("cnmai")("VIP")="1" then
if rs("jf") <  cint(jf_zdvip)  then
call errcnmai(31)
response.end 
end if

rs("jf")=rs("jf")-jf_zdvip
end if

if yz="1" and request.cookies("cnmai")("VIP")="1" then

if rs("jf") <cint(jf_yzvip)  then
call errcnmai(31)
response.end 
end if

rs("jf")=rs("jf")-jf_yzvip
end if



if zd="1" and request.cookies("cnmai")("VIP")<>"1" then


if rs("hb") < cint( hb_zd)  then
call errcnmai(11)
response.end 
end if
rs("hb")=rs("hb")-hb_zd
rs("jf")=rs("jf")+hb_zd * jf_4
end if

if yz="1"  and  request.cookies("cnmai")("VIP")<>"1" then
if rs("hb")<cint(hb_yz)  then
call errcnmai(11)
response.end 
end if
rs("hb")=rs("hb")-hb_yz
rs("jf")=rs("jf")+hb_yz * jf_4
end if


rs("jf")=rs("jf")+jf_2
rs.update
rs.close

sql = "select * from xinxi"
rs.open sql,conn,1,3
rs.addnew


rs("class1")=cint(class1)
if  len(leixing)>0  then
rs("leixing")=cint(leixing)
end   if
rs("biaoti")=biaoti
rs("price")=price
rs("addr1")=addr1
rs("addr2")=addr2
rs("size")=size
if  len(htype)>0  then
rs("htype")=cint(htype)
end if
rs("room")=room
rs("hall")=hall
rs("name")=name
rs("phone")=phone
rs("com")=com
rs("job")=job
if  len(jtype)>0  then
rs("jtype")=cint(jtype)
end if
rs("skill")=skill
if  len(gender)>0  then
rs("gender")=cint(gender)
end if
rs("age1")=age1
rs("age2")=age2
if  len(con)>0   then
rs("con")=cint(con)
end if
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)

if xxmyz="1" then
 rs("yz")=1
 else
if yz<>""  then
rs("yz")=cint(yz)
end if
end if
rs("username")=username

if  request.cookies("cnmai")("VIP")="1"  then
rs("vip")=1 '与上对应
else
rs("vip")=0
end if


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
session("addxinxi")=now()
id=rs("id")
rs.close
set rs=nothing
closedb
response.write "<p align=""center"">恭喜,您的信息已经发布成功!</p>"
response.write "<meta http-equiv=refresh content=""3;URL=default.asp"">"
%>
</td>
</tr>
</table>
</td>
</tr>
<!--#include file=end.htm-->
</table>
</div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -