荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: nicq (NoName), 信区: Homepage
标 题: asp代码精华(八)
发信站: 荔园晨风BBS站 (Wed Apr 23 13:29:30 2003), 站内信件
asp导入word和excel
注意：两个函数中的“data“是网页中要导出的table的 id
<input type="hidden" name="out_word" onclick="vbscript:buildDoc" value="导出到
word" class="notPrint">
<input type="hidden" name="out_excel" onclick="AutomateExcel();" value="导出到
excel" class="notPrint">
导出到Excel代码
<SCRIPT LANGUAGE="JavaScript">
<!--
function AutomateExcel()
{
// Start Excel and get Application object.
var oXL = new ActiveXObject("Excel.Application");
// Get a new workbook.
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var table = document.all.data;
var hang = table.rows.length;
var lie = table.rows(0).cells.length;
// Add table headers going cell by cell.
for (i=0;i<hang;i++)
{
for (j=0;j<lie;j++)
{
oSheet.Cells(i+1,j+1).Value = table.rows(i).cells(j)
.innerText;
}
}
oXL.Visible = true;
oXL.UserControl = true;
}
//-->
</SCRIPT>
导出到Word代码
<script language="vbscript">
Sub buildDoc
set table = document.all.data
row = table.rows.length
column = table.rows(1).cells.length
Set objWordDoc = CreateObject("Word.Document")
'objWordDoc.Application.Documents.Add theTemplate, False
objWordDoc.Application.Visible=True
Dim theArray(20,10000)
for i=0 to row-1
for j=0 to column-1
theArray(j+1,i+1) = table.rows(i).cells(j).innerTEXT
next
next
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("综合查
询结果集") //显示表格标题
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")
Set rngPara = objWordDoc.Application.ActiveDocument.Paragraphs(1).Range
With rngPara
.Bold = True //将标题设为粗体
.ParagraphFormat.Alignment = 1 //将标题居中
.Font.Name = "隶书" //设定标题字体
.Font.Size = 18 //设定标题字体大小
End With
Set rngCurrent = objWordDoc.Application.ActiveDocument.Paragraphs(3).Range
Set tabCurrent = ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,
row,column)
for i = 1 to column
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i)
.Range.InsertAfter theArray(i,1)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i)
.Range.ParagraphFormat.alignment=1
next
For i =1 to column
For j = 2 to row
objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i)
.Range.InsertAfter theArray(i,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i)
.Range.ParagraphFormat.alignment=1
Next
Next
End Sub
</SCRIPT>
怎样实现禁止通过浏览器的后退按钮访问以前的记录？
浏览器的后退按钮使得我们能够方便地返回以前访问过的页面，它无疑非常有用。但有时候
我们不得不关闭这个功能，以防止用户打乱预定的页面访问次序。本文介绍网络上可找到的
各种禁用浏览器后退按钮方案，分析它们各自的优缺点和适用场合。
一、概述
曾经有许多人问起，“怎样才能‘禁用’浏览器的后退按钮？”，或者“怎样才能防
止用户点击后退按钮返回以前浏
览过的页面？”在ASP论坛上，这个问题也是问得最多的问题之一。遗憾的是，答案非常简
单：我们无法禁用浏览器的后退
按钮。
起先我对于居然有人想要禁用浏览器的后退按钮感到不可思议。后来，看到竟然有那
么多的人想要禁用这个后退按
钮，我也就释然（想要禁用的只有后退按钮，不包括浏览器的前进按钮）。因为在默认情况
下，用户提交表单之后可以通
过后退按钮返回表单页面（而不是使用“编辑”按钮！），然后再次编辑并提交表单向数据
库插入新的记录。这是我们不
愿看到的。
因此我就决定要找出避免出现这种情况的方法。我访问了许多网站，参考了这些网站
所介绍的各种实现方法。如果你
经常访问ASP编程网站，本文所介绍的部分内容你可能已经见到过。本文的任务是把各种可
能的方法都介绍给大家，然后找
出最好的方法！
二、禁止缓存
在我找到的许多方案中，其中有一种建议禁止页面缓存。具体是使用服务器端脚本，
如下所示：
<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
这种方法非常有效！它强制浏览器重新访问服务器下载页面，而不是从缓存读取页面
。使用这种方法时，编程者的主
要任务是创建一个会话级的变量，通过这个变量确定用户是否仍旧可以查看那个不适合通过
后退按钮访问的页面。由于浏
览器不再缓存这个页面，当用户点击后退按钮时浏览器将重新下载该页面，此时程序就可以
检查那个会话变量，看看是否
应该允许用户打开这个页面。
例如，假设我们有如下表单：
<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
If Len(Session("FirstTimeToPage")) > 0 then
&single; 用户已经访问过当前页面，现在是再次返回访问。
&single; 清除会话变量，将用户重定向到登录页面。
Session("FirstTimeToPage") = ""
Response.Redirect "/Bar.asp"
Response.End
End If
&single; 如果程序运行到这里，说明用户能够查看当前页面
&single; 以下开始创建表单
%>
<form method=post action="SomePage.asp">
<input type=submit>
</form>
我们借助会话变量FirstTimeToPage检查用户是否是第一次访问当前页面。如果不是第
一次（即Session
("FirstTimeToPage")包含某个值），那么我们就清除会话变量的值，然后把用户重新定向
到一个开始页面。这样，当表单
提交时（此时SompePage.asp被打开），我们必须赋予FirstTimeToPage一个值。即，在
SomePage.asp中我们需要加上下面
的代码：
Session("FirstTimeToPage") = "NO"
这样，已经打开SomePage.asp的用户如果点击后退按钮，浏览器将重新请求服务器下
载页面，服务器检查到Session
("FirstTimeToPage")包含了一个值，于是就清除Session("FirstTimeToPage")，并把用户
重定向到其他页面。当然，所有
这一切都需要用户启用了Cookie，否则会话变量将是无效的。（有关该问题的更多说明，请
参见For session variables
to work, must the Web visitor have cookies enabled?）
另外，我们也可以用客户端代码使浏览器不再缓存Web页面：
<html>
<head>
<meta http-equiv="Expires" CONTENT="0">
<meta http-equiv="Cache-Control" CONTENT="no-cache">
<meta http-equiv="Pragma" CONTENT="no-cache">
</head>
如果使用上面的方法强制浏览器不再缓存Web页面，必须注意以下几点：
只有在使用安全连接时“Pragma: no-cache”才防止浏览器缓存页面。对于不受安全保护的
页面，“Pragma: no-cache”
被视为与“Expires: -1”相同，此时浏览器仍旧缓存页面，但把页面标记为立即过期。
在IE 4或5中，“Cache-Control”META HTTP-EQUIV标记将被忽略，不起作用。
在实际应用中我们可以加上所有这些代码。然而，由于这种方法不能适用于所有的浏
览器，所以是不推荐使用的。但
如果是在Intranet环境下，管理员可以控制用户使用哪种浏览器，我想还是有人会使用这种
方法。
三、其他方法
接下来我们要讨论的方法以后退按钮本身为中心，而不是浏览器缓存。这儿有一篇文
章Rewiring the Back Button很
值得参考。不过我注意到，如果使用这种方法，虽然用户点击一下后退按钮时他不会看到以
前输入数据的页面，但只要点
击两次就可以，这可不是我们希望的效果，因为很多时候，固执的用户总是能够找到绕过预
防措施的办法。
另外一种禁用后退按钮的办法是用客户端JavaScript打开一个没有工具条的窗口，这
使得用户很难返回前一页面，但
不是不可能。一种更安全但相当恼人的方法是，当表单提交时打开一个新的窗口，与此同时
关闭表单所在的窗口。但我觉
得这种方法不值得认真考虑，因为我们总不能让用户每提交一个表单就打开一个新窗口。
那么，在那个我们不想让用户返回的页面是否也可以加入JavaScript代码呢？在这个
页面中加入的JavaScript代码可
用来产生点击前进按钮的效果，这样也就抵消了用户点击后退按钮所产生的动作。用于实现
该功能的JavaScript代码如下
所示：
<script language="JavaScript">
<!--
javascript:window.history.forward(1);
//-->
</script>
同样地，这种方法虽然有效，但距离“最好的方法”还差得很远。后来我又看到有人
建议用location.replace从一个
页面转到另一个页面。这种方法的原理是，用新页面的URL替换当前的历史纪录，这样浏览
历史记录中就只有一个页面，后
退按钮永远不会变为可用。我想这可能正是许多人所寻求的方法，但这种方法仍旧不是任何
情况下的最好方法。使用这种
方法的实例如下所示：
<A HREF="PageName.htm" onclick="javascript:location.replace(this.href);
event.returnValue=false; ">
禁止后退到本页面的链接</A>
禁止后退到本页面的链接！
这种方法的缺点在于：简单地运用Response.Redirect将不再有效，这是因为每次用户
从一个页面转到另一个页面，
我们都必须用客户端代码清除location.history。另外还要注意，这种方法清除的是最后一
个访问历史记录，而不是全部
的访问记录。
点击上面的链接，你将打开一个简单的HTML页面。再点击后退按钮，你可以看到这时
打开的不是本页面，而是本页面
之前的页面！（当然，你必须在浏览器中启用了客户端JavaScript代码。）
经过一番仔细的寻寻觅觅之后，我发现仍旧无法找出真正能够完全禁用浏览器后退按
钮的办法。所有这里介绍的方法
都能够在不同程度上、以不同的方式禁止用户返回前一页面，但它们都有各自的局限。由于
不存在能够完全禁用后退按钮
的方法，所以最好的方案应该是：混合运用客户端脚本和服务器端脚本。
<html>
<head>
<meta http-equiv="Expires" CONTENT="0">
<meta http-equiv="Cache-Control" CONTENT="no-cache">
<meta http-equiv="Pragma" CONTENT="no-cache">
</head>
<script language="JavaScript">
<!--
javascript:window.history.forward(1);
//-->
</script>
ADO Recordset的属性和方法的有效性
ADO Recordset的属性和方法在不同的光标类型下，有不同的表现，这里列出了其详细情况
列表
ADO Recordset属性的有效性列表
属性 ForwardOnly Dynamic Keyset Static
AbsolutePage 无效 无效 读/写 读/写
AbsolutePosition 无效 无效 读/写 读/写
ActiveConnection 读/写 读/写 读/写 读/写
BOF 只读 只读 只读 只读
Bookmark 无效 无效 读/写 读/写
CacheSize 读/写 读/写 读/写 读/写
CursorLocation 读/写 读/写 读/写 读/写
CursorType 读/写 读/写 读/写 读/写
EditMode 只读 只读 只读 只读
EOF 只读 只读 只读 只读
Filter 读/写 读/写 读/写 读/写
LockType 读/写 读/写 读/写 读/写
MarshalOptions 读/写 读/写 读/写 读/写
MaxRecords 读/写 读/写 读/写 读/写
PageCount 无效 无效 只读 只读
PageSize 读/写 读/写 读/写 读/写
RecordCount 无效 无效 只读 只读
Source 读/写 读/写 读/写 读/写
State 只读 只读 只读 只读
Status 只读 只读 只读 只读
在使用Microsoft OLE DB Provider for ODBC.1.0时候，属性AbsolutePosition和
AbsolutePage是只写的
ADO Recordse方法的有效性列表
方法 ForwardOnly Dynamic Keyset Static
AddNew 是 是 是 是
CancelBatch 是 是 是 是
CancelUpdate 是 是 是 是
Clone 否 否 是 是
Close 是 是 是 是
Delete 是 是 是 是
GetRows 是 是 是 是
Move 是 是 是 是
MoveFirst 是 是 是 是
MoveLast 否 是 是 是
MoveNext 是 是 是 是
MovePrevious 否 是 是 是
NextRecordset * 是 是 是 是
Open 是 是 是 是
Requery 是 是 是 是
Resync 否 否 是 是
Supports 是 是 是 是
Update 是 是 是 是
UpdateBatch 是 是 是 是
* Microsoft Access databases.不支持
转换大写中文数字
----------------------
转换代码如下：
function Transform()
{
var whole = document.all.num.value;
//分离整数与小数
var num;
var dig;
if(whole.indexOf(".") == -1)
{
num = whole;
dig = "";
}
else
{
num = whole.substr(0,whole.indexOf("."));
dig = whole.substr( whole.indexOf(".")+1, whole.length);
}
//转换整数部分
var i=1;
var len = num.length;
var dw2 = new Array("","万","亿");//大单位
var dw1 = new Array("拾","佰","千");//小单位
var dw = new Array("","壹","贰","叁","肆","伍","陆","柒","捌","玖");//整数部分用
var dws = new Array("零","壹","贰","叁","肆","伍","陆","柒","捌","玖");//小数部
分用
var k1=0;//计小单位
var k2=0;//计大单位
var str="";
for(i=1;i<=len;i++)
{
var n = num.charAt(len-i);
if(n=="0")
{
if(k1!=0)
str = str.substr( 1, str.length-1);
}
str = dw[Number(n)].concat(str);//加数字
if(len-i-1>=0)//在数字范围内
{
if(k1!=3)//加小单位
{
str = dw1[k1].concat(str);
k1++;
}
else//不加小单位，加大单位
{
k1=0;
var temp = str.charAt(0);
if(temp=="万" || temp=="亿")//若大单位前没有数字则舍去大单位
str = str.substr( 1, str.length-1);
str = dw2[k2].concat(str);
}
}
if(k1==3)//小单位到千则大单位进一
{
k2++;
}
}
//转换小数部分
var strdig="";
for(i=0;i<2;i++)
{
var n = dig.charAt(i);
strdig += dws[Number(n)];//加数字
}
str += " 点 "+strdig;
document.all.text.value = str;
}
--
(S-Term)Sorry, i'm not here
※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.0.180]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店