Other windows programs

Development Platform:
VBScript

dealreg.asp：Code Content
							<!--#include file=dbconn.asp-->
<%
dim loginname,pw,name,age,sex,edu,title,companyname,companytype,companyfield,companysize,city,address,zip,tel,fax,email,project,remark,porc,salary
loginname=trim(request.form("loginname"))
pw=trim(request.form("pw"))
name=trim(request.form("name"))
age=trim(request.form("age"))
sex=trim(request.form("sex"))
edu=trim(request.form("edu"))
title=trim(request.form("title"))
companyname=trim(request.form("companyname"))
companytype=trim(request.form("companytype"))
companyfield=trim(request.form("companyfield"))
companysize=trim(request.form("companysize"))
city=trim(request.form("city"))
address=trim(request.form("address"))
zip=trim(request.form("zip"))
tel=trim(request.form("tel"))
fax=trim(request.form("fax"))
email=trim(request.form("email"))
project=trim(request.form("project"))
remark=trim(request.form("remark"))
porc=trim(request.form("porc"))
salary=trim(request.form("salary"))
loginname=replace(loginname,"'","''")
pw=replace(pw,"'","''")
companyname=replace(companyname,"'","''")
address=replace(address,"'","''")
zip=replace(zip,"'","''")
tel=replace(tel,"'","''")
fax=replace(fax,"'","''")
email=replace(email,"'","''")
remark=replace(remark,"'","''")
porc=replace(porc,"'","''")
sql="insert into userinfo values('"&loginname&"','"&pw&"','"&name&"',"&age&","&sex&","&edu&","&title&",'"&companyname&"',"&companytype&","&companyfield&","&companysize&",'"&city&"','"&address&"','"&zip&"','"&tel&"','"&fax&"','"&email&"','"&project&"','"&remark&"',"&porc&",10,0,convert(datetime,getdate()),0,0,"&salary&")"
'response.write sql
conn.execute(sql)
select case age
  case 1 
    vage="20岁以下"
  case 2 
    vage="20-24岁"
  case 3 
    vage="24-29岁"
  case 4 
    vage="30-34岁"
  case 5 
    vage="35-39岁"
  case 6
    vage="40-44岁"
  case 7 
    vage="45-49岁"        
  case 8 
    vage="50岁以上"    
end select  
  
select case edu
  case 1 
    vedu="大专以下"
  case 2 
    vedu="大专"
  case 3 
    vedu="大学本科"
  case 4 
    vedu="研究生"
  case 5 
    vedu="博士以上"
  case 6
    vedu="留学"
  case 7 
    vedu="其他"
end select  
select case title
  case 1 
    vtitle="企业经理"
  case 2 
    vtitle="高级管理人员"
  case 3 
    vtitle="部门主管"
  case 4 
    vtit le="技术主管"
  case 5 
    vtitle="一般员工"
  case 6 
    vtitle="公务员"
  case 7 
    vtitle="其他"
end select
select case companyfield
  case 1 
    vfield="金融"
  case 2 
    vfield="电信"
  case 3 
    vfield="机械"
  case 4 
    vfield="交通"
  case 5 
    vfield="计算机"
  case 6 
    vfield="服务业"
  case 7 
    vfield="流通业"
  case 8 
    vfield="政府部门"
  case 9
    vfield="其他"
end select
            
set rs=server.createobject("ADODB.Recordset")
'更新居民总数表
sql="select * from stausernum"
rs.open sql,conn,1,3
if rs.eof or rs.bof then
rs.addnew
rs("totalnum")=1
else
rs("totalnum")=rs("totalnum")+1
end if
rs.Update
rs.close
'更新年龄统计表
    
sql="select * from staage where age='"&vage&"'"
rs.open sql,conn,1,3
if rs.eof or rs.bof then
rs.addnew
rs("age")=vage
rs("num")=1
else
rs("num")=rs("num")+1
end if
rs.Update
rs.close
'更新教育情况统计表
sql="select * from staedu where edu='"&vedu&"'"
rs.open sql,conn,1,3
if rs.eof or rs.bof then
rs.addnew
rs("edu")=vedu
rs("num")=1
else
rs("num")=rs("num")+1
end if
rs.Update
rs.close
'更新职务统计表
sql="select * from statitle where title='"&vtitle&"'"
rs.open sql,conn,1,3
if rs.eof or rs.bof then
rs.addnew
rs("title")=vtitle
rs("num")=1
else
rs("num")=rs("num")+1
end if
rs.Update
rs.close
'更新从事领域统计表
sql="select * from stafield where field='"&vfield&"'"
rs.open sql,conn,1,3
if rs.eof or rs.bof then
rs.addnew
rs("field")=vfield
rs("num")=1
else
rs("num")=rs("num")+1
end if
rs.Update
rs.close
'更新所在地统计表  
sql="select * from stacity where city='"&city&"'"
rs.open sql,conn,1,3
if rs.eof or rs.bof then
rs.addnew
rs("city")=city
rs("num")=1
else
rs("num")=rs("num")+1
end if
rs.Update
rs.close
conn.close
set conn=nothing
%>
<html>
<head>
<link rel="stylesheet" href="../style.css">
</head>
<body leftMargin=2  rightMargin=2 topMargin=3  MARGINHEIGHT="2" MARGINWIDTH="2" link="#FFFF00" vlink="#FFFF00" alink="#FFFF00">
<a name="booktop">
<br>
<br>
<br>
<br>
<center>
   &nbsp &nbsp<font color="red" >您的信息已经提交成功，您可以在我们的首页登录进入我们的网站了，我们会竭诚为您提供周到满意的服务，谢谢！</font>
      
<br><br><p align=center><a href="javascript:self.close()">关闭窗口</a></p>
</body>
</html>

						