交流论坛--ADO数据访问一点通 A:link {
COLOR: #000000; TEXT-DECORATION: none
}
A:active {
COLOR: #000000; TEXT-DECORATION: none
}
A:visited {
COLOR: #000000; TEXT-DECORATION: none
}
A:hover {
COLOR: #4455aa; TEXT-DECORATION: underline
}
BODY {
SCROLLBAR-FACE-COLOR: #dee3e7; FONT-SIZE: 12px; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; CURSOR: url('mouse.ani'); SCROLLBAR-SHADOW-COLOR: #dee3e7; COLOR: #000000; SCROLLBAR-3DLIGHT-COLOR: #d1d7dc; SCROLLBAR-ARROW-COLOR: #006699; SCROLLBAR-TRACK-COLOR: #efefef; FONT-FAMILY: 宋体; SCROLLBAR-DARKSHADOW-COLOR: #98aab1; BACKGROUND-COLOR: #ffffff
}
TD {
FONT-SIZE: 12px; LINE-HEIGHT: 15px; FONT-FAMILY: 宋体
}
TH {
FONT-WEIGHT: bold; FONT-SIZE: 12px; BACKGROUND-IMAGE: url(skin/default/bg1.gif); COLOR: white; BACKGROUND-COLOR: #4455aa
}
TD.TableTitle2 {
BACKGROUND-COLOR: #e4e8ef
}
TD.TableBody1 {
BACKGROUND-COLOR: #ffffff
}
TD.TableBody2 {
BACKGROUND-COLOR: #e4e8ef
}
TD.TopDarkNav {
BACKGROUND-IMAGE: url(skin/default/topbg.gif)
}
TD.TopLighNav {
BACKGROUND-IMAGE: url(skin/default/bottombg.gif)
}
TD.TopLighNav1 {
BACKGROUND-IMAGE: url(skin/default/tabs_m_tile.gif)
}
TD.TopLighNav2 {
BACKGROUND-COLOR: #ffffff
}
.tableBorder1 {
BORDER-RIGHT: 1px; BORDER-TOP: 1px; BORDER-LEFT: 1px; WIDTH: 97%; BORDER-BOTTOM: 1px; BACKGROUND-COLOR: #6595d6
}
.tableBorder2 {
BORDER-RIGHT: #dedede 1px solid; BORDER-TOP: #dedede 1px solid; BORDER-LEFT: #dedede 1px solid; WIDTH: 97%; BORDER-BOTTOM: #dedede 1px solid; BACKGROUND-COLOR: #efefef
}
#TableTitleLink A:link {
COLOR: #ffffff; TEXT-DECORATION: none
}
#TableTitleLink A:visited {
COLOR: #ffffff; TEXT-DECORATION: none
}
#TableTitleLink A:active {
COLOR: #ffffff; TEXT-DECORATION: none
}
#TableTitleLink A:hover {
COLOR: #ffffff; TEXT-DECORATION: underline
}
INPUT {
FONT-SIZE: 12px; LINE-HEIGHT: 15px; FONT-FAMILY: Tahoma,Verdana,宋体
}
SELECT {
FONT-SIZE: 12px; LINE-HEIGHT: 15px; FONT-FAMILY: Tahoma,Verdana,宋体
}
TEXTAREA {
FONT-SIZE: 12px; LINE-HEIGHT: 15px; FONT-FAMILY: Tahoma,Verdana,宋体
}
.normalTextSmall {
FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif
}
加入收藏
联系我们
论坛帮助
隐身 重登陆 用户控制面板 聊天窗口 搜索 自选风格 论坛状态 论坛展区 退出 设施 娱乐
我的收件箱 ( 0 新 )
交流论坛 → 资源放送 → 『网络技术』 →
ADO数据访问一点通
您是本帖的第 33 个阅读者
* 贴子主题 ：
ADO数据访问一点通
fisher
等级：版主
文章：127
积分：1129
困难度:
潜力：
偿还能力：
诚信度：
注册：2003-8-4
楼主
ADO数据访问一点通
对于ADO（ActiveX Data Object)
，大家已经听得比较多了，但对于ADO的实际应用，可能就没那么清楚了。今天我就来讲一讲ASP处理数据用的组件ADO，看过之后你就知道它原来是那么简单。
首先让我们看看如何用ASP结合connection属性创建一个数据库连接。
字符串形式连接一个SQL Server库
< %
set conn=server.CreateObject ("adodb.connection")
’创建一个Connection属性的对象conn
conn.Open "driver={SQL Server};server=localhost;UID=username;PWD=password;database=dataname"
’用conn.对象的open方法创建一个对SQL Server数据库的连接
% >
代码中conn的open方法是打开一个连接用的,后边跟一个字符串。driver={SQL Server}的意思是，连接的是一个SQL Server的库，server=localhost中的localhost代表的是本机的IP，你的数据库服务器IP是多少，这里就改成相应的值，UID和PWD这两个是登录数据库服务器的用户名和密码，最后一个选项是你要操作的数据库的名字。
好了，数据库我们连接上了，下边该讲一下如何读取数据了。
首先让我们来创建一个recordset属性的对象set rs=server.CreateObject ("ADODB.Recordset")，然后用对象rs来打开一个记录集。
rs.open “Select * from tablename where uid=’Coolshow’”,conn,1,1
这是用对象rs的open方法打开一个记录集，后边跟了三个参数用逗号分开。第一个参数是选取数据用的T-SQL语句。第二个是我们已经创建好连接的connection属性的对象conn。最后边两个参数用法比较多，如果只读取数据，设置“1,1”就足够了，如果要添加数据，设置“1,2”，如果要改写数据最好设置“2,3”，这两个参数一定要切记。好了，现在让我们来对数据做些处理吧。
一、显示数据
< %
set conn=server.CreateObject ("adodb.connection")
conn.Open "driver={SQL Server};server=localhost;UID=username;PWD=password;database=dataname"
set rs=server.CreateObject ("ADODB.Recordset")
rs.open “Select * from tablename where uid=’Coolshow’”,conn,1,1
if rs.eof and rs.bof then ’如果数据指针同时指到记录集的头部和尾部，说明这时候记录集为空
response.write“没有可以显示的数据” ’打印“没有可以显示的数据”
do until rs.EOF ’循环 直到记录集尾部为止
response.write rs(“字段1名”) ’显示一个行的一个字段
response.write rs(“字段2名”) ’同上
response.write rs(“字段3名”) ’同上
response.write “
” ’一个行打印完毕，换行
rs.MoveNext ’将数据指针移到下一个行
loop ’循环结束
% >
rs.bof，rs.eof和rs.movenext这三个方法都是跟数据指针有关的，前两个rs.bof和rs.eof用来判断数据指针是否在记录集的开始或者末尾，它们都会返回一个布尔值。rs.movenext跟
前两个就大不相同了，它是用来控制数据指针的，让指针移动到下一位，我们能把一个表的多个行显示出来也就是靠它。
二、添加数据
< %
……’代码与前同，略
rs.open “Select * from tablename where uid=’Coolshow’”,conn,1,2 ’这里我们要添加数据，所以把参数改成了1,2
rs.addnew ’告诉rs， 我们要添加一行
rs(“字段1名”)=值1 ’给要添加的行的一个字段赋值
rs(“字段2名”)=值2 ’同上
rs(“字段3名”)=值3 ’同上
rs.update ’通知rs，我们要把这个行写入数据库
% >
这段代码便可以把一个新的行写入数据库了。这里有我们以前没见过的两个方法rs.addnew和rs.update，其中rs.addnew是添加一个行时必要的,而rs.update则是写入、修改数据库时都需要用的。
三、修改数据
修改数据跟添加数据差不多，只是在T-SQL语句里，你必须只选取一个行。
< %
’……代码与前同，略
rs.open “Select * from tablename where uid=’Coolshow’”,conn,2,3 ’这里我们要修改数据，所以把参数改成了2,3
rs(“字段1名”)=值1 ’给要修改的行的一个字段赋一个新值
rs(“字段2名”)=值2 ’同上
rs(“字段3名”)=值3 ’同上
rs.update ’通知rs，我们要把修改好的这个行写入数据库
% >
拿这段代码跟添加数据的代码比较，你会发现只有两个不同点，就是conn后边的参数变了以及没有了addnew，修改跟添加的区别仅在于此。利用ADO修改数据的技巧你也学会了。下边是删除数据，删除数据就更简单了。
四、删除数据
< %
……’代码与前同，略
rs.open “Select * from tablename”,conn,2,3
rs.delete ’通知rs，我们要删除当前记录
% >
这里我们新接触到的方法就是rs.delete了，顾名思义，就是删除当前记录嘛！讲到这里ADO的常用功能也就全部讲完。谨希望此文能开拓大家的思路，助喜欢ASP的朋友们轻松跨过ADO这个门槛。
本文章归 交流论坛 与 fisher 共同所有，未经同意，请勿转载!
※版权所有，不得转载※
2003-9-28 13:45:00
鲜花 ( 0 ) 鸡蛋 ( 0 )
本主题贴数 1 ，分页： [1] 跳转论坛至... ╋休闲驿站 ├『情感驿站』 ├『艺术长廊』 ├『生活健康』 ├『生活贴图区』 ├JAY∮地带 ╋资源放送 ├『网络技术』 ├『免费建站』 ├『精彩无限』 ├『精品下载』 ╋站务管理区 ├『站务交流』
*快速回复：ADO数据访问一点通
你的用户名: 还没注册? 密码: 忘记密码?
内容
HTML标签： 不可用 UBB标签： 可用 贴图标签： 可用 多媒体标签：可用 表情字符转换：可用 上传图片：可
用 最多15KB
邮件回复 显示签名 [Ctrl+Enter直接提交贴子]
管理选项 ： 锁定 | 解锁 | 提升 | 删除 | 移动 | 固顶 | 总固顶 | 奖励 | 惩罚 | 发布公告
Powered by： 交流网
Copyright (C)2003 - 2004 https://www.doczj.com/doc/0e4241348.html, , 页面执行时间：328.125毫秒
交流论坛--ASP编写完整的IP所在地搜索类 A:link {
COLOR: #000000; TEXT-DECORATION: none
}
A:active {
COLOR: #000000; TEXT-DECORATION: none
}
A:visited {
COLOR: #000000; TEXT-DECORATION: none
}
A:hover {
COLOR: #4455aa; TEXT-DECORATION: underline
}
BODY {
SCROLLBAR-FACE-COLOR: #dee3e7; FONT-SIZE: 12px; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; CURSOR: url('mouse.ani'); SCROLLBAR-SHADOW-COLOR: #dee3e7; COLOR: #000000; SCROLLBAR-3DLIGHT-COLOR: #d1d7dc; SCROLLBAR-ARROW-COLOR: #006699; SCROLLBAR-TRACK-COLOR: #efefef; FONT-FAMILY: 宋体; SCROLLBAR-DARKSHADOW-COLOR: #98aab1; BACKGROUND-COLOR: #ffffff
}
TD {
FONT-SIZE: 12px; LINE-HEIGHT: 15px; FONT-FAMILY: 宋体
}
TH {
FONT-WEIGHT: bold; FONT-SIZE: 12px; BACKGROUND-IMAGE: url(skin/default/bg1.gif); COLOR: white; BACKGROUND-COLOR: #4455aa
}
TD.TableTitle2 {
BACKGROUND-COLOR: #e4e8ef
}
TD.TableBody1 {
BACKGROUND-COLOR: #ffffff
}
TD.TableBody2 {
BACKGROUND-COLOR: #e4e8ef
}
TD.TopDarkNav {
BACKGROUND-IMAGE: url(skin/default/topbg.gif)
}
TD.TopLighNav {
BACKGROUND-IMAGE: url(skin/default/bottombg.gif)
}
TD.TopLighNav1 {
BACKGROUND-IMAGE: url(skin/default/tabs_m_tile.gif)
}
TD.TopLighNav2 {
BACKGROUND-COLOR: #ffffff
}
.tableBorder1 {
BORDER-RIGHT: 1px; BORDER-TOP: 1px; BORDER-LEFT: 1px; WIDTH: 97%; BORDER-BOTTOM: 1px; BACKGROUND-COLOR: #6595d6
}
.tableBorder2 {
BORDER-RIGHT: #dedede 1px solid; BORDER-TOP: #dedede 1px solid; BORDER-LEFT: #dedede 1px solid; WIDTH: 97%; BORDER-BOTTOM: #dedede 1px solid; BACKGROUND-COLOR: #efefef
}
#TableTitleLink A:link {
COLOR: #ffffff; TEXT-DECORATION: none
}
#TableTitleLink A:visited {
COLOR: #ffffff; TEXT-DECORATION: none
}
#TableTitleLink A:active {
COLOR: #ffffff; TEXT-DECORATION: none
}
#TableTitleLink A:hover {
COLOR: #ffffff; TEXT-DECORATION: underline
}
INPUT {
FONT-SIZE: 12px; LINE-HEIGHT: 15px; FONT-FAMILY: Tahoma,Verdana,宋体
}
SELECT {
FONT-SIZE: 12px; LINE-HEIGHT: 15px; FONT-FAMILY: Tahoma,Verdana,宋体
}
TEXTAREA {
FONT-SIZE: 12px; LINE-HEIGHT: 15px; FONT-FAMILY: Tahoma,Verdana,宋体
}
.normalTextSmall {
FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif
}
加入收藏
联系我们
论坛帮助
登陆 注册 搜索 自选风格 论坛状态 论坛展区 我能做什么 设施 娱乐
>> 各种网络的安装,使用,故障解决,服务器的安装技术及黑客技术等...
交流论坛 → 资源放送 → 『网络技术』 →
ASP编写完整的IP所在地搜索类
您是本帖的第 6 个阅
读者
* 贴子主题 ：
ASP编写完整的IP所在地搜索类
fisher
等级：版主
文章：127
积分：1128
困难度:
潜力：
偿还能力：
诚信度：
注册：2003-8-4
楼主
ASP编写完整的IP所在地搜索类
ASP编写完整的一个IP所在地搜索类的修正文稿
修正了查询方法，查询的方法和追捕的一致；只是追捕会自动更正IP。
还有个函数的书写错误，也已经修正；
包括增加了一个IP地址正确性的验证函数。（只是从格式上判断）
<%
Server.ScriptTimeout = &HE10 '&H3C
Response.Buffer = ("S.F." = "S.F.")
Dim IpSearch
'建立对象
Set IpSearch = New clsIpSearch
' 该句建立SQL Server的IP地址库的连接，可使用默认连接，但要保证存在wry.mdb
IpSearch.ConnectionString = "DRIVER={SQL Server};SERVER=hostname:UID=sa;PWD=;DATABASE=Ip"
' 设置要查询的IP，可用默认值，这里设置的是 127.0.0.1
IpSearch.IpAddress = &H7F & "." & &H00 & "." & &H00 & "." & &H01
If Request.QueryString("IP")<>"" Then
If IpSearch.Valid_IP(Request.QueryString("IP")) Then
IpSearch.IpAddress = Trim(Request.QueryString("IP"))
End If
End If
' 取得IP 所在地，反馈值有三个，以逗号分割
' 格式为：所在国家或地区,当地上网地区,提供正确IP地址信息的用户名
Response.Write ("所在地:" & IpSearch.GetIpAddrInfo() & "
")
' 取出IP地址
Response.Write ("IP:" & IpSearch.IpAddress & "
")
' 将IP地址转换为数值
Response.Write ("IP转换为数值:" & IpSearch.CLongIP(IpSearch.IpAddress) & "
")
' 将IP地址转换为数值后还原成IP字符串
Response.Write ("数值还原成IP:" & IpSearch.CStringIP(IpSearch.CLongIP(IpSearch.IpAddress)) & "
")
Response.Write ("
Write ("
────
' 类初始化
Private Sub Class_initialize()
' 这里建立的是通过“数据转换--方法一”生成的mdb 库文件
ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("wry.mdb")
IpAddress = GetClientIP()
Set DBConn = OpenConnection()
End Sub
'────────────────────────────────
' 类注销
Private Sub Class_Terminate()
ConnectionString = Null
IpAddress = Null
DBConn.Close
Set DBConn = Nothing
End Sub
'────────────────────────────────
' 建立一个连接
Private Function OpenConnection()
Dim tmpConn
Set tmpConn=Server.CreateObject("ADODB.Connection")
tmpConn.Open ConnectionString
Set OpenConnection=tmpConn
Set tmpConn=nothing
End Function
'────────────────────────────────
' 执行一个SQL命令，并返回一个数据集对象
Private Function SQLExeCute(strSql)
Dim Rs
Set Rs=DBConn.ExeCute(strSQL)
Set SQLExeCute = Rs
Set Rs=nothing
End Function
'────────────────────────────────
'IP 效验
Public Function Valid_IP(ByVal IP)
Dim i
Dim dot_count
Dim test_octet
Dim byte_check
IP = Trim(IP)
' 确认IP长度
If Len(IP) < &H08 Then
Valid_IP = False
'显示错误提示
Exit Function
End If
i = &H01
dot_count = &H00
For i = 1 To Len(IP)
If Mid(IP, i, &H01) = "." Then
' 增加点的记数值
' 并且设置text_octet 值为空
dot_count = dot_count + &H01
test_octet = ""
If i = Len(IP) Then
' 如果点在结尾则IP效验失败
Valid_IP = False
' 显示错误提示
Exit Function
End If
Else
test_octet = test_octet & Mid(IP, i, &H01)
' 使用错误屏蔽来检查数据段值的正确性
On Error Resume Next
' 进行强制类型转换
' 如果转换失败就可通过检查Err是否为真来确认
byte_check = CByte(test_octet)
If (Err) Then
' 强制类型转换产生错误
' 所取段值的数据不为数值
' 或所取段值的数据长度大于&HFF
' 则类型不为by
te类型
' IP 地址的正确性为假
Valid_IP = False
Exit Function
End If
End If
Next
' 通过上一步的验证，现在应该要检查小点是否有3个
If dot_count <> &H03 Then
Valid_IP = False
Exit Function
End If
' 一切正常，那么该IP为正确的IP地址
Valid_IP = True
End Function
'────────────────────────────────
' 转换一个数值为IP
Public Function CStringIP(ByVal anNewIP)
Dim lsResults
Dim lnTemp
Dim lnIndex
For lnIndex = &H03 To &H00 Step -&H01
lnTemp = Int(anNewIP / (&H100 ^ lnIndex))
lsResults = lsResults & lnTemp & "."
anNewIP = anNewIP - (lnTemp * (&H100 ^ lnIndex))
Next
lsResults = Left(lsResults, Len(lsResults) - &H01)
CStringIP = lsResults
End function
'────────────────────────────────
' 转换一个IP到数值
Public Function CLongIP(ByVal asNewIP)
Dim lnResults
Dim lnIndex
Dim lnIpAry
lnIpAry = Split(asNewIP, ".", &H04)
For lnIndex = &H00 To &H03
if Not lnIndex = &H03 Then
lnIpAry(lnIndex) = lnIpAry(lnIndex) * (&H100 ^ (&H03 - lnIndex))
End if
lnResults = lnResults + lnIpAry(lnIndex)
Next
CLongIP = lnResults
End function
'────────────────────────────────
' 取Client IP
Public Function GetClientIP()
dim uIpAddr
' 本函数参考https://www.doczj.com/doc/0e4241348.html,/AspHouse 文献<取真实的客户IP>
uIpAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If uIpAddr = "" Then uIpAddr = Request.ServerVariables("REMOTE_ADDR")
GetClientIP = uIpAddr
uIpAddr = ""
End function
'────────────────────────────────
' 读取IP所在地的信息
Public function GetIpAddrInfo()
Dim tmpIpAddr
Dim IpAddrVal
Dim ic,charSpace
Dim tmpSQL
charSpace = ""
IpAddrVal = IpAddress
If Not Valid_IP(IpAddrVal) Then
GetIpAddrInfo =NULL
Exit Function
End If
'将IP字符串劈开成数组好进行处理
tmpIpAddr = Split(IpAddrVal,".",-1,1)
For ic = &H00 To Ubound(tmpIpAddr)
'补位操作,保证每间隔满足3个字符
Select
Case Len(tmpIpAddr(ic))
Case &H01 :charSpace = "00"
Case &H02 :charSpace = "0"
Case Else :charSpace = ""
End Select
tmpIpAddr(ic) = charSpace & tmpIpAddr(ic)
Next
IpAddrVal = tmpIpAddr(&H00) & "." & tmpIpAddr(&H01) & "." & tmpIpAddr(&H02) & "." & tmpIpAddr(&H03)
'以下为查询，IP地址库基于《追捕》的IP数据库,感谢"冯志宏"先生的贡献
'库结构如下：
'CREATE TABLE [dbo].[wry] (
' [STARTIP] [nvarchar] (17) COLLATE Chinese_PRC_CI_AS NULL , --起始IP段
' [ENDIP] [nvarchar] (17) COLLATE Chinese_PRC_CI_AS NULL , --终止IP段
' [COUNTRY] [nvarchar] (16) COLLATE Chinese_PRC_CI_AS NULL , --国家或者地区
' [LOCAL] [nvarchar] (54) COLLATE Chinese_PRC_CI_AS NULL , --本地地址
' [THANK] [nvarchar] (23) COLLATE Chinese_PRC_CI_AS NULL --感谢修正IP地址用户姓名
') ON [PRIMARY]
'经过分析库的数据存放结构，总结出准确的查询方法，具体看下面的查询过程
tmpSQL = "select * from wry where (startIP<='" & IpAddrVal & "') and (ENDIP>='" & IpAddrVal & "') " & _
" and left(startIP," & Len(tmpIpAddr(&H00)) & ") = '" & tmpIpAddr(&H00) & "'" & _
" and left(endip," & Len(tmpIpAddr(&H00)) & ")='" & tmpIpAddr(&H00) & "'"
charSpace = GetDbIpInfo(tmpSQL)
If Len(charSpace)=&H00 Then
GetIpAddrInfo = NULL
Else
GetIpAddrInfo = charSpace
End If
charSpace = Null
tmpSQL = Null
end function
'────────────────────────────────
' 返回数据查询的字符串
Private function GetDbIpInfo(byVal sql)
Dim OpenIpSearchRs
Dim result
Set OpenIpSearchRs = SQLExeCute(sql)
If Not OpenIpSearchRs.Eof Then
result = NullToSpace(OpenIpSearchRs("COUNTRY")) & "," & NullToSpace(OpenIpSearchRs("LOCAL")) & "," & NullToSpace(OpenIpSearchRs ("THANK"))
Else
result = NULL
End If
OpenIpSearchRs.Close
Set OpenIpSearchRs=Nothing
GetDbIpInfo = result
End function
'────────────────────────────────
' 将数据库空记录转换为空字符
Private function NullToSpace(byVal rsStr)
If isNull(rsStr) Then
NullToSpace = ""
Else
NullToSpace = Trim(rsStr)
End If
End Function
End Class
%>
本文章归 交流论坛 与 fisher 共同所有，未经同意，请勿转载!
※版权所有，不得转载※
2003-10-15 20:57:00
鲜花 ( 0 ) 鸡蛋 ( 0 )
本主题贴数 1 ，分页： [1] 跳转论坛至... ╋休闲驿站 ├『情感驿站』 ├『艺术长廊』 ├『生活健康』 ├『生活贴图区』 ├JAY∮地带 ╋资源放送 ├『网络技术』 ├『免费建站』 ├『精彩无限』 ├『精品下载』 ╋站务管理区 ├『站务交流』
*快速回复：ASP编写完整的IP所在地搜索类
你的用户名: 还没注册? 密码: 忘记密码?
内容
HTML标签： 不可用 UBB标签： 可用 贴图标签： 可用 多媒体标签：可用 表情字符转换：可用 上传图片：可用 最多15KB
邮件回复 显示签名 [Ctrl+Enter直接提交贴子]
管理选项 ： 锁定 | 解锁 | 提升 | 删除 | 移动 | 固顶 | 总固顶 | 奖励 | 惩罚 | 发布公告
Powered by： 交流网
Copyright (C)2003 - 2004 https://www.doczj.com/doc/0e4241348.html, , 页面执行时间：460.938毫秒
交流论坛--ASP脚本循环语句 A:link {
COLOR: #000000; TEXT-DECORATION: none
}
A:active {
COLOR: #000000; TEXT-DECORATION: none
}
A:visited {
COLOR: #000000; TEXT-DECORATION: none
}
A:hover {
COLOR: #4455aa; TEXT-DECORATION: underline
}
BODY {
SCROLLBAR-FACE-COLOR: #dee3e7; FONT-SIZE: 12px; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; CURSOR: url('mouse.ani'); SCROLLBAR-SHADOW-COLOR: #dee3e7; COLOR: #000000; SCROLLBAR-3DLIGHT-COLOR: #d1d7dc; SCROLLBAR-ARROW-COLOR: #006699; SCROLLBAR-TRACK-COLOR: #efefef; FONT-FAMILY: 宋体; SCROLLBAR-DARKSHADOW-COLOR: #98aab1; BACKGROUND-COLOR: #ffffff
}
TD {
FONT-SIZE: 12px; LINE-HEIGHT: 15px; FONT-FAMILY: 宋体
}
TH {
FONT-WEIGHT: bold; FONT-SIZE: 12px; BACKGROUND-IMAGE: url(skin/default/bg1.gif); COLOR: white; BACKGROUND-COLOR: #4455aa
}
TD.TableTitle2 {
BACKGROUND-COLOR: #e4e8ef
}
TD.TableBody1 {
BACKGROUND-COLOR: #ffffff
}
TD.TableBody2 {
BACKGROUND-COLOR: #e4e8ef
}
TD.TopDarkNav {
BACKGROUND-IMAGE: url(skin/default/topbg.gif)
}
TD.TopLighNav {
BACKGROUND-IMAGE: url(skin/default/bottombg.gif)
}
TD.TopLighNav1 {
BACKGROUND-IMAGE: url(skin/default/tabs_m_tile.gif)
}
TD.TopLighNav2 {
BACKGROUND-COLOR: #ffffff
}
.tableBorder1 {
BORDER-RIGHT: 1px; BORDER-TOP: 1px; BORDER-LEFT: 1px; WIDTH: 97%; BORDER-BOTTOM: 1px; BACKGROUND-COLOR: #6595d6
}
.tableBorder2 {
BORDER-RIGHT: #dedede 1px solid; BORDER-TOP: #dedede 1px solid; BORDER-LEFT: #dedede 1px solid; WIDTH: 97%; BORDER-BOTTOM: #dedede 1px solid; BACKGROUND-COLOR: #efefef
}
#TableTitleLink A:link {
COLOR: #ffffff; TEXT-DECORATION: none
}
#TableTitleLink A:visited {
COLOR: #ffffff; TEXT-DECORATION: none
}
#TableTitleLink A:active {
COLOR: #ffffff; TEXT-DECORATION: none
}
#TableTitleLink A:hover {
COLOR: #ffffff; TEXT-DECORATI
ON: underline
}
INPUT {
FONT-SIZE: 12px; LINE-HEIGHT: 15px; FONT-FAMILY: Tahoma,Verdana,宋体
}
SELECT {
FONT-SIZE: 12px; LINE-HEIGHT: 15px; FONT-FAMILY: Tahoma,Verdana,宋体
}
TEXTAREA {
FONT-SIZE: 12px; LINE-HEIGHT: 15px; FONT-FAMILY: Tahoma,Verdana,宋体
}
.normalTextSmall {
FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif
}
加入收藏
联系我们
论坛帮助
隐身 重登陆 用户控制面板 聊天窗口 搜索 自选风格 论坛状态 论坛展区 退出 设施 娱乐
我的收件箱 ( 0 新 )
交流论坛 → 资源放送 → 『网络技术』 →
ASP脚本循环语句
您是本帖的第 15 个阅读者
* 贴子主题 ：
ASP脚本循环语句
java
等级：黑侠
文章：643
积分：1442
困难度:
潜力：
偿还能力：
诚信度：
注册：2003-8-5
楼主
ASP脚本循环语句
在本文上两篇中，我们学习了脚本语言 VBScript 的变量、函数、过程和条件语句，本篇将继续给大家介绍 VBScipt 的循环语句，并对脚本语言在 ASP 中的应用加以总结。
如果有人告诉你学习 ASP 不需要任何编程知识，那么他错了；如果我告诉你学习 ASP 必须掌握一门编程语言，那么我错了。ASP 动态服务器页面环境的特点就在于它是通过一种或几种脚本语言而写成的，脚本语言可以看作是编程语言的简化版，它易于学习和掌握，这给广大动态网站的设计者们提供了相当大的便利。可以这么说 : 脚本语言运用的得当与否直接关系到 ASP 应用程序的优与劣。继上一篇我们学习了脚本语言 VBScript 的函数和条件语句后，今天我们继续来看看 VBScript 中的循环语句。
循环语句的作用就是重复执行程序代码，循环可分为三类：一类在条件变为“假”之前重复执行语句，一类在条件变为“真”之前重复执行语句，另一类按照指定的次数重复执行语句。在 VBScript 中可使用下列循环语句：
Do...Loop: 当（或直到）条件为“真”时循环。
While...Wend: 当条件为“真”时循环。
For...Next: 指定循环次数，使用计数器重复运行语句。
For Each...Next: 对于集合中的每项或数组中的每个元素，重复执行一组语句。
我们先来看看 Do...Loop，它是可以多次（次数不定）运行语句块。当条件为“真”时或条件变为“真”之前，重复执行语句块。请看下例： < html>< head>
< title>DoLoop.asp< /title>< body bgcolor="#FFFFFF">< /head>< p>< /p>
< p> 请将今年到本月为止的每个月份的销售结算记录填写在本页
之上。< P>
< %
counter = 1
thismonth = month(now())
Do while counter < thismonth + 1
response.write " " & counter & " 月份 : "
response.write "______________________________" & "< BR>< br>"
If counter >13 then
exit do
end if
counter = counter+1
Loop
%>
< hr>< /body>< /html>
这段 ASP 程序运用循环语句制作了一张销售结算记录表，将以上代码剪贴至记事簿保存为 DoLoop.asp，并在浏览器中以 HTTP 方式进行浏览，根据当前的月份的不同，你将看到如下图的结果。
我们来分析一下此段程序，我们的目的是要根据当前的月份打印一张表格，首先我们建立一个计数器“count”并将其值设为 1，然后我们用函数 month() 和 now() 得到当前的月份，最后建立循环，当 count 的值小于当前月份的值加 1 的时候，即显示月份值及一条横线并将 count 的值加 1，循环语句重复执行直到以上条件为假时退出循环。其中如果 count 大于 13 则用 exit do 立即退出循环。
Do Loop 语句还可以使用以下语法：
Do
[statements][Exit Do]
[statements]Loop [{While | Until} condition]
While...Wend 语句是为那些熟悉其用法的用户提供的。但是由于 While...Wend 缺少灵活性，所以建议最好使用 Do...Loop 语句。下面我们来看看 For Next 语句。For...Next 语句用于将语句块运行指定的次数，在循环中使用计数器变量，该变量的值随每一次循环增加或减少。
下面的示例将过程 MyProc 重复执行 50 次。For 语句指定计数器变量 x 及其起始值与终止值。Next 语句使计数器变量每次加 1。 Sub DoMyProc50Times()
Dim x
For x = 1 To 50
MyProc
Next
End Sub
关键字 Step 用于指定计数器变量每次增加或减少的值。在下面的示例中，计数器变量 j 每次加 2。循环结束后，total 的值为 2、4、6、8 和 10 的总和。 Sub TwosTotal()
Dim j, total
For j = 2 To 10 Step 2
total = total + j
Next
MsgBox " 总和为 " & total & "。"
End Sub
要使计数器变量递减，可将 Step 设为负值。此时计数器变量的终止值必须小于起始值。在下面的示例中，计数器变量 myNum 每次减 2。循环结束后，total 的值为 16、14、12、10、8、6、4 和 2 的总和。 Sub NewTotal()
Dim myNum, total
For myNum = 16 To 2 Step -2
total = total + myNum
Next
MsgBox " 总和为 " & total & "。"
End Sub
Exit For 语句用于在计数器达到其终止值之前退出 For...Next 语句。因为通常只是在某些特殊情况下（例如在发生错误时）要退出循环，所以可以在
If...Then...Else 语句的 True 语句块中使用 Exit For 语句。如果条件为 False，循环将照常运行。
最后，让我们来看看 For Each...Next 语句 ,For Each...Next 循环与 For...Next 循环类似。For Each...Next 不是将语句运行指定的次数，而是对于数组中的每个元素或对象集合中的每一项重复一组语句。这在不知道集合中元素的数目时非常有用。它的语法如下： For Each element In group
[statements]
[Exit For]
[statements]Next [element]
如果 group 中有至少一个元素，就会进入 For Each 块执行。一旦进入循环，便首先对 group 中第一个元素执行循环中的所有语句。只要 group 中还有其他的元素，就会对每个元素执行循环中的语句。当 group 中没有其他元素时退出循环，然后从 Next 语句之后的语句继续执行。
至此，我们已经完成了对脚本语言 VBScript 所有的基本知识的学习，但是仅凭阅读现有的这几篇文章你是无法熟练运用 VBScript 的，你必须通过不断的实践来提高自己的等级。当然，如果你熟悉 C，你也可以选择javascript 来作为 ASP 应用程序的脚本语言。不知大家有没有发现 ASP 程序的调试比较困难，因为没有什么现成的工具，在这里我向大家简要介绍一下 Microsoft Script Debugger，我们可以运用它来进行一定量的程序调试工作。
IIS4.0 所包括的 Microsoft Script Debugger（Script 侦错工具），提供脚本程序的侦错功能。您可以使用 Microsoft Script 侦错工具来进行对使用 VBScript、JScript 编写的脚本程序，以及 Java applets、beans 和 ActiveX 组件的侦错工作。
有的脚本程序在用户端浏览器执行，有的脚本程序（< % … %> 中的部份）在服务器端执行。Microsoft Script Debugger，可以侦错用户端执行的脚本程序以及服务器端执行脚本程序。 在用户端浏览器执行的脚本程序是在用户端的浏览器当中执行，包括在标准 HTML 代码中的 VBScript、Jscript 部份。在浏览器载入此 HTML 代码或譬如按下按钮触发事件时，将执行此包括脚本程序的 HTML 代码。用户端浏览器执行的脚本程序，主要用于对 HTML 表单输入的基本检查等功能。
在服务器端执行的脚本程序是在 IIS 服务器端执行，包括在 .asp 程序中。先在 IIS 服务器上执行，执行结果产生标准的 HTML 代码，再传送到用户端浏览器。服务器端执行的脚本程序，主要用于多个网页之间的连结，HTML 表单输入的处理，以及存取服务器上数据库的资料等。
Microsoft Script Debugger 提供以下的除错功能：
1、设定中断点
2、逐步追踪脚本程序。
3、设定书签。
4、检视呼叫堆叠。
5、检
视和更改变数值。
6、执行脚本指令。
从下一篇开始，我们将开始学习 ASP 的内建对象，敬请关注。
本文章归 交流论坛 与 java 共同所有，未经同意，请勿转载!
2003-8-25 23:22:00
鲜花 ( 0 ) 鸡蛋 ( 0 )
本主题贴数 1 ，分页： [1] 跳转论坛至... ╋休闲驿站 ├『情感驿站』 ├『艺术长廊』 ├『生活健康』 ├『生活贴图区』 ├JAY∮地带 ╋资源放送 ├『网络技术』 ├『免费建站』 ├『精彩无限』 ├『精品下载』 ╋站务管理区 ├『站务交流』
*快速回复：ASP脚本循环语句
你的用户名: 还没注册? 密码: 忘记密码?
内容
HTML标签： 不可用 UBB标签： 可用 贴图标签： 可用 多媒体标签：可用 表情字符转换：可用 上传图片：可用 最多15KB
邮件回复 显示签名 [Ctrl+Enter直接提交贴子]
管理选项 ： 锁定 | 解锁 | 提升 | 删除 | 移动 | 固顶 | 总固顶 | 奖励 | 惩罚 | 发布公告
Powered by： 交流网
Copyright (C)2003 - 2004 https://www.doczj.com/doc/0e4241348.html, , 页面执行时间：546.875毫秒
交流论坛--ASP教程：ASP脚本循环语句 A:link {
COLOR: #000000; TEXT-DECORATION: none
}
A:active {
COLOR: #000000; TEXT-DECORATION: none
}
A:visited {
COLOR: #000000; TEXT-DECORATION: none
}
A:hover {
COLOR: #4455aa; TEXT-DECORATION: underline
}
BODY {
SCROLLBAR-FACE-COLOR: #dee3e7; FONT-SIZE: 12px; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; CURSOR: url('mouse.ani'); SCROLLBAR-SHADOW-COLOR: #dee3e7; COLOR: #000000; SCROLLBAR-3DLIGHT-COLOR: #d1d7dc; SCROLLBAR-ARROW-COLOR: #006699; SCROLLBAR-TRACK-COLOR: #efefef; FONT-FAMILY: 宋体; SCROLLBAR-DARKSHADOW-COLOR: #98aab1; BACKGROUND-COLOR: #ffffff
}
TD {
FONT-SIZE: 12px; LINE-HEIGHT: 15px; FONT-FAMILY: 宋体
}
TH {
FONT-WEIGHT: bold; FONT-SIZE: 12px; BACKGROUND-IMAGE: url(skin/default/bg1.gif); COLOR: white; BACKGROUND-COLOR: #4455aa
}
TD.TableTitle2 {
BACKGROUND-COLOR: #e4e8ef
}
TD.TableBody1 {
BACKGROUND-COLOR: #ffffff
}
TD.TableBody2 {
BACKGROUND-COLOR: #e4e8ef
}
TD.TopDarkNav {
BACKGROUND-IMAGE: url(skin/default/topbg.gif)
}
TD.TopLighNav {
BACKGROUND-IMAGE: url(skin/default/bottombg.gif)
}
TD.TopLighNav1 {
BACKGROUND-IMAGE: url(skin/default/tabs_m_tile.gif)
}
TD.TopLighNav2 {
BACKGROUND-COLOR: #ffffff
}
.tableBorder1 {
BORDER-RIGHT: 1px; BORDER-TOP: 1px; BORDER-LEFT: 1px; WIDTH: 97%; BORDER-BOTTOM: 1px; BACKGROUND-COLOR: #6595d6
}
.tableBorder2 {
BORDER-RIGHT: #dedede 1px solid; BORDER-TOP: #dedede 1px solid; BORDER-LEFT: #dedede 1px solid; WIDTH: 97%; BORDER-BOTTOM: #dedede 1px solid; BACKGROUND-COLOR: #efefef
}
#TableTitleLink A:link {
COLOR: #ffffff; TEXT-DECORATION: none
}
#TableTitleLink A:visited {
COLOR: #ffffff; TEXT-DECORATION: none
}
#TableTitleLink A:active {
COLOR: #
ffffff; TEXT-DECORATION: none
}
#TableTitleLink A:hover {
COLOR: #ffffff; TEXT-DECORATION: underline
}
INPUT {
FONT-SIZE: 12px; LINE-HEIGHT: 15px; FONT-FAMILY: Tahoma,Verdana,宋体
}
SELECT {
FONT-SIZE: 12px; LINE-HEIGHT: 15px; FONT-FAMILY: Tahoma,Verdana,宋体
}
TEXTAREA {
FONT-SIZE: 12px; LINE-HEIGHT: 15px; FONT-FAMILY: Tahoma,Verdana,宋体
}
.normalTextSmall {
FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif
}
加入收藏
联系我们
论坛帮助
隐身 重登陆 用户控制面板 聊天窗口 搜索 自选风格 论坛状态 论坛展区 退出 设施 娱乐
我的收件箱 ( 0 新 )
交流论坛 → 资源放送 → 『网络技术』 →
ASP教程：ASP脚本循环语句
您是本帖的第 12 个阅读者
* 贴子主题 ：
ASP教程：ASP脚本循环语句
娱乐者
等级：新手上路
文章：2
积分：54
困难度:
潜力：
偿还能力：
诚信度：
注册：2003-8-5
楼主
ASP教程：ASP脚本循环语句
在本文上两篇中，我们学习了脚本语言 VBScript 的变量、函数、过程和条件语句，本篇将继续给大家介绍 VBScipt 的循环语句，并对脚本语言在 ASP 中的应用加以总结。
如果有人告诉你学习 ASP 不需要任何编程知识，那么他错了；如果我告诉你学习 ASP 必须掌握一门编程语言，那么我错了。ASP 动态服务器页面环境的特点就在于它是通过一种或几种脚本语言而写成的，脚本语言可以看作是编程语言的简化版，它易于学习和掌握，这给广大动态网站的设计者们提供了相当大的便利。可以这么说 : 脚本语言运用的得当与否直接关系到 ASP 应用程序的优与劣。继上一篇我们学习了脚本语言 VBScript 的函数和条件语句后，今天我们继续来看看 VBScript 中的循环语句。
循环语句的作用就是重复执行程序代码，循环可分为三类：一类在条件变为“假”之前重复执行语句，一类在条件变为“真”之前重复执行语句，另一类按照指定的次数重复执行语句。在 VBScript 中可使用下列循环语句：
Do...Loop: 当（或直到）条件为“真”时循环。
While...Wend: 当条件为“真”时循环。
For...Next: 指定循环次数，使用计数器重复运行语句。
For Each...Next: 对于集合中的每项或数组中的每个元素，重复执行一组语句。
我们先来看看 Do...Loop，它是可以多次（次数不定）运行语句块。当条件为“真”时或条件变为“真”之前，重复执行语句块。请看下例： < html>< head>
< title>DoLoop.asp< /tit
le>< body bgcolor="#FFFFFF">< /head>< p>< /p>
< p> 请将今年到本月为止的每个月份的销售结算记录填写在本页之上。< P>
< %
counter = 1
thismonth = month(now())
Do while counter < thismonth + 1
response.write " " & counter & " 月份 : "
response.write "______________________________" & "< BR>< br>"
If counter >13 then
exit do
end if
counter = counter+1
Loop
%>
< hr>< /body>< /html>
这段 ASP 程序运用循环语句制作了一张销售结算记录表，将以上代码剪贴至记事簿保存为 DoLoop.asp，并在浏览器中以 HTTP 方式进行浏览，根据当前的月份的不同，你将看到如下图的结果。
我们来分析一下此段程序，我们的目的是要根据当前的月份打印一张表格，首先我们建立一个计数器“count”并将其值设为 1，然后我们用函数 month() 和 now() 得到当前的月份，最后建立循环，当 count 的值小于当前月份的值加 1 的时候，即显示月份值及一条横线并将 count 的值加 1，循环语句重复执行直到以上条件为假时退出循环。其中如果 count 大于 13 则用 exit do 立即退出循环。
Do Loop 语句还可以使用以下语法：
Do
[statements][Exit Do]
[statements]Loop [{While | Until} condition]
While...Wend 语句是为那些熟悉其用法的用户提供的。但是由于 While...Wend 缺少灵活性，所以建议最好使用 Do...Loop 语句。下面我们来看看 For Next 语句。For...Next 语句用于将语句块运行指定的次数，在循环中使用计数器变量，该变量的值随每一次循环增加或减少。
下面的示例将过程 MyProc 重复执行 50 次。For 语句指定计数器变量 x 及其起始值与终止值。Next 语句使计数器变量每次加 1。 Sub DoMyProc50Times()
Dim x
For x = 1 To 50
MyProc
Next
End Sub
关键字 Step 用于指定计数器变量每次增加或减少的值。在下面的示例中，计数器变量 j 每次加 2。循环结束后，total 的值为 2、4、6、8 和 10 的总和。 Sub TwosTotal()
Dim j, total
For j = 2 To 10 Step 2
total = total + j
Next
MsgBox " 总和为 " & total & "。"
End Sub
要使计数器变量递减，可将 Step 设为负值。此时计数器变量的终止值必须小于起始值。在下面的示例中，计数器变量 myNum 每次减 2。循环结束后，total 的值为 16、14、12、10、8、6、4 和 2 的总和。 Sub NewTotal()
Dim myNum, total
For myNum = 16 To 2 Step -2
total = total + myNum
Next
MsgBox " 总和为 " & total & "。"
End Sub
Exit For 语句用于在计数器达到其终止值之前退
出 For...Next 语句。因为通常只是在某些特殊情况下（例如在发生错误时）要退出循环，所以可以在 If...Then...Else 语句的 True 语句块中使用 Exit For 语句。如果条件为 False，循环将照常运行。
最后，让我们来看看 For Each...Next 语句 ,For Each...Next 循环与 For...Next 循环类似。For Each...Next 不是将语句运行指定的次数，而是对于数组中的每个元素或对象集合中的每一项重复一组语句。这在不知道集合中元素的数目时非常有用。它的语法如下： For Each element In group
[statements]
[Exit For]
[statements]Next [element]
如果 group 中有至少一个元素，就会进入 For Each 块执行。一旦进入循环，便首先对 group 中第一个元素执行循环中的所有语句。只要 group 中还有其他的元素，就会对每个元素执行循环中的语句。当 group 中没有其他元素时退出循环，然后从 Next 语句之后的语句继续执行。
至此，我们已经完成了对脚本语言 VBScript 所有的基本知识的学习，但是仅凭阅读现有的这几篇文章你是无法熟练运用 VBScript 的，你必须通过不断的实践来提高自己的等级。当然，如果你熟悉 C，你也可以选择javascript 来作为 ASP 应用程序的脚本语言。不知大家有没有发现 ASP 程序的调试比较困难，因为没有什么现成的工具，在这里我向大家简要介绍一下 Microsoft Script Debugger，我们可以运用它来进行一定量的程序调试工作。
IIS4.0 所包括的 Microsoft Script Debugger（Script 侦错工具），提供脚本程序的侦错功能。您可以使用 Microsoft Script 侦错工具来进行对使用 VBScript、JScript 编写的脚本程序，以及 Java applets、beans 和 ActiveX 组件的侦错工作。
有的脚本程序在用户端浏览器执行，有的脚本程序（< % … %> 中的部份）在服务器端执行。Microsoft Script Debugger，可以侦错用户端执行的脚本程序以及服务器端执行脚本程序。 在用户端浏览器执行的脚本程序是在用户端的浏览器当中执行，包括在标准 HTML 代码中的 VBScript、Jscript 部份。在浏览器载入此 HTML 代码或譬如按下按钮触发事件时，将执行此包括脚本程序的 HTML 代码。用户端浏览器执行的脚本程序，主要用于对 HTML 表单输入的基本检查等功能。
在服务器端执行的脚本程序是在 IIS 服务器端执行，包括在 .asp 程序中。先在 IIS 服务器上执行，执行结果产生标准的 HTML 代码，再传送到用户端浏览器。服务器端执行的脚本程序，主要用于多个网页之间的连结，HTML 表单输入的处理，以及存取服务器上数据库的资料等。
Microsoft Script Debugger 提供以下的除错功能：
1、设定中断点
2、逐步追踪脚本程序。
3、设定书签。
4、检视呼叫堆叠。
5、检视和更改变数值。
6、执行脚本指令。
从下一篇开始，我们将开始学习 ASP 的内建对象，敬请关注。
本文章归 交流论坛 与 娱乐者 共同所有，未经同意，请勿转载!
2003-8-5 11:59:00
鲜花 ( 0 ) 鸡蛋 ( 0 )
本主题贴数 1 ，分页： [1] 跳转论坛至... ╋休闲驿站 ├『情感驿站』 ├『艺术长廊』 ├『生活健康』 ├『生活贴图区』 ├JAY∮地带 ╋资源放送 ├『网络技术』 ├『免费建站』 ├『精彩无限』 ├『精品下载』 ╋站务管理区 ├『站务交流』
*快速回复：ASP教程：ASP脚本循环语句
你的用户名: 还没注册? 密码: 忘记密码?
内容
HTML标签： 不可用 UBB标签： 可用 贴图标签： 可用 多媒体标签：可用 表情字符转换：可用 上传图片：可用 最多15KB
邮件回复 显示签名 [Ctrl+Enter直接提交贴子]
管理选项 ： 锁定 | 解锁 | 提升 | 删除 | 移动 | 固顶 | 总固顶 | 奖励 | 惩罚 | 发布公告
Powered by： 交流网
Copyright (C)2003 - 2004 https://www.doczj.com/doc/0e4241348.html, , 页面执行时间：257.813毫秒
交流论坛--ASP取 服务器有关的变量大全 A:link {
COLOR: #000000; TEXT-DECORATION: none
}
A:active {
COLOR: #000000; TEXT-DECORATION: none
}
A:visited {
COLOR: #000000; TEXT-DECORATION: none
}
A:hover {
COLOR: #4455aa; TEXT-DECORATION: underline
}
BODY {
SCROLLBAR-FACE-COLOR: #dee3e7; FONT-SIZE: 12px; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; CURSOR: url('mouse.ani'); SCROLLBAR-SHADOW-COLOR: #dee3e7; COLOR: #000000; SCROLLBAR-3DLIGHT-COLOR: #d1d7dc; SCROLLBAR-ARROW-COLOR: #006699; SCROLLBAR-TRACK-COLOR: #efefef; FONT-FAMILY: 宋体; SCROLLBAR-DARKSHADOW-COLOR: #98aab1; BACKGROUND-COLOR: #ffffff
}
TD {
FONT-SIZE: 12px; LINE-HEIGHT: 15px; FONT-FAMILY: 宋体
}
TH {
FONT-WEIGHT: bold; FONT-SIZE: 12px; BACKGROUND-IMAGE: url(skin/default/bg1.gif); COLOR: white; BACKGROUND-COLOR: #4455aa
}
TD.TableTitle2 {
BACKGROUND-COLOR: #e4e8ef
}
TD.TableBody1 {
BACKGROUND-COLOR: #ffffff
}
TD.TableBody2 {
BACKGROUND-COLOR: #e4e8ef
}
TD.TopDarkNav {
BACKGROUND-IMAGE: url(skin/default/topbg.gif)
}
TD.TopLighNav {
BACKGROUND-IMAGE: url(skin/default/bottombg.gif)
}
TD.TopLighNav1 {
BACKGROUND-IMAGE: url(skin/default/tabs_m_tile.gif)
}
TD.TopLighNav2 {
BACKGROUND-COLOR: #ffffff
}
.tableBorder1 {
BORDER-RIGHT: 1px; BORDER-TOP: 1px; BORDER-LEFT: 1px; WIDTH: 97%; BORDER-BOTTOM: 1px; BACKGROUND-COLOR: #6595d6
}
.tableBorder2 {
BORDER-RIGHT: #dedede 1px solid; BORDER-TOP: #dedede 1px solid; BORDER-LEFT: #dedede 1px solid; WIDTH: 97%; BORDER-BOTTOM: #dedede 1px solid; BACKGROUND-COLOR: #efefef
}
#TableTitleLink A:link {
COLOR: #ffffff; TEXT-DECORATION: none
}
#TableTitleLink A:visited {
COLOR: #ffffff; TEXT-DECORATION: none
}
#TableTitleLink A:active {
COLOR: #ffffff; TEXT-DECORATION: none
}
#TableTitleLink A:hover {
COLOR: #ffffff; TEXT-DECORATION: underline
}
INPUT {
FONT-SIZE: 12px; LINE-HEIGHT: 15px; FONT-FAMILY: Tahoma,Verdana,宋体
}
SELECT {
FONT-SIZE: 12px; LINE-HEIGHT: 15px; FONT-FAMILY: Tahoma,Verdana,宋体
}
TEXTAREA {
FONT-SIZE: 12px; LINE-HEIGHT: 15px; FONT-FAMILY: Tahoma,Verdana,宋体
}
.normalTextSmall {
FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif
}
加入收藏
联系我们
论坛帮助
登陆 注册 搜索 自选风格 论坛状态 论坛展区 我能做什么 设施 娱乐
>> 各种网络的安装,使用,故障解决,服务器的安装技术及黑客技术等...
交流论坛 → 资源放送 → 『网络技术』 →
ASP取 服务器有关的变量大全
您是本帖的第 18 个阅读者
* 贴子主题 ：
ASP取 服务器有关的变量大全
java
等级：黑侠
文章：643
积分：1442
困难度:
潜力：
偿还能力：
诚信度：
注册：2003-8-5
楼主
ASP取 服务器有关的变量大全
ALL_HTTP
显示客户发出的所有HTTP标题
APPL_MD_PATH
检取ISAPIDLL的metabase路径
APPL_PHYSICAL_PATH
显示服务器物理路径
PATH_INFO
服务器路径信息
PATH_TRANSLATED
服务器绝对路径信息
REMOTE_ADDR
显示请求机器IP地址
SCRIPT_NAME
显示执行SCRIPT的虚拟路径
SERVER_NAME
返回服务器的主机名，DNS别名，或IP地址
ERVER_PORT
返回服务器处理请求的端口
SERVER_PROTOCOL
返回请求协议的名称和版本
SERVER_SOFTWARE
返回HTTP服务器的名称和版本
HTTP_ACCEPT_LANGUAGE
HTTP_USER_AGENT
HTTP_REFERER
本文章归 交流论坛 与 java 共同所有，未经同意，请勿转载!
2003-10-7 22:14:00
鲜花 ( 0 ) 鸡蛋 ( 0 )
本主题贴数 1 ，分页： [1] 跳转论坛至... ╋休闲驿站 ├『情感驿站』 ├『艺术长廊』 ├『生活健康』 ├『生活贴图区』 ├JAY∮地带 ╋资源放送 ├『网络技术』 ├『免费建站』 ├『精彩无限』 ├『精品下载』 ╋站务管理区 ├『站务交流』
*快速回复：ASP取 服务器有关的变量大全
你的用户名: 还没注册? 密码: 忘记密码?
内容
HTML标签： 不可用 UBB标签： 可用 贴图标签： 可用 多媒体标签：可用 表情字符转换：可用 上传图片：可用 最多15KB
邮件回复 显示签名 [Ctrl+Enter直接提交贴子]
管理选
项 ： 锁定 | 解锁 | 提升 | 删除 | 移动 | 固顶 | 总固顶 | 奖励 | 惩罚 | 发布公告
Powered by： 交流网
Copyright (C)2003 - 2004 https://www.doczj.com/doc/0e4241348.html, , 页面执行时间：460.938毫秒
交流论坛--ASP中五种连接数据库的方法 A:link {
COLOR: #000000; TEXT-DECORATION: none
}
A:active {
COLOR: #000000; TEXT-DECORATION: none
}
A:visited {
COLOR: #000000; TEXT-DECORATION: none
}
A:hover {
COLOR: #4455aa; TEXT-DECORATION: underline
}
BODY {
SCROLLBAR-FACE-COLOR: #dee3e7; FONT-SIZE: 12px; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; CURSOR: url('mouse.ani'); SCROLLBAR-SHADOW-COLOR: #dee3e7; COLOR: #000000; SCROLLBAR-3DLIGHT-COLOR: #d1d7dc; SCROLLBAR-ARROW-COLOR: #006699; SCROLLBAR-TRACK-COLOR: #efefef; FONT-FAMILY: 宋体; SCROLLBAR-DARKSHADOW-COLOR: #98aab1; BACKGROUND-COLOR: #ffffff
}
TD {
FONT-SIZE: 12px; LINE-HEIGHT: 15px; FONT-FAMILY: 宋体
}
TH {
FONT-WEIGHT: bold; FONT-SIZE: 12px; BACKGROUND-IMAGE: url(skin/default/bg1.gif); COLOR: white; BACKGROUND-COLOR: #4455aa
}
TD.TableTitle2 {
BACKGROUND-COLOR: #e4e8ef
}
TD.TableBody1 {
BACKGROUND-COLOR: #ffffff
}
TD.TableBody2 {
BACKGROUND-COLOR: #e4e8ef
}
TD.TopDarkNav {
BACKGROUND-IMAGE: url(skin/default/topbg.gif)
}
TD.TopLighNav {
BACKGROUND-IMAGE: url(skin/default/bottombg.gif)
}
TD.TopLighNav1 {
BACKGROUND-IMAGE: url(skin/default/tabs_m_tile.gif)
}
TD.TopLighNav2 {
BACKGROUND-COLOR: #ffffff
}
.tableBorder1 {
BORDER-RIGHT: 1px; BORDER-TOP: 1px; BORDER-LEFT: 1px; WIDTH: 97%; BORDER-BOTTOM: 1px; BACKGROUND-COLOR: #6595d6
}
.tableBorder2 {
BORDER-RIGHT: #dedede 1px solid; BORDER-TOP: #dedede 1px solid; BORDER-LEFT: #dedede 1px solid; WIDTH: 97%; BORDER-BOTTOM: #dedede 1px solid; BACKGROUND-COLOR: #efefef
}
#TableTitleLink A:link {
COLOR: #ffffff; TEXT-DECORATION: none
}
#TableTitleLink A:visited {
COLOR: #ffffff; TEXT-DECORATION: none
}
#TableTitleLink A:active {
COLOR: #ffffff; TEXT-DECORATION: none
}
#TableTitleLink A:hover {
COLOR: #ffffff; TEXT-DECORATION: underline
}
INPUT {
FONT-SIZE: 12px; LINE-HEIGHT: 15px; FONT-FAMILY: Tahoma,Verdana,宋体
}
SELECT {
FONT-SIZE: 12px; LINE-HEIGHT: 15px; FONT-FAMILY: Tahoma,Verdana,宋体
}
TEXTAREA {
FONT-SIZE: 12px; LINE-HEIGHT: 15px; FONT-FAMILY: Tahoma,Verdana,宋体
}
.normalTextSmall {
FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif
}
加入收藏
联系我们
论坛帮助
登陆 注册 搜索 自选风格 论坛状态 论坛展区 我能做什么 设施 娱乐
>> 各种网络的安装,使用,故障解决,服务器的安装技术及黑客技术等...
交流论坛 → 资源放送 → 『网络技术』 →
ASP中五种连接数据库的方法
您是本帖的第 18 个阅读者
* 贴子主题 ：
ASP中五种连接数据库的方法