ASP中十大常用程序代码.：第五节〈我的心得〉
利用ASP打造网站论坛DIY(3)
2、构建文章显示模块
前面说过，一片具体的文章是分属在看板和主体之下的。因此显示文章也要经过看板列表和主体列表这两页面后，才能得到特定主题下文章的列表。
（1）板列表的显示页面：
＜ html＞
＜ head＞
＜ title＞看板列表＜ /title＞
＜ meta http-equiv="Content-Type"content="text/html; charset=GB2312"＞
＜ /head＞
（2）打开连接，显示看板列表
＜ %Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft AccessDriver (*.mdb)};dbq=" & Server.MapPath("bbssystem.mdb")
sql = "select * from 看板列表"
set rs=conn.execute(sql)
%＞
注：简单的SQL查询，把所有的看板有关讯息传回到纪录集RS中。下面的任务就是显示纪录记得内容，并在相应的看板名称上建立显示看板主题的连接。
＜ body bgcolor="#FFFFFF"＞
＜ h2 align="center"＞看板列表＜/h2＞
＜ table width="60%" border="0"cellspacing="0" cellpadding="0"align="center"＞
＜ tr bgcolor="#FFFFCC"＞
＜ td height="35" width="25%"＞看板名称＜/td＞
＜ td height="35" width="21%"＞板主＜/td＞
＜ td height="35" width="23%"＞主题数＜/td＞
＜ td height="35" width="31%"＞板主登陆＜/td＞
＜ /tr＞
注：这儿一部分是显示出表格中每一列的标题，这儿我没有用一个统一的函数来显示RS纪录记的内容，因为这样可以对表格的外观和风格做更多的控制，使用起来虽然有点麻烦，但是却更为灵活。
＜ %
do
boardid=rs("id")
boardname=rs("名称")
boardmanager=rs("板主")
response.write "＜ tr＞＜ td＞＜a href=qBoard.asp?boardid="& boardid& "&boardname=" & boardname& "＞" & boardname &"＜ /a＞＜ /td＞"
注：这一行是重点，当点击了各个板的名称后，可以连接到显示看板主题的页面。程序代码看起来有点麻烦，我分解了给你讲，你就会明白了。在点击之后，浏览器请求使用的是qBoard.asp页面，并带有一个参数boardid，代表要显示看板的ID号，在请求页面和参数之间用问号（？）分隔。Boardid是前面设定了的变量，其中包含的就是对应看板的ID号。这个连接中还带有另外一个参数boardname，用来把看板名称传递给qBoard.asp页面。在多个参数间使用"&"来分隔。这个参数不是必须的，传递过去是为
相关文档：
VBS里，超出Integer类型的取值范围，该类型的取值范围为-32,768 到 32,767 之间的整数。
出错的根源：
在ASP里，有时候为了仿止注入，所以在接收参数的时候直接使用Cint函数把接过来的参数转换为Integer（数字）类型，这就存在一个潜在问题，当页面接收的某个参数（Request("xxx")）超过取值范围时（可简单理解为5位数字� ......
只需要在fckeditor\editor\filemanager\connectors\asp文件夹下的commands.asp修改一下即可
在这个文件中查找一下：FileUpload
会找到这个函数
把
代码如下:
Dim sFilePath
sFilePath = CombineLocalPaths(sServerDir, sFileName)
改为
代码如下:
Dim sFilePath,ranNum
Randomize
ranNum=int(90000*rnd)+ ......
<bgsound src="wen.mid" loop="0">
<% dim weh
If Time >=#1:00:00 AM# And Time < #6:00:00 PM# Then
weh = "<bgsound src="1.mid" loop="0">"
Else If Time >#6:00:00 AM# And Time < #9:00:00 PM#
weh = "<bg ......
'使用FSO修改文件特定内容的函数
Function FSOchange(filename,Target,String)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData = objCountFile.ReadAll
objCountFi ......
用ASP制作张扬个性的调查系统(1)
随着网络的普及，网上调查往往能达到较好的效果。在自己的个人站点上放一个趣味问题调查板，着实能为网站添色不少；况且通过调查结果你能更多更准确了解网友对自己站点的看法。作为Webmaster，如果你的网站也需要就某个主题进行调查，而你又讨厌使用别人免费提供的调查 ......
