📄 needact.asp

📁 我同学的毕业设计源代码
💻 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_need.asp?type=<% =typeto %>"
-->
</script>
<%else
city="南昌"
dd=Request.form("dd")
fx=request.form("fx")
tx=Request.form("tx")
uid=Request.form("uid")
name1=Request.form("name")
square=Request.form("square")
price=Request.form("price")
zx=Request.form("zx")
lc=Request.form("lc")
person=Request.form("person")
phone=Request.form("phone")
uid=request.form("uid")
email=Request.Form("email")
ip=Request.servervariables("remote_addr")
date1=Request.form("date1")
content1=Request.form("content1")
quansh=Request.form("quansh")
fangshi=request.Form("fangshi")
if isnumeric(square)=true and isnumeric(price)=true then
if typeto = "租房" 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 100<Csng(price) and Csng(price)<=300 then 
   J="A"
end if 
if 300<Csng(price) and Csng(price)<=500 then 
   J="B"
end if 
if 500<Csng(price) and Csng(price)<=700 then 
   J="C"
end if 
if 700<Csng(price) and Csng(price)<=1000 then 
   J="D"
end if 
if 1000<Csng(price)  then 
   J="E"
end if 

 
else

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 
end if
  if content1="" then
     content1=" "
  end if
  if date1="" then
     date1="无"
  end if
  if name="" then
     name=" "
  end if 
 
sql = "INSERT into need (City,Diduan,uid,Taox,Fangx,Lc,zx,Mianj,M,Jiag,J,Xiaoqm,qiu,fangshi,Tele,email,ip, content, D, Contperson ,quansh) VALUES ('"& city &"','"& dd &"','"& uid &"','"& tx &"','"& fx &"','"& lc &"','"& zx &"','"& square &"','"& M  &"','"&price &"','"& J&"','"& name1 &" ','"& typeto &"',' "&fangshi &"','"& phone &"','"& email &"','"& ip &"','"& content1 &"', '"& date1 &"','"& person &"','"& quansh &"')"
conn.Execute(sql)
%> 
<script language=vbs>
<!--
        MsgBox "您的信息登记成功!"
        window.location.href="user_need.asp"
-->
</script> 
<% else %>
<script language=vbs>
<!--
        MsgBox "你输入的价格或租金不对,请检查!"
        window.location.href="user_need.asp"
-->
</script>
<% end if
End If %>
⌨️ 快捷键说明

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