📄 addaction.asp
字号:
<!--#include file="conn.asp" -->
<!--#include file="user_pass.asp"-->
<% name=session("username") %>
<%
dim typeto
typeto=trim(request("typeto"))
%>
<%
if name="" then
name="其他用户"
end if %>
<body bgcolor="#FFFFFF">
<% if request("square")="" or request("price")="" or request("phone")="" or request("person")="" or request("name")="" then %>
<script language=vbs>
<!--
MsgBox "您没有输入完整的信息,请仔细检查!"
window.location.href="user_add.asp?type=<% =typeto %>"
-->
</script>
<%else
city="衡水"
num=Request.Form("number")
fc=Request.Form("fc")
dd=Request.Form("dd")
tx=Request.Form("tx")
square=Request.form("square")
price=Request.Form("price")
name1=Request.Form("name")
phone=Request.Form("phone")
email=Request.Form("email")
ip=Request.servervariables("remote_addr")
vip=request.Form("vip")
uid=request.form("uid")
content1=Request.form("content1")
date1=Request.Form("date1")
person=Request.Form("person")
cangq=Request.Form("cangq")
zx=Request.Form("zx")
tc=Request.Form("tc")
lc=Request.Form("lc")
fangshi=request.Form("fangshi")
if isnumeric(square)=true and isnumeric(price)=true then
if Csng(square)<=50 then
M="A"
end if
if 50<Csng(square) and Csng(square)<=70 then
M="B"
end if
if 70<Csng(square) and Csng(square)<=90 then
M="C"
end if
if 90<Csng(square) and Csng(square)<=110 then
M="D"
end if
if 110<Csng(square) and Csng(square)<=150 then
M="E"
end if
if 150<Csng(square)then
M="F"
end if
if Csng(price)<=8 then
J="A"
end if
if 8<Csng(price) and Csng(price)<=10 then
J="B"
end if
if 10<Csng(price) and Csng(price)<=12 then
J="C"
end if
if 12<Csng(price) and Csng(price)<=15 then
J="D"
end if
if 15<Csng(price) and Csng(price)<=20 then
J="E"
end if
if 20<Csng(price) and Csng(price)<=25 then
J="F"
end if
if 25<Csng(price) and Csng(price)<=30 then
J="G"
end if
if 30<Csng(price) and Csng(price)<=40 then
J="H"
end if
if 40<Csng(price) and Csng(price)<=50 then
J="I"
end if
if 50<Csng(price) and Csng(price)<=100 then
J="J"
end if
if 100<Csng(price) and Csng(price)<=200 then
J="K"
end if
if 200<Csng(price) then
J="L"
end if
if lc="" then
lc=" "
end if
if content1="" then
content1=" "
end if
if date1="" then
date1=" "
end if
if tc="" then
tc=" "
end if
%>
<%
sql = "INSERT into "& typeto &" (City,Num,uid,Diduan,Taox,Lc,tc,zx,Mianj,M,Jiag, J,Xiaoqm,changq,Tele,email,ip, content, D, Contperson,username,vip,fangshi ) VALUES ('"& city &"','"& num &"','"& uid &"', '"& dd &"','"& tx &"','"& lc &"','"& tc &"','"& zx &"','"& square &"','"& M &"','"& price &"','"& J &"','"& name1 &" ','"& cangq &"','"& phone &"','"& email &"','"& ip &"','"& content1 &"', '"& date1 &"','"& person &"','"& name &"','"& vip &"','"& fangshi &"')"
conn.Execute(sql)
%>
<script language=vbs>
<!--
MsgBox "您的信息已成功登记!点击继续……"
window.location.href="user_add.asp?type=<% =typeto %>"
-->
</script>
<% else %>
<script language=vbs>
<!--
MsgBox "您输入的面积或价格不是数字,请检查!"
window.location.href="user_add.asp?type=<% =typeto %>"
-->
</script>
<% end if
End If %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -