ASP初学者的一些基本代码

	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)        conn.Open connstr 方法二 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表中签条数据放到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代表可以写入的打开数据表
	作者： wwwxqs2005   2006-2-25 14:14 　 回复此发言

2	Asp 初学者的一些基本代码
	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     '这里输出你要的内容。。。。。。。。。。。。。。。    pages = pages - 1      rs.MoveNext
	作者： wwwxqs2005   2006-2-25 14:14 　 回复此发言

3

Asp 初学者的一些基本代码

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 %>