| | 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
%> |
|
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理
