📄 200532014532.htm
字号:
<input name="search" type="text" class="button1" id="search" style="width:150">
<select name="seaguan" size="1" class="button1" id="seaguan" style="width:150">
<option value="">==> 综合查询 <==</option>
<option value="title">标题</option>
<option value="断剑">作者</option>
<option value="artical">内容</option>
<%call getNewsBoardTree()%>
</select>
</td>
</tr>
<tr align="center">
<td>
<input type="SUBMIT" name="Action" value=" 查 询 " class="button2">
<input type="RESET" name="Clear" value=" 重 写 " class="button2">
</td>
</tr>
<tr align="center">
<td height="10"></td>
</tr>
</form>
</table></td>
</tr>
<tr>
<td height="20"><table width="181" height="20" cellpadding="0" cellspacing="0">
<tr><td width="181" height="20" align="center" bgcolor="#CC9900">分类最新文章</td>
</tr>
<tr><td><a href=2005414529.htm target=_blank>使用正则表达式实现模式图片新</a></td></tr><tr><td><a href=200541450.htm target=_blank>asp常用数据库连接方法和技</a></td></tr><tr><td><a href=2005414428.htm target=_blank>使用简单的方法进行批量删除数</a></td></tr><tr><td><a href=2005414315.htm target=_blank>asp提高首页性能的一个技巧</a></td></tr><tr><td><a href=2005414230.htm target=_blank>ASP防注入之解决方案--加</a></td></tr><tr><td><a href=2005414158.htm target=_blank>使用ASP加密算法加密你的数</a></td></tr><tr><td><a href=2005414120.htm target=_blank>常用ASP自定义函数集</a></td></tr><tr><td><a href=2005414035.htm target=_blank>使用ASP生成HTML文件</a></td></tr><tr><td><a href=20054135956.htm target=_blank>在Flash中使用ASP技术</a></td></tr><tr><td><a href=200533011127.htm target=_blank>在asp中多个虚拟目录 se</a></td></tr>
</table></td>
</tr>
<tr>
<td height="20"><table width="181" height="20" cellpadding="0" cellspacing="0">
<tr><td width="181" height="20" align="center" bgcolor="#CC9900">分类热门文章</td>
</tr>
<tr><td><a href=200532713295.htm target=_blank>断剑新闻系统商业版!</a></td></tr><tr><td><a href=200532115451.htm target=_blank>有关sql注入</a></td></tr><tr><td><a href=200532115410.htm target=_blank>ASP、JSP、PHP 三种</a></td></tr><tr><td><a href=200532014532.htm target=_blank>[原创]关于断剑新闻系统1.</a></td></tr><tr><td><a href=2005320135030.htm target=_blank>[本站原创]用VS.NET封</a></td></tr><tr><td><a href=200532115337.htm target=_blank>改进性能和样式的 24个 A</a></td></tr><tr><td><a href=200532818925.htm target=_blank>初学asp的朋友 asp20</a></td></tr><tr><td><a href=2005414529.htm target=_blank>使用正则表达式实现模式图片新</a></td></tr><tr><td><a href=200532115122.htm target=_blank>用asp自动解析网页中的图片</a></td></tr><tr><td><a href=20053281846.htm target=_blank>DataGrid动态添加模板</a></td></tr>
</table></td>
</tr>
</table></td>
<td width="628" valign="top" scope="col"><table width="100%" border="0" align="center" cellspacing="0" cellpadding="5" bordercolordark="#FFFFFF" bordercolorlight="#000000" style="word-break:break-all;">
<tr>
<td width="100%">
</td>
</tr>
<tr>
<td width="100%">
<div align="center">
<p class="style7"><SPAN class=style1>[原创]关于断剑新闻系统1.1版中有网友说要生成时间文件夹的方法!(可以学习生成静态的文件夹)</SPAN></p>
<hr size="1" color="#0a778b" width="100%">
发布时间：2005-3-20 被阅览数：<SCRIPT src="../../counter.asp?id=351"></SCRIPT> 次 作者：断剑
</div>
</td>
</tr>
<tr>
<td width="100%"><p class="style6"><SPAN id=yuyuzi>
<P>今天有网友告诉我说,问我怎么样让新闻系统每天都生成一个文件夹放当天加的文件!</P>
<P>新浪等一些大型门户网站是那样的!<a href=http://www.koyee.com target=_blank>断剑</a>新闻系统都叫的是简单系统,就是不想太复杂,文件夹建的多了,占空间也就多了,对一般的网友可是个负担哦,不过应那位朋友的建议,我还是帮他改了一下程序,现在贴出来让大家都学习学习</P>
<P>首先是mosave.asp makeall.asp网友自已按着改吧!</P>
<P><!--#include file="fn/conn.asp"--><BR><!--#include file="fn/fso.asp"--><BR><%<BR>'此页为读取FSO文件做模板的,<BR>'下面开始成员过滤，非管理员不能登陆此界面<BR>'if session("admin")="" or session("step")<1 then<BR>'response.redirect "admin_login.asp"<BR>'end if<BR>%></P>
<P><%</P>
<P>'这个fn/moban6.htm是模板所在的路径<BR>okfile=fsow("fn/moban6.htm")</P>
<P>dtime=now()<BR>filename1=getfilename(dtime) & ".htm"<BR>'file1=server.mappath( "news" )<BR>file1=CreateFolder(gettimefilename(date()))<BR>file1=server.mappath(""&gettimefilename(date())&"")<BR>file2=file1&"\"&filename1<BR>author=request.form("d_author")<BR>dtime=date()<BR>artical=request.form("d_content")<BR>title=request.form("d_title")<BR>ttype=request.form("ttype")</P>
<P>okfile = replace(okfile,"title1",title)<BR>okfile = replace(okfile,"author",author)<BR>okfile = replace(okfile,"article",artical)<BR>okfile = replace(okfile,"arttime",dtime)<BR> Set fso = Server.CreateObject("Scripting.FileSystemObject")<BR> Set fout = fso.Createtextfile(file2,true)<BR> fout.writeline okfile<BR>fout.close</P>
<P>''''''''''''''''''''''''''''''''''''''<BR>file3=gettimefilename(date())&"\"&filename1<BR>set rs=Server.createObject("adodb.recordset")<BR>strsql="select *from art_file"<BR>rs.open strsql,conn,3,3<BR>rs.addnew<BR>rs("title")=title<BR>rs("artical")=artical<BR>rs("arttime")=dtime<BR>rs("author")=author<BR>rs("type")=ttype<BR>rs("filename")=file3<BR>rs.update<BR>rs.close<BR>response.write"添加完成!"<BR>%>单击<a href='<%=file3%>'>查看</a></P>
<P> </P>
<P>包含文件conn.asp为数据库连接文件,不要改动</P>
<P>fso.sap放在fn文件夹下的</P>
<P>fso.asp</P>
<P><%<BR>'利用FSO直接读取模板<BR>function fsow(filename)<BR>set mfo=Server.CreateObject("Scripting.FileSystemObject")<BR>set rtf=mfo.OpenTextFile(server.mappath(filename),1)<BR>body=rtf.readall<BR>fsow=body<BR>end function<BR>%></P>
<P><BR><%<BR>'生成文件夹<BR>Function CreateFolder(Folder)<BR> Dim Fso, F<BR> Set Fso = Server.CreateObject("Scripting.FileSystemObject")<BR> If Fso.FolderExists(Server.MapPath(Folder)) Then Exit Function<BR> Set F = Fso.CreateFolder(Server.MapPath(Folder))<BR> Set F = Nothing<BR> Set Fso = Nothing<BR>End Function<BR>%></P>
<P><%<BR>'--------------以日期为文件名<BR>function gettimefilename(d)<BR>dim datetime,date1<BR>datetime=cstr(d)<BR>date1=datetime<BR>gettimefilename=year(date1)&month(date1)&day(date1)<BR>end function<BR>%><BR><%<BR>'以时间日期为文件名<BR>function getfilename(d)<BR>dim datetime<BR>datetime=cstr(d)<BR>dim date1,time1<BR>date1=split(d," ")(0)<BR>time1=split(d," ")(1)<BR>getfilename=year(date1)&month(date1)&day(date1)&hour(time1)&minute(time1)&second(time1)<BR>end function<BR>%></P>
<P> </P>
<P>呵,就是这样的了,有什么不足的地方,请大家提出来</P>
<P> </P>
<P><SPAN id=yu744> </P>
<P>由于没事,便把makeall.asp这个文件也改成了生成时间文件夹的,但是如果手工删除过文件且把以前生成的文件夹删除了的话就会报错,文件内容如下:</P>
<P><!--#include file="fn/conn.asp"--><BR><!--#include file="fn/fso.asp"--><BR><%<BR>'生成由时间文件夹存放的文件<BR>'下面开始成员过滤，非超级管理员不能登陆此界面<BR>'if session("admin")="" or session("step")<>8 then<BR>'response.write "你不是超级管理员,不能批量更新!"<BR>'response.end<BR>'end if<BR>%><BR><html><head><title>批量生成HTML</title></head><BR><body></P>
<P><%<BR>dim dtime,filename1,i<BR>i=0</P>
<P><BR>strsql="select *from art_file"<BR>set rs=conn.execute(strsql)</P>
<P>do while not rs.eof</P>
<P>'这个fn/moban6.htm是模板所在的路径<BR>okfile=fsow("fn/moban6.htm")</P>
<P> </P>
<P>'file1=server.mappath( "news" )</P>
<P>'file2=file1&"\"&rs("filename")<BR>filename1=rs("filename")<BR>file2=server.mappath(""&filename1&"")</P>
<P>title=rs("title")<BR>dtime=rs("arttime")<BR>author=rs("author")<BR>artical=rs("artical")</P>
<P><BR>okfile = replace(okfile,"title1",title)<BR>okfile = replace(okfile,"author",author)<BR>okfile = replace(okfile,"article",artical)<BR>okfile = replace(okfile,"arttime",dtime)<BR> Set fso = Server.CreateObject("Scripting.FileSystemObject")<BR> Set fout = fso.Createtextfile(file2,true)<BR> fout.writeline okfile<BR>fout.close<BR>i=i+1<BR>%><BR>更新完成<%=I%> : <%=filename1%>,单击<a href='<%=filename1%>' target="_blank">查看</a><br><BR><%<BR> rs.movenext<BR> loop<BR>%><BR></body><BR></html></P></SPAN></SPAN></p>
<p><img src="http://www.koyee.com/images/dgg.gif" height="70" width="587"> </p></td>
</tr>
<tr>
<td width="628" bordercolor="0" class="font1"><p>
<hr size="1" color="#0a778b" width="100%">
<table><tr><td width="269" align="center">上一篇: <a href=../77/200532014322.htm title=痛打落水狗 AMD针对英特尔垄断可能提起诉讼>痛打落水狗 AMD针对英特尔垄断可能提起诉讼</a> </td>
<td width="285" align="center">下一篇: <a href=../90/200542823048.htm title=gew>gew</a></td>
</tr></table>
<hr size="1" color="#0a778b" width="100%">
<div align="right"> <a href="javascript:window.print()"><img src="../../images/printer.gif" width="16" height="14" border="0" align="absmiddle">打印本页</a> | <a href="javascript:window.close()"><img src="../../images/close.gif" width="14" height="14" border="0" align="absmiddle">关闭窗口</a> </div>
<p></p></td>
</tr>
</table></td>
</tr>
</table>
<TABLE height=62 cellSpacing=0 cellPadding=0 width="800"
align=center background=../../images/webtop_bg.gif
border=0>
<TBODY>
<TR>
<TD><div align="center" class="style4">Copyright @ 2004-2008 http://www.koyee.com 可以网络在线版权所有<br>
公司地址:江西南昌 电话:13879173467 邮编:330029<br>
email:chenxueyan9999@163.com</div></TD>
</TR></TBODY></TABLE>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -