http://www.01xq.com/xqlive/data/gamelive.asp?rid=1
作者:cmscn 日期:2006-11-30
ASP生成静态Html文件方法
作者:cmscn 日期:2006-11-30
1,下面这个例子直接利用FSO把html代码写入到文件中然后生成.html格式的文件 ＜%
filename="test.htm"
if request("body")＜>"" then
set fso = Server.CreateObject("Scripting.FileSystemObject")
set htmlwrite = fso.CreateTextFile(server.mappath(""&filename&""))
htmlwrite.write "＜html>＜head>＜title>" & request.form("title") & "＜/title>＜/head>"
htmlwrite.write "＜body>输出Title内容: " & request.form("title") & "＜br /> 输出Body内容:" & request.form("body")& "＜/body>＜/html>"
htmlwrite.close
set fout=nothing
set fso=nothing
end if
%>
＜form name="form" method="post" action="">
＜input name="title" value="Title" size=26>
＜br>
＜textarea name="body">Body＜/textarea>
＜br>
＜br>
＜input type="submit" name="Submit" value="生成html">
＜/form>
2,但是按照上面的方法生成html文件非常不方便,第二种方法就是利用模板技术,将模板中特殊代码的值替换为从表单或是数据库字段中接受过来的值,完成模板功能;将最终替换过的所有模板代码生成HTML文件.这种技术采用得比较多,HSCMS以后就可以使用这类方法.
template.htm ' //模板文件 ＜html>
＜head>
＜title>$title$ by aspid.cn＜/title>
＜/head>
＜body>
$body$
＜/body>
＜/html> ?
TestTemplate.asp '// 生成Html ＜%
Dim fso,htmlwrite
Dim strTitle,strContent,strOut
'// 创建文件系统对象
Set fso=Server.CreateObject("Scripting.FileSystemObject")
'// 打开网页模板文件，读取模板内容
Set htmlwrite=fso.OpenTextFile(Server.MapPath("Template.htm"))
strOut=f.ReadAll
htmlwrite.close
strTitle="生成的网页标题"
strContent="生成的网页内容"
'// 用真实内容替换模板中的标记
strOut=Replace(strOut,"$title$",strTitle)
strOut=Replace(strOut,"$body$",strContent)
'// 创建要生成的静态页
Set htmlwrite=fso.CreateTextFile(Server.MapPath("test.htm"),true)
'// 写入网页内容
htmlwrite.WriteLine strOut
htmlwrite.close
Response.Write "生成静态页成功！"
'// 释放文件系统对象
set htmlwrite=Nothing
set fso=Nothing
%>
3,第三种方法就是用XMLHTTP获取动态页生成的HTML内容，再用ADODB.Stream或者Scripting.FileSystemObject保存成html文件。
＜%
'常用函数
'1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码
function getHTTP...
filename="test.htm"
if request("body")＜>"" then
set fso = Server.CreateObject("Scripting.FileSystemObject")
set htmlwrite = fso.CreateTextFile(server.mappath(""&filename&""))
htmlwrite.write "＜html>＜head>＜title>" & request.form("title") & "＜/title>＜/head>"
htmlwrite.write "＜body>输出Title内容: " & request.form("title") & "＜br /> 输出Body内容:" & request.form("body")& "＜/body>＜/html>"
htmlwrite.close
set fout=nothing
set fso=nothing
end if
%>
＜form name="form" method="post" action="">
＜input name="title" value="Title" size=26>
＜br>
＜textarea name="body">Body＜/textarea>
＜br>
＜br>
＜input type="submit" name="Submit" value="生成html">
＜/form>
2,但是按照上面的方法生成html文件非常不方便,第二种方法就是利用模板技术,将模板中特殊代码的值替换为从表单或是数据库字段中接受过来的值,完成模板功能;将最终替换过的所有模板代码生成HTML文件.这种技术采用得比较多,HSCMS以后就可以使用这类方法.
template.htm ' //模板文件 ＜html>
＜head>
＜title>$title$ by aspid.cn＜/title>
＜/head>
＜body>
$body$
＜/body>
＜/html> ?
TestTemplate.asp '// 生成Html ＜%
Dim fso,htmlwrite
Dim strTitle,strContent,strOut
'// 创建文件系统对象
Set fso=Server.CreateObject("Scripting.FileSystemObject")
'// 打开网页模板文件，读取模板内容
Set htmlwrite=fso.OpenTextFile(Server.MapPath("Template.htm"))
strOut=f.ReadAll
htmlwrite.close
strTitle="生成的网页标题"
strContent="生成的网页内容"
'// 用真实内容替换模板中的标记
strOut=Replace(strOut,"$title$",strTitle)
strOut=Replace(strOut,"$body$",strContent)
'// 创建要生成的静态页
Set htmlwrite=fso.CreateTextFile(Server.MapPath("test.htm"),true)
'// 写入网页内容
htmlwrite.WriteLine strOut
htmlwrite.close
Response.Write "生成静态页成功！"
'// 释放文件系统对象
set htmlwrite=Nothing
set fso=Nothing
%>
3,第三种方法就是用XMLHTTP获取动态页生成的HTML内容，再用ADODB.Stream或者Scripting.FileSystemObject保存成html文件。
＜%
'常用函数
'1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码
function getHTTP...
首页使用动静态网页相结合提高浏览速度的修改(1.2 or 3.0)
作者:cmscn 日期:2006-11-29
引用内容用户登录前访问的是静态页页，登录后是动态的。
演示地址：http://www.gzdrug.com/lotus
一、将原来的index.asp 改名为main.asp
二、新建一个index.asp文件，代码如下：
<!-- #include file="include/skin.asp" -->
<%
if var_null(login_username)="" then
response.redirect("main.htm")
else
response.redirect("main.asp")
end if
%>
三、新建一个htm.asp文件(与main.asp,index.asp同目录)，代码如下（记得把下面的lotus换成你网站的目录）：
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Refresh"content="2;URL=index.asp"/>
<title>更新网页</title>
</head>
<body>
<%
dim strUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_Temp
Html_Temp="<UL>"
Html_Temp = Html_Temp&"<LI>"
FileName = "main.htm"
FilePath = Server.MapPath("/lotus/")&"\"&FileName
Html_Temp = Html_Temp&FilePath&"</LI>"
Do_Url = "http://"
Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME")&"/lotus/main.asp"
strUrl = Do_Url
dim objXmlHttp
set objXmlHttp = Server.createObject("Microsoft.XMLHTTP")
objXmlHttp.open "GET",strUrl,false
objXmlHttp.send()
Dim binFileData
binFileData = objXmlHttp.responseBody
Dim objAdoStream
set objAdoStream = Server.createObject("ADODB.Stream")
objAdoStream.Type = 1
objAdoStream.Open()
objAdoStream.Write(binFileData)
objAdoStream.SaveToFile FilePath,2
objAdoStream.Close()
Html_Temp = Html_Temp&"<UL>"
%>
<%
Response.Write ( "成功生成文件： main.htm<br>更新页面成功，2秒后自动返回" )
Response.Write("")
'Response.Write ( "<BR>" )
'Response.Write Html_Temp
%>
</body>
</html>
四、在首页合适的位置放一个htm.asp文件的连接，只要打开htm.asp即是更新静态页面。OK
演示地址：http://www.gzdrug.com/lotus
一、将原来的index.asp 改名为main.asp
二、新建一个index.asp文件，代码如下：
<!-- #include file="include/skin.asp" -->
<%
if var_null(login_username)="" then
response.redirect("main.htm")
else
response.redirect("main.asp")
end if
%>
三、新建一个htm.asp文件(与main.asp,index.asp同目录)，代码如下（记得把下面的lotus换成你网站的目录）：
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Refresh"content="2;URL=index.asp"/>
<title>更新网页</title>
</head>
<body>
<%
dim strUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_Temp
Html_Temp="<UL>"
Html_Temp = Html_Temp&"<LI>"
FileName = "main.htm"
FilePath = Server.MapPath("/lotus/")&"\"&FileName
Html_Temp = Html_Temp&FilePath&"</LI>"
Do_Url = "http://"
Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME")&"/lotus/main.asp"
strUrl = Do_Url
dim objXmlHttp
set objXmlHttp = Server.createObject("Microsoft.XMLHTTP")
objXmlHttp.open "GET",strUrl,false
objXmlHttp.send()
Dim binFileData
binFileData = objXmlHttp.responseBody
Dim objAdoStream
set objAdoStream = Server.createObject("ADODB.Stream")
objAdoStream.Type = 1
objAdoStream.Open()
objAdoStream.Write(binFileData)
objAdoStream.SaveToFile FilePath,2
objAdoStream.Close()
Html_Temp = Html_Temp&"<UL>"
%>
<%
Response.Write ( "成功生成文件： main.htm<br>更新页面成功，2秒后自动返回" )
Response.Write("")
'Response.Write ( "<BR>" )
'Response.Write Html_Temp
%>
</body>
</html>
四、在首页合适的位置放一个htm.asp文件的连接，只要打开htm.asp即是更新静态页面。OK
点击取色
作者:cmscn 日期:2006-11-29
方法1:
==================================================
1、UBB JS调用文件style/ubb_help.js，请用UE或记事本打开。
在最后添加下列行
function jk_tColor()
{
var arr = showModalDialog("htmledit/selcolor.html", "", "dialogWidth:18.5em; dialogHeight:17.5em; status:0");
if (arr != null) { document.write_frm.tcolor.value = arr.substring(1,7); }
}
-------------------------------------------------------
2)调用的地方
<a title="主题字体颜色" language="javascript" onclick="jk_tColor();"><img src="htmledit/images/fgcolor.gif" width=23 height=22 align=absmiddle></a>
===================================================
方法2:
在需要调用的那页<%前面加上:
<script language=javascript>
<!--
function forum_slect_color()
{
var c=window.showModalDialog("htmledit/selcolor.html","s","dialogWidth=300px;dialogHeight=270px;status=0");
var d=c;
if (c && c!="")
{
window.document.all.item("bordercolor").bgColor=c;
if (d.length==7) { d=d.substr(1,d.length); }
window.document.all.tcolor.value=d;
}
}
-->
</script>
需要调用的地方加
<input type=text name=tcolor value='' size=10 maxlength=7> <a href='javascript:;' onClick="javascript:forum_slect_color();"><img border=0 src="htmledit/images/fgcolor.gif" width=23 height=22 align=absmiddle alt='点击选取主题字体颜色'></a> 请正确填写<font class=red_3>6</font>位颜色代码。
==================================================
1、UBB JS调用文件style/ubb_help.js，请用UE或记事本打开。
在最后添加下列行
function jk_tColor()
{
var arr = showModalDialog("htmledit/selcolor.html", "", "dialogWidth:18.5em; dialogHeight:17.5em; status:0");
if (arr != null) { document.write_frm.tcolor.value = arr.substring(1,7); }
}
-------------------------------------------------------
2)调用的地方
<a title="主题字体颜色" language="javascript" onclick="jk_tColor();"><img src="htmledit/images/fgcolor.gif" width=23 height=22 align=absmiddle></a>
===================================================
方法2:
在需要调用的那页<%前面加上:
<script language=javascript>
<!--
function forum_slect_color()
{
var c=window.showModalDialog("htmledit/selcolor.html","s","dialogWidth=300px;dialogHeight=270px;status=0");
var d=c;
if (c && c!="")
{
window.document.all.item("bordercolor").bgColor=c;
if (d.length==7) { d=d.substr(1,d.length); }
window.document.all.tcolor.value=d;
}
}
-->
</script>
需要调用的地方加
<input type=text name=tcolor value='' size=10 maxlength=7> <a href='javascript:;' onClick="javascript:forum_slect_color();"><img border=0 src="htmledit/images/fgcolor.gif" width=23 height=22 align=absmiddle alt='点击选取主题字体颜色'></a> 请正确填写<font class=red_3>6</font>位颜色代码。
编辑帖子后只显示最后一次编辑时间的修改
作者:cmscn 日期:2006-11-29
表格线CSS
作者:cmscn 日期:2006-11-29
ASP 错误代码
作者:cmscn 日期:2006-11-28
ASP 错误代码 描述
ASP 0100 内存不足
ASP 0101 意外错误
ASP 0102 需要字符串输入
ASP 0103 需要数字输入
ASP 0104 不允许此项操作
ASP 0105 下标越界
ASP 0106 类型不匹配
ASP 0107 堆栈溢出
ASP 0108 创建对象失败
ASP 0109 找不到成员
ASP 0110 未知名称
ASP 0111 未知接口
ASP 0112 缺少参数
ASP 0113 脚本超时
ASP 0114 非自由线程对象
ASP 0115 意外错误
ASP 0116 丢失脚本关闭分隔符
ASP 0117 丢失脚本关闭标记
ASP 0118 丢失对象关闭标记
ASP 0119 丢失 Classid 或 Progid 特性
ASP 0120 无效的 Runat 特性
ASP 0121 对象标记中包含无效作用域
ASP 0122 对象标记中包含无效作用域
ASP 0123 丢失 Id 特性
ASP 0124 丢失 Language 特性
ASP 0125 丢失特性的关闭符
ASP 0126 找不到包含文件
ASP 0127 丢失了 HTML 注释的关闭符
ASP 0128 丢失 File 或 Virtual 特性
ASP 0129 未知的脚本语言
ASP 0130 无效的 File 特性
ASP 0131 不允许的父路径
ASP 0132 编译错误
ASP 0133 无效的 ClassID 特性
ASP 0134 无效的 ProgID 特性
ASP 0135 循环包含
ASP 0136 无效对象实例名称
ASP 0137 无效全局脚本
ASP 0138 嵌套的 Script 块
ASP 0139 嵌套的 Object
ASP 0140 Page 命令无序
ASP 0141 Page 命令重复
ASP 0142 线程令牌错误
ASP 0143 无效的应用程序名
ASP 0144 初始化错误
ASP 0145 新建应用程序失败
ASP 0146 新建会话失败
ASP 0147 500 服务器错误
ASP 0148 服务器太忙
ASP 0149 应用程序正在重新启动
ASP 0150 应用程序目录错误
ASP 0151 更改通知错误
ASP 0152 安全错误
ASP 0153 线程错误
ASP 0154 写入 HTTP 头错误
ASP 0155 写入页内容错误
ASP 0156 头错误
ASP 0157 缓冲已打开
ASP 0158 丢失 URL
ASP 0159 缓冲已关闭
ASP 0160 日志记录失败
ASP 0161 数据类型错误
ASP 0162 不能修改 Cookie
ASP 0163 逗号的使用不正确
ASP 0164 无效的超时值
ASP 0165 SessionID 错误
ASP 0166 未初始化的对象
ASP 0167 会话初始化错误
ASP 0168 不允许的对象使用方式
ASP 0169 丢失对象信息
ASP 0170 删除会话错误
ASP 0171 缺少路径
ASP 0172 无效路径
ASP 0173 无效&nb...
ASP 0100 内存不足
ASP 0101 意外错误
ASP 0102 需要字符串输入
ASP 0103 需要数字输入
ASP 0104 不允许此项操作
ASP 0105 下标越界
ASP 0106 类型不匹配
ASP 0107 堆栈溢出
ASP 0108 创建对象失败
ASP 0109 找不到成员
ASP 0110 未知名称
ASP 0111 未知接口
ASP 0112 缺少参数
ASP 0113 脚本超时
ASP 0114 非自由线程对象
ASP 0115 意外错误
ASP 0116 丢失脚本关闭分隔符
ASP 0117 丢失脚本关闭标记
ASP 0118 丢失对象关闭标记
ASP 0119 丢失 Classid 或 Progid 特性
ASP 0120 无效的 Runat 特性
ASP 0121 对象标记中包含无效作用域
ASP 0122 对象标记中包含无效作用域
ASP 0123 丢失 Id 特性
ASP 0124 丢失 Language 特性
ASP 0125 丢失特性的关闭符
ASP 0126 找不到包含文件
ASP 0127 丢失了 HTML 注释的关闭符
ASP 0128 丢失 File 或 Virtual 特性
ASP 0129 未知的脚本语言
ASP 0130 无效的 File 特性
ASP 0131 不允许的父路径
ASP 0132 编译错误
ASP 0133 无效的 ClassID 特性
ASP 0134 无效的 ProgID 特性
ASP 0135 循环包含
ASP 0136 无效对象实例名称
ASP 0137 无效全局脚本
ASP 0138 嵌套的 Script 块
ASP 0139 嵌套的 Object
ASP 0140 Page 命令无序
ASP 0141 Page 命令重复
ASP 0142 线程令牌错误
ASP 0143 无效的应用程序名
ASP 0144 初始化错误
ASP 0145 新建应用程序失败
ASP 0146 新建会话失败
ASP 0147 500 服务器错误
ASP 0148 服务器太忙
ASP 0149 应用程序正在重新启动
ASP 0150 应用程序目录错误
ASP 0151 更改通知错误
ASP 0152 安全错误
ASP 0153 线程错误
ASP 0154 写入 HTTP 头错误
ASP 0155 写入页内容错误
ASP 0156 头错误
ASP 0157 缓冲已打开
ASP 0158 丢失 URL
ASP 0159 缓冲已关闭
ASP 0160 日志记录失败
ASP 0161 数据类型错误
ASP 0162 不能修改 Cookie
ASP 0163 逗号的使用不正确
ASP 0164 无效的超时值
ASP 0165 SessionID 错误
ASP 0166 未初始化的对象
ASP 0167 会话初始化错误
ASP 0168 不允许的对象使用方式
ASP 0169 丢失对象信息
ASP 0170 删除会话错误
ASP 0171 缺少路径
ASP 0172 无效路径
ASP 0173 无效&nb...
