学习ASP有用的代码-中国大学生设计网

1、数据库连接。

asp与access数据库连接：

<%@ language=vbs cript%>
<%
dim conn,mdbfile
mdbfile=server.mappath("数据库名称.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile

asp与sql数据库连接：

<%@ language=vbs cript%>
<%
dim conn
set conn=server.createobject("adodb.connection")
con.open "provider=sqloledb;data source=sql服务器名称或ip地址;uid=sa;pwd=数据库密码;database=数据库名称
%>

dw中用字符串连接代码：

"driver={microsoft access driver (*.mdb)};dbq=数据库的绝对路径"

等做完后再打开数据库服务器，把

"driver={microsoft access driver (*.mdb)};dbq=数据库的绝对路径"

换成

"provider=microsoft.jet.oledb.4.0;data source="& server.mappath("服务器根目录下所在数据库路径")

并把本地服务器修改成测试服务器

2、加载别的页面。

3、显示数据库中的数据。

<%=rs("字段")%>

4、输出。

response.write("文字或者字符串");

5、打开数据库并建立数据集对象。

set conn=server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("***/photodata.mdb") '更改您的数据库文件存放路径
set rs=server.createobject("adodb.recordset") '建立数据集
sql="select * from data" '更改您的数据库表名
rs.open sql,conn,1,1

6、获得系统的时间。

<%=now()%>

7、取得来访问的ip。

<%=request.servervariables("remote_host")%>

8、随机数。

<%randomize%>
<%=(int(rnd()*n)+1)%>
n为可改变数

9、跳转页面。

response.redirect("页面")

10、弹出消息框。

response.write("<script>alert('消息框！')</script>")

11、用hidden类型来传递变量。

< % form method="post" action="mynextpage.asp" >
< % for each item in request.form % >
< input namee="< %=item% >" type="hidden"
value="< %=server.htmlencode(request.form(item)) % >" >
< % next % >
< /form >

12、常用sql语句整理。

(1) 数据记录筛选：

sql="select * from 数据表 where 字段名=字段值 order by 字段名 [desc]"

sql="select * from 数据表 where 字段名 like ''%字段值%'' order by 字段名 [desc]"

sql="select top 10 * from 数据表 where 字段名 order by 字段名 [desc]"

sql="select * from 数据表 where 字段名 in (''值1'',''值2'',''值3'')"

sql="select * from 数据表 where 字段名 between 值1 and 值2"

(2) 更新数据记录：

sql="update 数据表 set 字段名=字段值 where 条件表达式"

sql="update 数据表 set 字段1=值1,字段2=值2 …… 字段n=值n where 条件表达式"

(3) 删除数据记录：

sql="delete from 数据表 where 条件表达式"

sql="delete from 数据表" (将数据表所有记录删除)

(4) 添加数据记录：

sql="insert into 数据表 (字段1,字段2,字段3 …) valuess (值1,值2,值3 …)"

sql="insert into 目标数据表 select * from 源数据表" (把源数据表的记录添加到目标数据表)

(5) 数据记录统计函数：

avg(字段名) 得出一个表格栏平均值
count(*|字段名) 对数据行数的统计或对某一栏有值的数据行数统计
max(字段名) 取得一个表格栏最大的值
min(字段名) 取得一个表格栏最小的值
sum(字段名) 把数据栏的值相加

引用以上函数的方法：

sql="select sum(字段名) as 别名 from 数据表 where 条件表达式"
set rs=conn.excute(sql)

用 rs("别名") 获取统的计值，其它函数运用同上。

(5) 数据表的建立和删除：

create table 数据表名称(字段1 类型1(长度),字段2 类型2(长度) …… )

例：create table tab01(name varchar(50),datetime default now())

drop table 数据表名称 (永久性删除一个数据表)

asp分页。

page = request.querystring("page")

if page = empty then page = 1

rs.open "select .......",conn,1,1

rs.pagesize = 每页记录数

if not rs.eof then rs.absolutepage = page

for i=1 to rs.pagecount

if i=cint(page) then

response.write "<b>"& i &"</b> "

else

response.write "<a href=本页.asp?page="& i &">"& i &"</a> "

end if

for i=1 to rs.pagesize

if not rs.eof then

response.write rs(0)&rs(1)&.......

rs.movenext

end if

response.write "<a href=本页.asp?page=1>首页</a>"

response.write "<a href=本页.asp?page="&page-1&">上一页</a>"

response.write "<a href=本页.asp?page="&page+1&">下一页</a>"

response.write "<a href=本页.asp?page="&rs.pagecount&">尾页</a>"