源码网,源码论坛,源码之家,商业源码,游戏源码下载,discuz插件,棋牌源码下载,精品源码论坛

 找回密码
 立即注册
查看: 198|回复: 21

[ASP编程] 很有用的学习ASP常用到的代码第1/2页

[复制链接]

7万

主题

861

回帖

32万

积分

论坛元老

Rank: 8Rank: 8

积分
329525
发表于 2007-2-24 00:00:00 | 显示全部楼层 |阅读模式
1、数据库连接。
ASP与Access数据库连接: 

<%@ language=VBscript%> 
<% 
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=VBscript%> 
<% 
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、加载别的页面。

<!--#include file = "页面的路径和名称"-->

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 …) values (值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 数据表名称 (永久性删除一个数据表)

1、数据库连接。
ASP与Access数据库连接: 

<%@ language=VBscript%> 
<% 
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=VBscript%> 
<% 
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、加载别的页面。

<!--#include file = "页面的路径和名称"-->

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 …) values (值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 数据表名称 (永久性删除一个数据表)

回复

使用道具 举报

13

主题

2万

回帖

85

积分

注册会员

Rank: 2

积分
85
发表于 2022-8-17 19:44:50 | 显示全部楼层
了乐趣了去了去了去了去了
回复 支持 反对

使用道具 举报

16

主题

2万

回帖

376

积分

中级会员

Rank: 3Rank: 3

积分
376
发表于 2022-8-25 23:01:59 | 显示全部楼层
为全额万千瓦
回复 支持 反对

使用道具 举报

16

主题

2万

回帖

376

积分

中级会员

Rank: 3Rank: 3

积分
376
发表于 2023-1-13 13:58:54 | 显示全部楼层
不错的源码论坛
回复 支持 反对

使用道具 举报

6

主题

2万

回帖

425

积分

中级会员

Rank: 3Rank: 3

积分
425
发表于 2023-3-10 09:48:13 | 显示全部楼层
还不错啊
回复 支持 反对

使用道具 举报

3

主题

2万

回帖

163

积分

注册会员

Rank: 2

积分
163
发表于 2023-3-20 22:07:01 | 显示全部楼层
激动人心,无法言表!
TS人妖演出表演服务q3268336102电话13168842816
回复 支持 反对

使用道具 举报

0

主题

2万

回帖

0

积分

中级会员

Rank: 3Rank: 3

积分
0
发表于 2023-9-14 22:07:22 | 显示全部楼层
。。。。。。。。。。。。。。。
回复 支持 反对

使用道具 举报

1

主题

2万

回帖

55

积分

注册会员

Rank: 2

积分
55
发表于 2023-11-13 07:49:40 | 显示全部楼层
老大你好你好好你好
回复 支持 反对

使用道具 举报

2

主题

2万

回帖

69

积分

注册会员

Rank: 2

积分
69
发表于 2023-12-8 17:14:08 | 显示全部楼层
。。。。。。。。。。。。。。。
回复 支持 反对

使用道具 举报

1

主题

2万

回帖

182

积分

注册会员

Rank: 2

积分
182
发表于 2024-5-18 04:35:51 | 显示全部楼层
好东西可以可以可以可以
回复 支持 反对

使用道具 举报

高级模式
B Color Image Link Quote Code Smilies

本版积分规则

手机版|小黑屋|网站地图|源码论坛 ( 海外版 )

GMT+8, 2025-1-20 18:20 , Processed in 0.236217 second(s), 26 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表