开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 其他小程序 > 查看源码
dealreg.asp
资源名称：i2event.com.rar　[点击查看]
上传用户：jinglin
上传日期：2021-12-20
资源大小：545k
文件大小：5k
源码类别：

其他小程序

开发平台：

VBScript

dealreg.asp：源码内容
  1. <!--#include file=dbconn.asp-->
  2. <%
  3. dim loginname,pw,name,age,sex,edu,title,companyname,companytype,companyfield,companysize,city,address,zip,tel,fax,email,project,remark,porc,salary
  5. loginname=trim(request.form("loginname"))
  6. pw=trim(request.form("pw"))
  7. name=trim(request.form("name"))
  8. age=trim(request.form("age"))
  9. sex=trim(request.form("sex"))
  10. edu=trim(request.form("edu"))
  11. title=trim(request.form("title"))
  12. companyname=trim(request.form("companyname"))
  13. companytype=trim(request.form("companytype"))
  14. companyfield=trim(request.form("companyfield"))
  15. companysize=trim(request.form("companysize"))
  16. city=trim(request.form("city"))
  17. address=trim(request.form("address"))
  18. zip=trim(request.form("zip"))
  19. tel=trim(request.form("tel"))
  20. fax=trim(request.form("fax"))
  21. email=trim(request.form("email"))
  22. project=trim(request.form("project"))
  23. remark=trim(request.form("remark"))
  24. porc=trim(request.form("porc"))
  25. salary=trim(request.form("salary"))
  27. loginname=replace(loginname,"'","''")
  28. pw=replace(pw,"'","''")
  29. companyname=replace(companyname,"'","''")
  30. address=replace(address,"'","''")
  31. zip=replace(zip,"'","''")
  32. tel=replace(tel,"'","''")
  33. fax=replace(fax,"'","''")
  34. email=replace(email,"'","''")
  35. remark=replace(remark,"'","''")
  36. porc=replace(porc,"'","''")
  37. 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&")"
  38. 'response.write sql
  39. conn.execute(sql)
  40. select case age
  41.   case 1 
  42.     vage="20岁以下"
  43.   case 2 
  44.     vage="20-24岁"
  45.   case 3 
  46.     vage="24-29岁"
  47.   case 4 
  48.     vage="30-34岁"
  49.   case 5 
  50.     vage="35-39岁"
  51.   case 6
  52.     vage="40-44岁"
  53.   case 7 
  54.     vage="45-49岁"        
  55.   case 8 
  56.     vage="50岁以上"    
  57. end select  
  58.   
  59. select case edu
  60.   case 1 
  61.     vedu="大专以下"
  62.   case 2 
  63.     vedu="大专"
  64.   case 3 
  65.     vedu="大学本科"
  66.   case 4 
  67.     vedu="研究生"
  68.   case 5 
  69.     vedu="博士以上"
  70.   case 6
  71.     vedu="留学"
  72.   case 7 
  73.     vedu="其他"
  74. end select  
  75. select case title
  76.   case 1 
  77.     vtitle="企业经理"
  78.   case 2 
  79.     vtitle="高级管理人员"
  80.   case 3 
  81.     vtitle="部门主管"
  82.   case 4 
  83.     vtit le="技术主管"
  84.   case 5 
  85.     vtitle="一般员工"
  86.   case 6 
  87.     vtitle="公务员"
  88.   case 7 
  89.     vtitle="其他"
  90. end select
  91. select case companyfield
  92.   case 1 
  93.     vfield="金融"
  94.   case 2 
  95.     vfield="电信"
  96.   case 3 
  97.     vfield="机械"
  98.   case 4 
  99.     vfield="交通"
  100.   case 5 
  101.     vfield="计算机"
  102.   case 6 
  103.     vfield="服务业"
  104.   case 7 
  105.     vfield="流通业"
  106.   case 8 
  107.     vfield="政府部门"
  108.   case 9
  109.     vfield="其他"
  110. end select
  112.             
  113. set rs=server.createobject("ADODB.Recordset")
  114. '更新居民总数表
  115. sql="select * from stausernum"
  116. rs.open sql,conn,1,3
  117. if rs.eof or rs.bof then
  118. rs.addnew
  119. rs("totalnum")=1
  120. else
  121. rs("totalnum")=rs("totalnum")+1
  122. end if
  123. rs.Update
  124. rs.close
  125. '更新年龄统计表
  126.     
  127. sql="select * from staage where age='"&vage&"'"
  128. rs.open sql,conn,1,3
  129. if rs.eof or rs.bof then
  130. rs.addnew
  131. rs("age")=vage
  132. rs("num")=1
  133. else
  134. rs("num")=rs("num")+1
  135. end if
  136. rs.Update
  137. rs.close
  138. '更新教育情况统计表
  139. sql="select * from staedu where edu='"&vedu&"'"
  140. rs.open sql,conn,1,3
  141. if rs.eof or rs.bof then
  142. rs.addnew
  143. rs("edu")=vedu
  144. rs("num")=1
  145. else
  146. rs("num")=rs("num")+1
  147. end if
  148. rs.Update
  149. rs.close
  150. '更新职务统计表
  151. sql="select * from statitle where title='"&vtitle&"'"
  152. rs.open sql,conn,1,3
  153. if rs.eof or rs.bof then
  154. rs.addnew
  155. rs("title")=vtitle
  156. rs("num")=1
  157. else
  158. rs("num")=rs("num")+1
  159. end if
  160. rs.Update
  161. rs.close
  162. '更新从事领域统计表
  163. sql="select * from stafield where field='"&vfield&"'"
  164. rs.open sql,conn,1,3
  165. if rs.eof or rs.bof then
  166. rs.addnew
  167. rs("field")=vfield
  168. rs("num")=1
  169. else
  170. rs("num")=rs("num")+1
  171. end if
  172. rs.Update
  173. rs.close
  174. '更新所在地统计表  
  175. sql="select * from stacity where city='"&city&"'"
  176. rs.open sql,conn,1,3
  177. if rs.eof or rs.bof then
  178. rs.addnew
  179. rs("city")=city
  180. rs("num")=1
  181. else
  182. rs("num")=rs("num")+1
  183. end if
  184. rs.Update
  185. rs.close
  186. conn.close
  187. set conn=nothing
  188. %>
  189. <html>
  190. <head>
  191. <link rel="stylesheet" href="../style.css">
  193. </head>
  195. <body leftMargin=2  rightMargin=2 topMargin=3  MARGINHEIGHT="2" MARGINWIDTH="2" link="#FFFF00" vlink="#FFFF00" alink="#FFFF00">
  196. <a name="booktop">
  197. <br>
  198. <br>
  199. <br>
  200. <br>
  201. <center>
  202.    &nbsp &nbsp<font color="red" >您的信息已经提交成功，您可以在我们的首页登录进入我们的网站了，我们会竭诚为您提供周到满意的服务，谢谢！</font>
  203.       
  204. <br><br><p align=center><a href="javascript:self.close()">关闭窗口</a></p>
  205. </body>
  206. </html>