简单
在Global.asa文件中加入如下的代码：
Java代码
1. <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
2.
3. Sub Application_OnStart
4.
5. '当服务器开启时，设置在线用户计数器为0
6. Application("ActiveUsers") = 0
7.
8. '设置每天访问量为0
9. Application("EveryDayUsers") = 0
10. '访问的时间为
11. Application("RecordDate") = "2009-01-01"
12.
13. End Sub
14.
15. Sub Session_OnStart
16.
17. '设置Session对象的有效时间为20分钟（也可以更长，但是越长对服务器的资源'占用越多，因为服务器不接受少于20分钟的有效时间，所以设置少于20分钟的'有效时间是无效的）
18. Session.Timeout = 30
19.
20. ' 当开始一个Session时在线用户计数器加1
21. Application.Lock
22. Application("ActiveUsers") = Application("ActiveUsers") + 1
23.
24. '每天的访问量加1
25. if Application("RecordDat ......
简单
在Global.asa文件中加入如下的代码：
Java代码
1. <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
2.
3. Sub Application_OnStart
4.
5. '当服务器开启时，设置在线用户计数器为0
6. Application("ActiveUsers") = 0
7.
8. '设置每天访问量为0
9. Application("EveryDayUsers") = 0
10. '访问的时间为
11. Application("RecordDate") = "2009-01-01"
12.
13. End Sub
14.
15. Sub Session_OnStart
16.
17. '设置Session对象的有效时间为20分钟（也可以更长，但是越长对服务器的资源'占用越多，因为服务器不接受少于20分钟的有效时间，所以设置少于20分钟的'有效时间是无效的）
18. Session.Timeout = 30
19.
20. ' 当开始一个Session时在线用户计数器加1
21. Application.Lock
22. Application("ActiveUsers") = Application("ActiveUsers") + 1
23.
24. '每天的访问量加1
25. if Application("RecordDat ......
(一)如何截取指定区域的HTML代码?
(对方网站的HTML代码在哪儿看？晕：IE浏览器>>查看>>源文件。不要告诉我你不知道IE是什么！)，例如我只想获取以下HTML代码中"<td>"和"</td>"之间的的文字部分：
<html>
<title>网站爱好者__http://www.wwwfan.cn</title>
<body>
<table>
<tr><td></td></tr>
<tr><td id="Content">网站爱好者__http://www.wwwfan.cn是个网页制作资源多多的站点……</td></tr>
</table>
</body>
</html>
<%
……
Dim StrBK,start,over,RsBK
StrBK=getHTTPPage(网页的地址)
start=Instr(StrBK,"<td id=""Content"">") '此处的作用是获取字符串开始地方的定位。Instr函数在VBScript教程里说过了哦~
'这里要有人问了:原来的代码是<td id="Content">,怎么你这里调用的是<td id=""Content"">啊?答案:asp中（准确的说是VBscript中是用两个双引号来表示一个双引号的，因为双引号对于程序来说是个敏感字符。
over=Instr(StrBK,"…</td& ......
<%
If Request.ServerVariables("HTTP_REFERER")<>"" Then
tmpstr=Request.ServerVariables("HTTP_REFERER")
Else
tmpstr="index.htm"
End If
response.Redirect(tmpstr)
%>
代码解释：
Request.ServerVariables("HTTP_REFERER")是获取上一页页面地址的代码。
整段程序的功能是首先判断此页面的上一页是否为空，如果不为空就转到上一页，若为空就转到首页
......
<!--#include file="zheboconn.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312" />
<title>asp和mysql分页代码</title>
<style type="text/css">
<!--
.STYLE3 {
font-size: 15px;
font-family: "宋体";
color: #000000;
}
img{border:none}
.STYLE1 {
font-family: "文鼎CS中黑";
color: #ffffff;
font-size: 18px;
}
-->
</style>
</head>
<body scroll="no"> //去掉滚动条
<table width="97%" border="0" align="center" scroll="no">
<tr>
<td height="35" valign="top"><%
'asp+mysql分页
Dim strSql,Rs
Dim intRecordNum,intCurrentPage,intRowcount
Dim intPageCount:intPageCount = 5 '每页5条记录
intRowcount = 0
'获得总记录
Set Rs = Conn.Execute("SELECT COUNT(*) As intcounts from 表名") &nbs ......
<!--#include file="zheboconn.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312" />
<title>asp和mysql分页代码</title>
<style type="text/css">
<!--
.STYLE3 {
font-size: 15px;
font-family: "宋体";
color: #000000;
}
img{border:none}
.STYLE1 {
font-family: "文鼎CS中黑";
color: #ffffff;
font-size: 18px;
}
-->
</style>
</head>
<body scroll="no"> //去掉滚动条
<table width="97%" border="0" align="center" scroll="no">
<tr>
<td height="35" valign="top"><%
'asp+mysql分页
Dim strSql,Rs
Dim intRecordNum,intCurrentPage,intRowcount
Dim intPageCount:intPageCount = 5 '每页5条记录
intRowcount = 0
'获得总记录
Set Rs = Conn.Execute("SELECT COUNT(*) As intcounts from 表名") &nbs ......
用ASP实现SQL SERVER数据库的远程更新
江苏省通州职业高级中学 刘计衡
微软的SQL Server 是一个大型的关系数据库系统，它为在复杂环境下有效地实现重要商业应用提供了一个强有力的客户/服务器平台。它结合Microsoft Windows NT操作系统的能力，提供了一个安全、可扩展、易管理、高端性能的客户/服务器数据库平台。正是由于SQL Server的强大功能，在基于B/S模式的网络程序中，也大量用作后台数据库。
在B/S模式下，用户经常通过客户端调用服务器上相关程序，通过对后台SQL 数据库访问，得到相关数据后，回传客户端，实现的方法通常是用ASP语言编写相关的服务器端程序，通过IIS将 ASP程序解析为HTML语言传给客户端，从而实现浏览器的无关性。但SQL SERVER本身并未提供一个远程更新数据库的功能，所以服务器数据库的更新通常是通过手工在服务器上直接更新，这样有时显得不方便，本文结合本人计算机应用（本科）自考毕业论文课题《具有网络查询功能的工资管理系统》，介绍SQL Server2000数据库的远程更新方法。
普通用户在进行工资查询时，使用服务器数据库“网络查询工资库”。该数据库共设了“网络用户登录表”、“员工信息”表、&ldqu ......
用ASP实现SQL SERVER数据库的远程更新
江苏省通州职业高级中学 刘计衡
微软的SQL Server 是一个大型的关系数据库系统，它为在复杂环境下有效地实现重要商业应用提供了一个强有力的客户/服务器平台。它结合Microsoft Windows NT操作系统的能力，提供了一个安全、可扩展、易管理、高端性能的客户/服务器数据库平台。正是由于SQL Server的强大功能，在基于B/S模式的网络程序中，也大量用作后台数据库。
在B/S模式下，用户经常通过客户端调用服务器上相关程序，通过对后台SQL 数据库访问，得到相关数据后，回传客户端，实现的方法通常是用ASP语言编写相关的服务器端程序，通过IIS将 ASP程序解析为HTML语言传给客户端，从而实现浏览器的无关性。但SQL SERVER本身并未提供一个远程更新数据库的功能，所以服务器数据库的更新通常是通过手工在服务器上直接更新，这样有时显得不方便，本文结合本人计算机应用（本科）自考毕业论文课题《具有网络查询功能的工资管理系统》，介绍SQL Server2000数据库的远程更新方法。
普通用户在进行工资查询时，使用服务器数据库“网络查询工资库”。该数据库共设了“网络用户登录表”、“员工信息”表、&ldqu ......
一、修改格式：调整表头居左；
<!--原来格式-->
/*说明：把整个表头和页面内容居中，当页面内容较长时，表头也居中，看起来像表头错位。*/
<div style="position: absolute;top:3px;">
<center>
<!--#include file="inc/glfcd.inc"-->
<br>
标题
</br>
<!--调整后表头-->
/*修改使页面标题居中，表头、页面内容格式默认居左，无论页面怎么变化，表头位置不变。*/
<div style="position: absolute;top:3px;">
<!--#include file="inc/glfcd.inc"-->
<center>
<br>
标题
</br>
</center>
<!--对比效果-->
<div style="position: absolute;top:3px;">
<!--#include file="inc/glfcd.inc"-->
<center>
<br>
标题
</br>
结论：标题与页面内容都居中直到页面结束。
二、修改表格大小： width = % 或 像素值（200）
<table border=1 bordercolor=blue bordercolordark=blue cellspacing=0 cellpadding=3 width=90% style='border-collapse:collapse; border: ......
最新文章 : asp