1、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 Now ()函数返回系统时间 Date()函数返回当前系统时间 CStr(int)函数转化一个表达式为字符串 CInt(string)将一个表达式转化为数字类型 Trim(requrst("username"))函数去掉字符串左右的空格 Lift(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)
6:Recordset对象操作数据库语法 (1)打开sql语句指定的表中的数据,把这批数据放入rs对象中 取出news表中所有的数据放到rs中 Set Rs=server.CreateObject("ADODB.RecordSet") SqlStr="select * from news" Rs.Open SqlStr,conn 1,1 取出news表中签条数据放到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")=new() 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")=new() 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、当单击按钮时侯表单带着的数据传送到哪个文件,在那里指定? <form method="post" action="addsave.asp"> <input type="text" name="title"> <input type="text" name="neirong"> <input type="submit" name="Submit" value="提交"> </from> 9、表单提交来的数据接受并显示到屏幕上的代码 response.write request("name") response.write now() response.write trim(requst("name")) 10,利用Application对象作计数器的语法 在网页的头部加入 Application.Lock Application("counter")=Application("counter")+1 Application.UnLock 在需要显示计数内容的网页的地方,加入下面的语句 response.write Application("counter") 11,利用Session对象保护后台管理页面admin.asp,防止未登陆用户进入 if session(admin)<>"ok" then response.redirect"login.asp" response.end end if 在网站后台登陆页的密码验证部分标准写法 AdmName=Request.Form("Name") AdmName=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 if 12、分页代码 sql="select..................省略了sql语句 Set rs=Sevrer.Createobject("ADODB.RECORDSEAT") rs.Open sql conn 1,1 if not rs.eof then pages=30 '定义每页显示的记录数 rs.pageSize=page '定义每页显示的记录数 allPages=rs.pageCount '计算一共能分多少页 page= Request.QueryString("page") '通过浏览器传递的页数 ’if语句属于基本的排错处理 if isEmpty(page) or Cint(page) < 1 then page=1 elseif Cint(page)> allpages then page =m allpages end if rs.AbsolutePage = page Do while not rs.eof and pages > 0 '这里输出你要的内容。。。。。。。。。。。。。。。
Loop esle Response.Write("数据库暂时无内容!") End if rs.Close Set rs = Nothing 分页页码连接和跳转页码程序 <from 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" Name="Page" SIZE="3"> 页数:<font COLOR="Red"><%=Page%>/<%=rs.PageCount%></font> </p> </from>
13分行列显示图片和名称的代码(4列*3行=12个) <% Set Rs=Server.CreateObject("ADODB.RecordSet") SqlStr="select top 12 * from myprduct" Rs.Open SqlStr, coon 1,1 i=1 %>
<table width="90%" border="1" cellspacing="0" sellpadding="0"> <tr> <% do while not rs.eof %> <td align="center"> <img src="<%=rs("imgurl")%>"width="52"height="120"><br> <%=rs("productname")%> </td> <% if i mod 4=0 then response.write"</tr><tr>" i=i+1 rs.movenext loop rs.close %> </tr> </table> 十四,ASP数据库连接之ACCESS-SQLSERVER <% IsSq1Data 定义数据库类别,0为Access数据库,1为SQL数据库 IfIsSqData=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={Micosoft Access Driver(*.dbm)};" Esle SQL 数据库 SqlLocalName ="(local)" 连接IP[ 本地用(local)外地用IP] SqlUsername ="sa" 用户名 Sqlpassword ="1" SqlDatabaseName="data" 数据库名 ConnStr="Provider=Sqloledb; User ID="&SqlUsername&";Password="&SqlPassword&";Initial Catalog="&SqlDatabaseName&";Data Source="&SqlLocalName&";" END IF On Error Resume Next Ste conn=Server.CreateObject(ADODB.Connection) conn.open ConnStr If Err Then err.Clear Set Conn=Nothing Response.Write"数据库连接出错,请检查连接字串。" Response.End End If On ErrorGoTo0 %>