asp常用代码大全
发布时间：2022-10-13 11:55:39 所属栏目：Asp教程 来源：
导读： x1、ASP开始结束符语法：< % %> 文件后缀.asp
2、判断语句：判断表单传来的用户名和密码是否正确，并提示
If request("username")="admin" then
Response.write"恭喜，你已经登录成功"
2、判断语句：判断表单传来的用户名和密码是否正确，并提示
If request("username")="admin" then
Response.write"恭喜，你已经登录成功"
|
x1、ASP开始结束符语法：< % %> 文件后缀.asp 2、判断语句：判断表单传来的用户名和密码是否正确，并提示 If request("username")="admin" then Response.write"恭喜，你已经登录成功" Else Response.write"对不起，您输入的用户名错误，请返回重输入" End if If request("name")="admin" and request("pass")="admin"then Response.redirect"admin.asp" Else Response.redirect"login.asp" End if 3、循环语句：循环显示6条数据库中的记录 写法1： for n=1 to 6 response.write rs("title")&"< br>" if not rs.eof then exit for else rs.movenext end if next 写法二： do while not rs.eof response.write rs("title")&"< br>" 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" ‘如果放在目录中ASP 语法，就要写明"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")&"< br>" if not rs.eof then exit for else rs.movenext end if next 带连接的写法 for n=1 to 6 response.write "< a href=show.asp?id=rs("id")>"& left(rs("title"),20)&"< /a>< br>" 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 whereid") 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 whereid") 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 whereid") 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("内容")&"’ whereid") Rs.Open SqlStr,conn,1,3 ‘运行sql语句，把数据提出到rs对象中 删除一条指定表中id字段数值的数据 Set Rs=Server.CreateObject("ADODB.RecordSet") SqlStr="delete from news whereid") Rs.Open SqlStr,conn,1,3 ‘运行sql语句，把数据提出到rs对象中 8、当点击按钮时候表单带着的数据传送到哪个文件,在哪里指定? < form method="post" action="addsave.asp"> < input type="text"> < input type="text"> < input type="submit" value="提交"> < /form> 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.redirect"login.asp" response.end end if 在网站后台登陆页的密码验证部分标准写法 AdmName=Request.Form("Name") AdmPass=Request.Form("Pass") Set Rs=Server.CreateObject("ADODB.RecordSet") SqlStr="Select * from Admin where 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 if 12、分页代码 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 分页页码连接和跳转页码程序 < form Action="v3.asp" Method="GET"> < % If Page < > 1 Then Response.Write "< A HREF=?Page=1>第一页< /A>" Response.Write "< A HREF=?Page=" & (Page-1) & ">上一页< /A>" End If If Page < > rs.PageCount Then Response.Write "< A HREF=?Page=" & (Page+1) & ">下一页< /A>" Response.Write "< A HREF=?Page=" & rs.PageCount & ">最后一页< /A>" End If %> < p>输入页数：< input TYPE="TEXT" SIZE="3"> 页数:< font COLOR="Red">< %=Page%>/< %=rs.PageCount%>< /font> < /p> < /form> 13、分行列显示图片和产品名称的代码（4列x3行=12个） < % Set Rs=Server.CreateObject("ADODB.RecordSet") SqlStr="select top 12 * from myproduct" Rs.Open SqlStr,conn,1,1 i=1 %> < table cellspacing="0" sellpadding="0"> < tr> < % do while not rs.eof %> < td> < img src="< %=rs("imgurl")%>">< br> < %=rs("productname")%> < /td> < % if i mod 4=0 then response.write"< /tr>< tr>" i=i+1 rs.movenext loop rs.close %> < /tr> < /table> 14、ASP数据库连接之ACCESS-SQLSERVER < % IsSqlData=0 定义数据库类别，0为Access数据库，1为SQL数据库 If IsSqlData=0 Then Access数据库 datapath ="data/" 数据库目录的相对路径 datafile ="data.mdb" 数据库的文件名 connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(""&datapath&""&datafile&"") Connstr="DBQ="&server.mappath(""&datapath&""&datafile&"")&";DRIVER={Microsoft Access Driver (*.mdb)};" Else SQL数据库 SqlLocalName ="(local)" 连接IP [ 本地用 (local) 外地用IP ] SqlUsername ="sa" 用户名 SqlPassword ="1" 用户密码 SqlDatabaseName="data" 数据库名 ConnStr = "Provider=Sqloledb;User; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";" END IF On Error Resume Next Set conn=Server.CreateObject("ADODB.Connection") conn.open ConnStr If Err Then err.Clear Set Conn = Nothing Response.Write "数据库连接出错，请检查连接字串。" Response.End End If On Error GoTo 0 %> 15.用下拉列表框的下拉操作读库 获取数据用request.QueryString("fenleiid") 16.文本框的特效 onMouseOver="this.focus()" value="请输入关键字" size="13" maxlength="50"> 17.验证是否为空，鼠标脱离文本框读库 （编辑：开发网_商丘站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
站长推荐
浙公网安备 33038102330475号