ASP代码集合资料.docx

1、ASP开始结束符语法： 文件后缀.asp2、判断语句：判断表单传来的用户名和密码是否正确，并提示 If request(username)=admin then Response.write恭喜，你已经登录成功 Else Response.write对不起，您输入的用户名错误，请返回重输入 End ifIf request(name)=admin and request(pass)=adminthen Response.redirectadmin.asp Else Response.redirectlogin.asp End if3、循环语句：循环显示6条数据库中的记录 写法1： for n=1 to 6 response.write rs(title)& if not rs.eof then exit for else rs.movenext end if next 写法二： do while not rs.eof response.write rs(title)& rs.movenext loop 4、常用变量转换函数： Now() 函数返回系统时间 Date() 函数返回当前系统日期. CStr(int) 函数转化一个表达式为字符串 CInt(string) 将一个表达式转化为数字类型 Trim(request(username) 函数去掉字符串左右的空格 Left(rs(title),10) 函数返回字符串左边第length个字符以前的字符（含第length个字符）,一般在限制新闻标题的显示长度的时候用 Len(string) 函数返回字符串的长度.5、Access数据库连接代码 方法一： db=mydata.mdb 如果放在目录中，就要写明database/mydata.mdb Set conn = Server.CreateObject(ADODB.Connection) connstr=Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & Server.MapPath(db) conn.Open connstr方法二： 如果你的服务器采用较老版本Access驱动，请用下面连接方法 db=mydata.mdb 如果放在目录中，就要写明database/mydata.mdb Set conn = Server.CreateObject(ADODB.Connection) connstr=driver=Microsoft Access Driver (*.mdb);dbq= & Server.MapPath(db) conn.Open connstr 6、Recordset对象操作数据库语法 （1）打开sql语句指定的表中的数据，把这批数据放入rs对象中 取出news表中所有的数据放到rs中 Set Rs=Server.CreateObject(ADODB.RecordSet) SqlStr=select * from news Rs.Open SqlStr,conn,1,1 取出news表中前6条数据放到rs中 Set Rs=Server.CreateObject(ADODB.RecordSet) SqlStr=select top 6 * from news Rs.Open SqlStr,conn,1,1 （2）循环显示6条rs对象中存在的数据，列表显示 不带连接的写法 for n=1 to 6 response.write rs(title)& if not rs.eof then exit for else rs.movenext end if next 带连接的写法 for n=1 to 6 response.write & left(rs(title),20)& if not rs.eof then exit for else rs.movenext end if next （3）向数据库添加一条数据代码 Set Rs=Server.CreateObject(ADODB.RecordSet) SqlStr=select * from news Rs.Open SqlStr,conn,1,3 注意这里的1,3代表可以写入的打开数据表 Rs.addnew Rs(title)=trim(request(title) Rs(neirong)=request(neirong) Rs(date)=now() rs.update 真正写入数据库 （4）修改一条记录的代码,通过(2)中的连接传递过来了id数值 Set Rs=Server.CreateObject(ADODB.RecordSet) SqlStr=select * from news where id=&request(id) Rs.Open SqlStr,conn,1,3 注意这里的1,3代表可以写入的打开数据表 Rs(title)=trim(request(title) Rs(neirong)=request(neirong) Rs(date)=now() rs.update 真正写入数据库 （5）删除数据库中一条记录，通过连接传递过来了数据得id数值 Set Rs=Server.CreateObject(ADODB.RecordSet) SqlStr=select * from news where id=&request(id) Rs.Open SqlStr,conn,1,3 注意这里的1,3代表可以写入的打开数据表 rs.delete 删除该条数据7、标准Sql语句写法 包括取全部记录 Set Rs=Server.CreateObject(ADODB.RecordSet) SqlStr=select * from news Rs.Open SqlStr,conn,1,1 运行sql语句，把数据提出到rs对象中 选取几条数据 Set Rs=Server.CreateObject(ADODB.RecordSet) SqlStr=select top 6 * from news Rs.Open SqlStr,conn,1,1 运行sql语句，把6条数据提出到rs对象中 选取一条指定表中id字段数值的数据 Set Rs=Server.CreateObject(ADODB.RecordSet) SqlStr=select * from news where id=&request(id) Rs.Open SqlStr,conn,1,1 运行sql语句，把6条数据提出到rs对象中 添加一条表单传过来的数据替换 Set Rs=Server.CreateObject(ADODB.RecordSet) SqlStr=insert into news(title，neirong) values(request(title), request(neirong) 修改一条指定表中id字段数值的数据，用表单传过来的数据替换 Set Rs=Server.CreateObject(ADODB.RecordSet) SqlStr=update news set title=&request(title)&,neirong=&request(内容)& where id=&request(id) Rs.Open SqlStr,conn,1,3 运行sql语句，把数据提出到rs对象中 删除一条指定表中id字段数值的数据 Set Rs=Server.CreateObject(ADODB.RecordSet) SqlStr=delete from news where id=&request(id) Rs.Open SqlStr,conn,1,3 运行sql语句，把数据提出到rs对象中8、当点击按钮时候表单带着的数据传送到哪个文件,在哪里指定? 9、表单提交来的数据接收并显示到屏幕上的代码 response.write request(name) response.write now() response.write trim(request(name)10、利用Application对象作计数器的语法 在网页的头部加入 Application.Lock Application(counter) = Application(counter) + 1 Application.UnLock 在需要显示计数内容的网页的地方，加入下面的语句 response.write Application(counter)11、利用Session对象保护后台管理页面admin.asp，防止未登陆用户进入 在网站后台网页admin.asp的头部加入下面的代码, if session(admin)ok then response.redirectlogin.asp response.end end if 在网站后台登陆页的密码验证部分标准写法 AdmName=Request.Form(Name) AdmPass=Request.Form(Pass) Set Rs=Server.CreateObject(ADODB.RecordSet) SqlStr=Select * from Admin where name=&AdmName& and pass=&AdmPass& Rs.Open SqlStr,conn,1,3 if Rs.EOF AND RS.BOF then Response.Redirect(login.asp) response.end else session(admin)=ok Response.Redirect(admin.asp) response.end end if12、分页代码 sql = select省略了sql语句 Set rs=Server.Createobject(ADODB.RECORDSET) rs.Open sql, conn, 1, 1 if not rs.eof then pages = 30 定义每页显示的记录数 rs.pageSize = pages 定义每页显示的记录数 allPages = rs.pageCount 计算一共能分多少页 page = Request.QueryString(page)通过浏览器传递的页数 if语句属于基本的排错处理 if isEmpty(page) or Cint(page) allPages then page = allPages end if rs.AbsolutePage = page Do while not rs.eof and pages 0 这里输出你要的内容 pages = pages - 1 rs.MoveNext Loop else Response.Write(数据库暂无内容！) End if rs.Close Set rs = Nothing 分页页码连接和跳转页码程序 % If Page 1 Then Response.Write 第一页 Response.Write 上一页 End If If Page rs.PageCount Then Response.Write 下一页 Response.Write 最后一页 End If % 输入页数： 页数:/ 13、分行列显示图片和产品名称的代码（4列x3行=12个） img src= width=52 height=120 % if i mod 4=0 then response.write i=i+1 rs.movenext loop rs.close % 14、ASP数据库连接之ACCESS-SQLSERVER 15.用下拉列表框的下拉操作读库 全部产品 精品推荐 安全阀 过滤阀 疏水阀 控制阀 调节阀 电磁阀 止回阀 旋塞阀 截止阀 闸阀 蝶阀 球阀 其它 获取数据用request.QueryString(fenleiid)16.文本框的特效17.验证是否为空，鼠标脱离文本框读库function stucode()if(document.form1.stcode.value=)alert(该学号不能为空！);elselocation.href=index.asp?stucode=+document.form1.stcode.value%on error resume nextstucode=trim(request(stucode)if stucode thenconn.open connstrstrSql=Select * From sheet1 Where stcode=&trim(stucode)&response.Write strSqlset rs=conn.execute(strSql)if rs.eof then%alert(该学号学生不存在！);window.history.go(-1)input name=stcode type=text id=stcode onBlur=stucode() value=input name=username type=text value=input name=tel1 type=text id=tel1 value=input name=tel2 type=text id=tel2 value= input type=radio name=sex value=男 checked 男 input type=radio name=sex value=女 checked 女 option value= option value= 网络技术支持 WEB网页设计 网络数据库管理 WEB网页设计 网络数据库管理 信息安全 18。图片的上传方法 1、在数据添加表单中加入用来保存上传的图片地址和文件的输入框，记下表单名称和这个输入框的名称，以备后面修改时候用。 2、在需要调用上传的输入框后面加上 3、修改upload.asp,找到其中的%if request.QueryString(filename) then response.write parent.form