ASP常用代码-必备

发布：天诚网络

来源：互联网

时间：2007-12-28

浏览【220】次

数据库连接:
MS Access数据库连接
用DSN连接并且没有用户名和密码：
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName"
%>
用DSN连接并且有用户名和密码：
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName","username","passwo rd"
%>
用实际的数据库绝对路径连接：
<%
Set conn = Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=e:\yanhang\database.mdb"
conn.Open Strconn
%>
用实际的数据库相对路径连接：
<%
Set conn = Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=" & Server.MapPath("/database/yanhang.mdb")
conn.Open Strconn
%>

MS SQL Server数据库连接
用DSN连接：
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "DSN=MyDSN;UID=user;PWD=passwo rd;DATABASE=databasename"
%>
不用DSN连接：
<%
Set conn = Server.CreateObject("ADODB.Connection")
DSNtemp="DRIVER={SQL Server};SERVER=ServerName;UID=USER;PWD=passwo rd;DATABASE=databasename"
conn.open DSNtemp
%>

FoxPro数据库连接
<%
Set Conn = Server.CreateObject("ADODB.connection")
ConnStr= "Driver=Microsoft Visual Foxpro Driver; UID=userID;SourceType=DBC;SourceDB=C:\yanhang\database.dbc"
Conn.Open ConnStr
%>

o racle数据库连接：
<%
set conn=server.createobject("adodb.connection")
conn.curso rlocation=adUseClient
DSNTemp="Provider=MSDAo rA.1;Passwo rd=xxxxx;User ID=yanhang;Data Source=xxx.wo rld"
conn.open DSNtemp
%>

sql常用命令方法!!!
(1) 数据记录筛选：
sql="s e l e c t * from 数据表 where 字段名=字段值 o rder by 字段名 [desc]"
sql="s e l e c t * from 数据表 where 字段名 like ''%字段值%'' o rder by 字段名 [desc]"
sql="s e l e c t top 10 * from 数据表 where 字段名 o rder by 字段名 [desc]"
sql="s e l e c t * from 数据表 where 字段名 in (''值1'',''值2'',''值3'')"
sql="s e l e c t * from 数据表 where 字段名 between 值1 a n d 值2"
(2) 更新数据记录：
sql="u p d a t e 数据表 set 字段名=字段值 where 条件表达式"
sql="u p d a t e 数据表 set 字段1=值1,字段2=值2 …… 字段n=值n where 条件表达式"
(3) 删除数据记录：
sql="d e l e t e f r o m 数据表 where 条件表达式"
sql="d e l e t e f r o m 数据表" (将数据表所有记录删除)
(4) 添加数据记录：
sql="i n s e r t into 数据表 (字段1,字段2,字段3 …) valuess (值1,值2,值3 …)"
sql="i n s e r t into 目标数据表 s e l e c t * from 源数据表" (把源数据表的记录添加到目标数据表)
(5) 数据记录统计函数：
AVG(字段名) 得出一个表格栏平均值
COUNT(*|字段名) 对数据行数的统计或对某一栏有值的数据行数统计
MAX(字段名) 取得一个表格栏最大的值
MIN(字段名) 取得一个表格栏最小的值
SUM(字段名) 把数据栏的值相加
引用以上函数的方法：
sql="s e l e c t sum(字段名) as 别名 from 数据表 where 条件表达式"
set rs=conn.execute(sql)
用 rs("别名") 获取统的计值，其它函数运用同上。
(5) 数据表的建立和删除：
CREATE TABLE 数据表名称(字段1 类型1(长度),字段2 类型2(长度) …… )
例：CREATE TABLE tab01(name varchar(50),datetime default now())
d r o p t a b l e 数据表名称 (永久性删除一个数据表)

s e l e c t distinct * into yjkc2 from yjkc
d r o p t a b l e yjkc
s e l e c t * into yjkc from yjkc2
d r o p t a b l e yjkc2

===================================================SQL连接方式==================================================
dim conn
set conn=server.createobject("ADODB.connection")
conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=服务器;UID=用户名;PWD=密码;DATABASE=表名;"

================================================access连接方式=================================================
dim conn
dim connstr
on erro r resume next
connstr="DBQ="+server.mappath("数据库路径")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr

====================================================包含页========================================================

=====================================================调用表=======================================================
set rs=server.createobject("adodb.reco rdset")
sql="s e l e c t * from 表名 where 字段=变量 o rder by 字段 desc"
rs.open sql,conn,1,1
打开数据库之后固定修改某个字段
conn.execute("u p d a t e 表名 Set 字段=字段+1 Where 字段=变量"

=====================================================删除内容======================================================
set rs=server.createobject("adodb.reco rdset")
sql="s e l e c t * from 表名 where 字段=变量"
rs.open sql,conn,1,3
有图片就删除图片
Picture=rs("newspic")
set fs=server.CreateObject("scripting.filesystemobject")
Picture=server.MapPath(Picture)
if fs.FileExists(Picture) then
fs.DeleteFile Picture,true
end if
rs.delete
rs.u p d a t e
response.redirect request.servervariables("http_referer")
end if
======================================================分页=====================================================
<table width="98%" bo rder="0" cellspacing="1" cellpadding="3" bgcolo r="cccccc">
<tr bgcolo r="f5f5f5">
<td width=10% align=center>
<font colo r="">id 
</td>
<td width=40% align=center>关键词;</td>
<td width=10% align=center>价  格</td>
<td width=20% align=center>修  改</td>
<td width=20% align=center>删  除</td>
</tr>
<%
If Request.QueryString("page") = "" o r Request.QueryString("page") = 0 then
page = 1
Else
page = CINT(Request.QueryString("page"))
End If
if request("pm")="" then
set rs=server.CreateObject("adodb.reco rdset")
sql="s e l e c t * from p_wo rds o rder by id desc"
rs.open sql,conn,1,1
else
set rs=server.CreateObject("adodb.reco rdset")
sql="s e l e c t * from p_wo rds where pm_name like '%"&request("pm")&"%'"
rs.open sql,conn,1,1
end if
if rs.eof a n d rs.bof then%>
<tr >
<td width=10% align=center colspan="6" >
暂时没有记录！！<br>
</td>
</tr>
<%
else
%>
<%
RS.PageSize=10'设置每页记录数
Dim TotalPages
TotalPages = RS.PageCount

If page>RS.Pagecount Then
page=RS.Pagecount
end if

RS.AbsolutePage=page
rs.CacheSize = RS.PageSize'设置最大记录数
Dim Totalcount
Totalcount =INT(RS.reco rdcount)

StartPageNum=1
do while StartPageNum+10<=page
StartPageNum=StartPageNum+10
Loop

EndPageNum=StartPageNum+9

If EndPageNum>RS.Pagecount then EndPageNum=RS.Pagecount %>
<%I=0
p=RS.PageSize*(page-1)
do while (Not RS.Eof) a n d (I<RS.PageSize)
p=p+1%>
<fo rm action="?act=move&id=<%=rs("id")%>" method=post name=fo rm1>
<tr bgcolo r="#FFFFFF">
<td align=center><%=rs("id")%></td>
<td><input type=text name="pm_name" size=12 value="<%=rs("pm_name")%>"></td>
<td align=center><input type=text name="pm_p" size=8 value="<%=rs("pm_p")%>"></td>
<td align=center><input type='submit' class='button' value='修改'></td>
<td align=center><input type="button" name="Submit" value="删除" class="button" onclick="location='biglist.asp?act=del&id=<%=rs("id")%>'"></td>
</tr>
</fo rm>
<%I=I+1
RS.MoveNext
Loop%>


<tr> <td colspan="6" align=right height=30>
共有<font colo r=red><%=rs.reco rdcount%></font>个关键词，<font colo r=red><%=page%></font>/<%=TotalPages%>页
【<a href="<%=request.ServerVariables("URL")%>?page=1">首页</a>】
<% if page>1 then %>
【<a href="<%=request.ServerVariables("URL")%>?page=<%=StartPageNum-1%>">上一页</a>】
<%else%>
<%end if%>
<% Fo r I=StartPageNum to EndPageNum
      if I<>page then %><A href="?page=<%=I%>"><u><%=I%></u> </A><% else %><font colo r=red><%=I%></font> <% end if %><% Next %><% if EndPageNum<RS.Pagecount then %>
【<a href="<%=request.ServerVariables("URL")%>?page=<%=EndcPageNum+i%>">下一页</a>】
<%end if%>
【<a href="<%=request.ServerVariables("URL")%>?page=<%=TotalPages%>">尾页</a>】
</td></tr>

<%
end if
rs.close
%>
</table>

===============================================常用JAVA===========================================================
response.write"<SCRIPT language=JavaScript>alert('该关键词已经存在。');"
response.write"javascript:histo ry.go(-1)</SCRIPT>"
'response.redirect "biglist.asp"
'response.write"this.location.href='index.html';</SCRIPT>"
'response.redirect request.servervariables("http_referer")
response.end

=================================================常用命令=============================================================
两个表循环
<%
dim crs1
dim csql1
Set crs1= Server.CreateObject("ADODB.Reco rdset")
csql1="s e l e c t * from commercetype"
crs1.open csql1,conn,1,1
%>
<%do while not crs1.eof%>
<%
Set all= Server.CreateObject("ADODB.Reco rdset")
csql1="s e l e c t * from Commerce where Typeid="&crs1("Typeid")
all.open csql1,conn,1,1
%>
<td width="20%" height=17 bgcolo r="#E4F4FC" valign=middle>
<font colo r=red>
<%if not all.eof then%>
<%=all.reco rdcount%>
<%else%>
0
<%end if%>
</font>
</td>
<%
crs1.movenext
loop
%>
去掉太长的录入文字:
<td style="wo rd-wrap:break-wo rd;wo rd-break:break-all;">
<%=ltrim(arr(j))%>
去掉左空格
instr(request.fo rm("t"),",")>0
查验是否有，号
arr=split(request.fo rm("t"),",")
去掉，并付值给arr
ubound(arr)
个数

ASP函数介紹
　　
　　1. 函数array() 功能:创建一个数组变量格式:array(list) 参数:list 为数组变量中的每个数值列,中间用逗号间隔例子: 结果: i 被赋予为数组
　　
　　2. 函数Cint() 功能:将一表达式/其它类型的变量转换成整数类型(int) 格式:Cint(expression) 参数:expression 是任何有效的表达式/其它类型的变量例子: 结果: 236 函数Cint()将字符"234"转换成整数234.如果表达式为空, 或者无效时,返回值为0;
　　
　　
　　3. 函数:Creatobject() 功能:创建及返回一个ActiveX对象. 格式:Creatobject(obname) 参数:obname 是对象的名称例子: 结果:
　　
　　4. 函数Cstr() 功能:将一表达式/其它类型的变量转换成字符类型(string) 格式:Cstr(expression) 参数:expression是任何有效的表达式/其它类型的变量例子: 结果:函数Cstr()将整数 5 转换成字符"5".
　　
　　5. 函数Date() 功能:返回当前系统(server端)的日期格式:Date() 参数:无例子<% date () %> 结果:05/10/00
　　
　　
　　6. #.函数Dateadd() 功能:计算某个指定的时间和格式:dateadd(timeinterval,number,date) 参数:timeinterval是时间单位(月,日..); number是时间间隔值,date是时间始点. 例子: 结果: 11/4/99 3:34:45 PM 其中 "m" = "month"; "d" = "day"; 如果是currentDate 格式,则, "h" = "hour"; "s" = "second";
　　
　　7. #.函数Datediff() 功能:计算某量个指定的时间差格式:datediff(timeinterval,date1,date2[,firstdayofweek[,firstdayofyear>) 参数:timeinterval 是时间单位; date1,date2是有效的日期表达式,firstdayofweek,firstdayofyear 是任意选项. 例子: 结果:There are 150 days to millenium from 8/4/99.
　　
　　8. #.函数day() 功能:返回一个整数值,对应于某月的某日格式:day(date) 参数:date是一个有效的日期表达式; 例子lt;% =date(#8/4/99#) %> 结果:4
　　
　　
　　9. #.函数fo rmatcurrency() 功能:转换成货币格式格式:fo rmatcurrency(expression [,digit[,leadingdigit[,paren[,groupdigit>>) 参数:expression 是有效的数字表达式;digit表示小数点后的位数;leadingdigit,paren,groupdigit是任意选项. 例子lt;%=Fo rmatCurrency(34.3456)%> 结果34.35
　　10. #.函数Fo rmatdatetime() 功能:格式化日期表达式/变量格式:fo rmatdatetime(date[,namefo rmat]) 参数:date为有效的日期表达式/变量;namefo rmat是指定的日期格式常量名称. 例子lt;% =fo rmatdatetime("08/04/99",vblongdate) %> 结果:Wednesday,August 04,1999
　　
　　11. #.函数Isnumeric() 功能:返回一个布尔值,判断变量是否为数字变量,或者是可以转换成数字的其它变量. 格式:isnumeric(expression) 参数:expression 是任意的变量. 例子: 结果: true.
　　
　　12. #.函数Isobject() 功能:返回一个布尔值,判断变量是否为对象的变量, 格式:isobject(expression) 参数:expression 是任意的变量. 例子: 结果: true
　　
　　
　　13. #.函数:Lbound() 功能:返回一个数组的下界. 格式:Lbound(arrayname[,dimension]) 参数:arrayname 是数组变量,dimension 是任意项例子: 结果:0
　　
　　14. #.函数Lcase() 功能:将一字符类型变量的字符全部变换小写字符. 格式:Lcase(string) 参数:string是字符串变量例子: 结果:this is lcase!
　　
　　
　　15. #.函数left() 功能:截取一个字符串的前部分; 格式:left(string,length) 参数:string字符串,length截取的长度. 例子: 结果:this i
　　
　　16. #.函数len() 功能:返回字符串长度或者变量的字节长度格式:len(string |varname) 参数:string字符串;varname任意的变量名称例子: 结果:15
　　
　　
　　17. #.函数ltrim() 功能:去掉字符串前的空格. 格式:ltrim(string) 参数:string 字符串. 例子: 结果:Today
　　
　　
　　19. #.函数minute() 功能:返回一数值, 表示分钟格式:minute(time) 参数: time是时间变量例子lt;% =minute(#12:23:34#) %> 结果:23
　　
　　20. #.函数month() 功能:返回一数值, 表示月份格式:month(time) 参数:time是日期变量例子lt;% =month(#08/09/99) %> 结果:9
　　
　　
　　21. #.函数monthname() 功能:返回月份的字符串(名称). 格式:Monthname(date [,abb]) 参数:date是日期变量,abb=true时则月份的缩写, 例子: 结果:April
　　
　　22. #.函数Now() 功能:返回系统的当前时间和日期. 格式:now() 参数:无例子: 结果: 05/10/00 8:45:32 pm
　　
　　
　　23. #.函数:replace() 功能:在字符串中查找,替代指定的字符串. 格式:replace(strtobesearched,strsearchfo r,strreplacewith [,start[,count[,compare>]) 参数:strtobesearched是字符串; strsearchfo r是被查找的子字符串;strreplacewith 是用来替代的子字符串.start,count,compare 是任意选项. 例子: 结果:this is an o range.
　　
　　24. #.函数right() 功能:截取一个字符串的后部分格式:right(string,length) 参数:string字符串,length截取的长度. 例子: 结果:st!
　　
　　
　　25. #.函数rnd() 功能:返回一个随机数值格式:rnd[(number)] 参数:number是任意数值. 例子: 结果:0/1数值之一,无ra n domize(), 则不能产生随机数.
　　
　　26. #.函数round() 功能:完整数值格式:round(expression[,numright]) 参数:expression数字表达式;numright任意选项. 例子: 结果: 12
　　
　　
　　27. #.函数rtrim() 功能:去掉字符串后的空格. 格式:rtrim(string) 参数:string 是字符串例子: 结果:this is a test!
　　
　　28. #.函数second() 功能:返回一个整数值. 格式:second(time) 参数:time是一个有效的时间表达式; 例子lt;% =second(# 12:28:30#) %> 结果:30
　　
　　
　　29. #.函数strReverse() 功能:返回与原字符串排列逆向的字符串. 格式:strreverse(string) 参数:string是字符串例子lt;% =strreverse("this is a test!") 结果:!tset a si siht
　　
　　30. #.函数time() 功能:返回当前系统的时间值. 格式:time() 参数:无结果:9:58:28 Am 关键词：ASP
　　
　　
　　31. #.函数trim() 功能:删去字符串前,后的空格. 格式:trim(string) 参数:string 字符串. 例子: 结果:this is a test!
　　
　　32. #.函数UBound() 功能:返回一个数组的上界. 格式:Ubound(expression [,dimension]) 参数:expression 是数组表达式/数组变量,dimension 是任意项例子: 结果: 2
　　
　　
　　33. #.函数:UCase() 功能:将一字符类型变量的字符全部变换成大写字符. 格式:Ucase(string) 参数:string是字符串变量例子: 结果:THIS IS LCASE!
　　
　　34. #.函数Vartype() 功能:返回变量的常量代码(整数) 格式:Vartype(varname) 参数:varname是任何类型的变量名称. 例子: 结果:2 (2表示整数,须要参考ASP常量代码.)
　　
　　
　　35. #.函数Weekday() 功能:返回一个整数,对应一周中的第几天. 格式:Weekday(date [,firstofweek]) 参数:date为日期变量,firstofweek为任选项. 例子: 结果:3(3 表示是星期二)
　　
　　36. #.函数weekdayname() 功能:返回字符串,对应星期几. 格式:weekdayname(weekday[,abb[,firstdayofweek>) 参数:weekday为日期变量,abb,firstdayofweek为任选项. 例子: 结果: Wednesday
　　
　　
　　37. #.函数year() 功能:返回日期表达式所在的年份. 格式:year(date) 参数:date是有效的日期表达式例子: 结果:1999