一个简单的ASP表单提交_第1页
一个简单的ASP表单提交_第2页
一个简单的ASP表单提交_第3页
一个简单的ASP表单提交_第4页
一个简单的ASP表单提交_第5页
已阅读5页，还剩2页未读， 继续免费阅读

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、一个简单的ASP表单提交 (2006-10-08 21:22:27)转载分类： ASP一个简单的asp表单提交建立数据库文件note.mdb有以下字段：id-自动编号name -文本   20title-文本     255sex-文本       2email-文本     50web-文本     255ip-文本 

2、;    15time-日期时间型     默认值：now() content-备注color=Bluepost.htm 页面/colorcode<html ><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><title>提交页面 </title></head><body>

3、;<form name="form1" id="form1" method="post" action="post.asp"><table width="600" border="0" align="center" cellpadding="0" cellspacing="1">  <tr>    <td width

4、="85">姓名：</td>    <td width="512"><input name="name" type="text" id="name" /></td>  </tr>  <tr>    <td>标题：</td>    <

5、td><input name="title" type="text" id="title" /></td>  </tr>  <tr>    <td>性别：</td>    <td><input type="radio" name="radiobutton" value="男

6、" />    男    <input type="radio" name="radiobutton" value="女" />    女</td>  </tr>  <tr>    <td>email:</td>   &#

7、160;<td><input name="email" type="text" id="email" /></td>  </tr>  <tr>    <td>网站：</td>    <td><input name="web" type="text" id="web&q

8、uot; /></td>  </tr>  <tr>    <td>备注：</td>    <td><textarea name="content" cols="50" id="note"></textarea></td>  </tr></table><p

9、align="center">  <input type="submit" name="Submit" value="提交" />  <input type="reset" name="Submit2" value="重置" /></p></form></body></html>/codecolor=Blue以下为post.asp页面/co

10、lorcode<%      set conn=Server.CreateObject("ADODB.Connection")     dbparam="Driver=Microsoft Access Driver (*.mdb);dbq="& server.MapPath("note.mdb")     conn.Open dbparam  

11、dim NoteMaxSize     NoteMaxSize=200     uname      =      replace(trim(request.form("name"),"'","")     utitle   

12、60;  =      replace(trim(request.form("title"),"'","")     usex      =      replace(trim(request.form("sex"),"'",&quo

13、t;")     uemail      =      replace(trim(request.form("email"),"'","")     uweb      =      

14、;replace(trim(request.form("web"),"'","")     unote      =      replace(trim(request.form("content"),"'","")     uip 

15、           =      request.servervariables("remote_addr")  if uname="" then     response.write "<script language=javascript>alert('姓名不能为空，请留下您的大名！

16、');javascript:history.back();</script>"     response.end     end if     if len(uname)>20 then     response.write "<script language=javascript>alert('"&uname&a

17、mp;" ，您的名字也太长了吧？');javascript:history.back();</script>"     response.end     end if     if unote="" then     response.write "<script language=javascript>alert(

18、'留言不能为空！');javascript:history.back();</script>"     response.end     end if     if len(unote)>NoteMaxSize then     response.write "<script language=javascript>alert(&#

19、39;"& uname &" ，留言内容字数不要大于"& NoteMaxSize &"？');javascript:history.back();</script>"     response.end     end if     if uemail<>"" then    

20、 if instr(uemail,"")=-1 or instr(uemail,".")=-1 or len(uemail)<5 then     response.write "<script language=javascript>alert('您的电子信箱地址好象有问题哦！');javascript:history.back();</script>"     response

21、.end     end if     end if     response.write uname&"|"&utitle  response.write "<br>"     response.write usex&"|"&uemail   

22、  response.write "<br>"     response.write uweb&"|"&unote     response.write "<br>"     response.write uip     sql="insert into list(na

23、me,title,sex,email,web,content,ip)values('"&uname&"','"&utitle&"','"&usex&"','"&uemail&"','"&uweb&"','"&unote&"','"&uip&"&

24、#39;)"             set rs = Server.createobject("adodb.recordset")     rs.open sql,conn,2,3     set rs=nothing     set conn=nothing  %&

25、gt;ASP连接ACCESS (2006-10-08 21:21:34)转载分类： ASP<% 'AdoAccess.aspOption ExplicitResponse.Expires = 0'第一部分: 建立连接Dim Cnn, StrCnnSet Cnn = Server.CreateObject("ADODB.Connection")StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:InetpubhomeaspNorthwind.mdb&qu

26、ot;Cnn.Open StrCnn%>程序wuf50.asp<% LANGUAGE = VBScript %><!-#include file="AdoAccess.asp"-><% ' wuf50.asp'第二部分: 使用 Connection 对象的 Execute 添加新数据Dim StrSQL, rsTestStrSQL = "INSERT INTO 运货商 (公司名称,电话) valueS('wu''feng','#39;)"

27、Cnn.Execute StrSQL%><HTML><BODY><% '第三部分: 将得到的记录集显示到浏览器上Set rsTest = Cnn.Execute("Select * From 运货商")Do While Not rsTest.EOFResponse.Write rsTest(0) & " " & rsTest(1) & " " & rsTest(2) & " " & "<BR>"

28、;rsTest.MoveNextLoop'第四部分: 打扫战场Cnn.closeSet rsTest = Nothing: Set Cnn = Nothing%></BODY></HTML>MYSQL建表实例 (2006-10-08 21:11:13)转载分类： MYSQL一个建库和建表以及插入数据的实例drop database if exists school; /如果存在SCHOOL则删除create database school; /建立库SCHOOLuse school; /打开库SCHOOLcreate table tea

29、cher /建立表TEACHER(id int(3) auto_increment not null primary key,name char(10) not null,address varchar(50) default 深圳,year date); /建表结束/以下为插入字段insert into teacher values(,glchengang,深圳一中,1976-10-10);insert into teacher values(,jack,深圳一中,1975-12-23);注：在建表中（1）将ID设为长度为3的数字字段:int(3)并让它每个记录自动加一:auto_incre

30、ment并不能为空:not null而且让他成为主字段primary key（2）将NAME设为长度为10的字符字段（3）将ADDRESS设为长度50的字符字段，而且缺省值为深圳。varchar和char有什么区别呢，只有等以后的文章再说了。（4）将YEAR设为日期字段。如果你在mysql提示符键入上面的命令也可以，但不方便调试。你可以将以上命令原样写入一个文本文件中假设为school.sql，然后复制到c:下，并在DOS状态进入目录mysqlbin，然后键入以下命令：mysql -uroot -p密码 < c:school.sql如果成功，空出一行无任何显示；如有错误，会有提示。（以上

31、命令已经调试，你只要将/的注释去掉即可使用）。四、将文本数据转到数据库中1、文本数据应符合的格式：字段数据之间用tab键隔开，null值用n来代替.例：3 rose 深圳二中 1976-10-104 mike 深圳一中 1975-12-232、数据传入命令 load data local infile "文件名" into table 表名;注意：你最好将文件复制到mysqlbin目录下，并且要先用use命令打表所在的库。五、备份数据库：（命令在DOS的mysqlbin目录下执行）mysqldump -opt school>school.bbb注释:将数据库schoo

32、l备份到school.bbb文件，school.bbb是一个文本文件，文件名任取，打开看看你会有新发现。MYSQL常用命令 (2006-10-08 21:03:13)转载1.下载后设置环境变量； 2.在cmd中启动mysql服务：mysqld-nt -uroot 3.进入mysql：mysql -uroot -p 4.修改密码:mysqladmin -u用户名 -p旧密码 password 新密码   例1：给root加个密码ab12。首先在DOS下进入目录mysqlbin，然后键入以下命令mysqladmin -uroot -password ab12注：因为开始时root没有密码，所以-p旧密码一项就可以省略了。   例2：再将root的密码改为djg345。mysqladmin -uroot -pab12 password djg345 5.增加新用户（注意：和上面不同，下面的因为是MYSQL环境中的命令，所以后面都带一个分号作为命令结束符） :grant select on 数据库.* to 用户名登录主机 identified by &quo

人人文库> 全部分类> 教育资料 > 课件下载

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论