asp技术之我学习


\| 网站首页 \| 文章中心 \| 下载中心 \| 图片中心 \| 访客留言 \| 数码商城 \| 毕设、论文 \| 彩票 \|

您现在的位置：有昌网络 >> 文章中心 >> 特别研究 >> ASP技术区! >> 文章正文

用户登录

新用户注册

[注意]asp技术之我学习_小结！

热

asp技术之我学习_小结！

作者：xiaochan… 文章来源：本站原创点击数：更新时间：2005-9-19 22:31:52

asp之我学习_小结！

登陆验证码

index.asp
<%
if cpbusername="" then
'产生随机码
dim p
randomize
p = Int((8999 * Rnd) + 1000)
session("cpbcode")=p
%>
引用验证码:
<input type="hidden" value="<%=p%>" name="pacpbcode">

-----------------------------------------------------------------------------------

在线人数统计

第一个问题，试试在网站的根目录中放置以下内容的 Global.asa 文件

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
 Sub Application_OnStart
 Session.Timeout=1
 Application.Lock
 Application("WhosOn") = 0
 Application.UnLock
 End Sub

 Sub Session_OnStart
 Application.Lock
 Application("WhosOn") = Application("WhosOn") + 1
 Application.UnLock
 End Sub

 Sub Session_OnEnd
 Application.Lock
 Application("WhosOn") = Application("WhosOn") - 1
 Application.UnLock
 End Sub
 </SCRIPT>

-------------------------------------------------------------------------------------

最好的分页程序

<%
dim i,k
set rs=server.greateobject("adodb.recordset") '(建立recordset对象)
sql="select * from message order by time desc" '(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)
rs.open sql,conn,1,3 '(打开记录的方式的方法)

rs.pagesize=10                                           '定义一页显示的记录数目
tatalrecord=rs.recordcount                               '获取记录的总数目
tatalpages=rs.pagecount                                  '获取分页的数目
rs.movefirst                                             '(将指针移动到下一条记录)

nowpage=request("page") '用request获取当前页数，注意page是自己定义的变量并非函数

if nowpage&"x"="x" then '处理页码为空时的情况
nowpage=1
else
nowpage=cint(nowpage) '将页码转换成数字型
end if

rs.absolutepage=nowpage '将指针移动到当前显示页的第一条记录
%>

<%
i=1
while not rs.eof and i<=rs.pagesize
response.Write(rs("user") & " ")
response.Write(rs("tt") & " ")
i=i+1
rs.movenext

--------------------------------------------------------------------------------------

如何获取web服务器端的环境变量？
发出请求的主机IP:　<%=request.servervariables("remote_addr")%> 
发出请求的主机名称:　<%=request.servervariables("remote_host")%> 
 服务器IP:<%=Request.ServerVariables("LOCAL_ADDR")%> 
代服器IP:<% if Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>"" then
response.write Request.ServerVariables("HTTP_X_FORWARDED_FOR")
else
response.write"未使用"
end if %> 
服务器(站点)名称:　<%=request.servervariables("server_name")%> 
服务器(站点)名及端口:　<%=request.servervariables("http_host")%> 
服务器(站点)端口:　<%=request.servervariables("server_port")%> 
安全端口:<% if request.servervariables("server_port_secure")=0 then
response.write "未处理请求"
else
response.write "已经处理了请求"
end if %> 
请求是否通过安全通道（SSL）:<% if request.servervariables("https")="on" then
response.write "是"
else
response.write "否"
end if %> 


检索与元数据库路径相应的物理路径：<%=request.servervariables("appl_md_path")%> 
响应请求的IIS实例的元数据库路径：<%=request.servervariables("instance_meta_path")%> 
文本格式IIS实例的ID：<%=request.servervariables("instance_id")%> 
当前文件在服务器的完整路径：<%=request.servervariables("path_translated")%> 
当前文件在服务器的站点目录：<%=request.servervariables("appl_physical_path")%> 
客户端提供的额外路径：<%=request.servervariables("path_info")%> 
执行脚本的虚拟路径：<%=request.servervariables("script_name")%> 
提供Url的基本部分：<%=request.servervariables("url")%> 

服务器CPU数量:<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 
服务器时间:<%=now()%> 
服务器语种：<%=request.servervariables("http_accept_language")%> 
服务器操作系统:<%=Request.ServerVariables("OS")%> 
本机浏览器版本：<%=request.servervariables("http_user_agent")%> 
服务器运行网关的软件名称和版本：<%=request.servervariables("server_software")%> 
服务器CGI规格及修订：<%=request.servervariables("gateway_interface")%> 
服务器解译引擎:<%=scriptEngine & "/"& scriptEngineMajorVersion &"."&scriptEngineMinorVersion&"."&scriptEngineBuildVersion %> 
脚本超时时间:<%=Server.scriptTimeout%>秒 
服务器请求信息协议的名称和修订：<%=request.servervariables("server_protocol")%> 


客户端发送的所有http标题文件：<%=request.servervariables("all_http")%> 
检索未处理表格中所有的标题：<%=request.servervariables("all_raw")%> 
提出请求的方法：<%=request.servervariables("request_method")%> 
客户端发出内容的长度：<%=request.servervariables("content_length")%> 
内容的数据类型：<%=request.servervariables("content_type")%> 
用户发送的未映射的用户名字符串：<%=request.servervariables("remote_user")%> 
查询Http请求中问号后的信息：<%=request.servervariables("query_string")%> 

<%
if request.servervariables("logon_user")="" then
response.write"用户登录的帐号：未知"
else
response.write"用户登录的帐号："&request.servervariables("logon_user")
end if
%> 
用户验证的序列号字段：<%=request.servervariables("cert_serialnumber")%> 
用户验证的颁发者字段：<%=request.servervariables("https_issuer")%> 
服务器验证的颁发者字段：<%=request.servervariables("https_server_issuer")%> 
服务器验证的颁发者字段：<%=request.servervariables("cert_server_issuer")%> 
客户端验证的唯一id：<%=request.servervariables("cert_cookie")%> 
客户端验证：<%=request.servervariables("cert_flags")%> 
客户端验证的主字段：<%=request.servervariables("cert_subject")%> 
服务器验证的主字段：<%=request.servervariables("cert_server_subject")%> 
服务器验证的主字段：<%=request.servervariables("https_server_subject")%> 
服务器验证私人关键字的位数：<%=request.servervariables("cert_secretkeysize")%> 
服务器验证私人关键字的位数：<%=request.servervariables("https_secretkeysize")%> 
安全套接字层连接关键字的位数：<%=request.servervariables("cert_keysize")%> 
安全套接字层连接关键字的位数：<%=request.servervariables("https_keysize")%> 
未被鉴定的用户名：<%=request.servervariables("auth_user")%> 
服务器用于检验用户访问受保护脚本时的验证方法：<%=request.servervariables("auth_type")%> 
输入到客户端基本鉴定对话框中的变量值：<%=request.servervariables("auth_password")%>

文章录入：xiaochang 责任编辑：范有昌

上一篇文章：如何注册组件！？

下一篇文章： ASP常用函数表

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

专题栏目