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

📄 chuli.asp

📁 一个用户调查表,并用数据库连接,使用了ODBC 内容包括用户名,家庭住址,学校
💻 ASP
字号:
🔍 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>处理程序</title>
<style type="text/css">
<!--
.style1 {
	font-family: "华文行楷";
	font-size: 16px;
}
.style2 {font-size: 20px}
-->
</style>
</head>

<body>
<%
  username=Request.Form("username")
  password=Request.Form("password")
  email=Request.Form("email")
  address=Request.Form("address")
  yuanxi=Request.Form("yuanxi")
  sex=Request.Form("sex")
  xuexing=Request.Form("a")
 
  tiaowu=Request.Form("tiaowu")
  changge=Request.Form("changge")
  dapai=Request.Form("dapai")
  yuedu=Request.Form("yuedu")
  aihao=tiaowu&" "&changge&" "&dapai&" "&yuedu
%>
<%
    dim objfile
	set objfile=Server.CreateObject("Scripting.FileSystemObject")
	set objstream=objfile.CreateTextFile(Server.MapPath("data.txt"),true)
	objstream.Write "用户名："&username
	
	objstream.Write "密码："&password
	
	objstream.Write "电子邮箱："&email

	objstream.Write "家庭住址:"&address
	
	objstream.Write "就读院系："&yuanxi
	
	objstream.Write "性  别："&sex
	
	objstream.Write "血型："&xuexing
	
	objstream.Write "个人爱好: "&tiaowu
	objstream.Write " "&changge
	objstream.Write " "&dapai
	objstream.Write " "&yuedu
	objstream.close
	set objstream=nothing
%>
<%
	set objstream1=objfile.OpenTextFile(Server.MapPath("data.txt"))
	
%>
<div align="center">
  <table width="516" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td width="57" height="39" align="center" valign="middle">&nbsp;</td>
      <td width="449"><%=objstream1.readLine%></td>
    </tr>
    <tr>
      <td height="43" align="center" valign="middle" class="style1">&nbsp;</td>
      
    </tr>
    <tr>
      <td height="47" class="style1"><div align="center"></div></td>
      
    </tr>
    <tr>
      <td height="58" class="style1"><div align="center"></div></td>
     
    </tr>
    <tr>
      <td height="46" class="style1"><div align="center"></div></td>
      
    </tr>
    <tr>
      <td height="40" class="style1"><div align="center"></div></td>
     
    </tr>
    <tr>
      <td height="32" class="style1"><div align="center"></div></td>
      
    </tr>
    <tr>
      <td height="36" rowspan="2" class="style1"><div align="center"></div></td>
    
    </tr>
    <tr>
      <td height="49"><div align="center" class="style2"><a href="jieguo.asp">结果已经存入数据库中点击察看</a></div></td>
    </tr>
  </table>
</div>

<%   objstream1.close
	 set objstream1=nothing
	 
	 set objfile=nothing
%>
<%
    Set conn=Server.CreateObject("ADODB.Connection")
    conn.Open "mydata"
	str="SELECT * FROM s1"
    set getdata=Server.CreateObject("ADODB.Recordset")
	getdata.open str,conn,2,3
	getdata.AddNew
    getdata.Fields("username").Value=username
    
	getdata.Fields("password").Value=password
	getdata.Fields("email").Value=email
	getdata.Fields("address").Value=address
	getdata.Fields("yuanxi").Value=yuanxi
	getdata.Fields("sex").Value=sex
	getdata.Fields("xuexing").Value=xuexing
	getdata.Fields("aihao").Value=aihao
	getdata.update

    set getdata=nothing
    conn.close
    set conn=nothing
%>
</body>
</html>

⌨️ 快捷键说明

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