📄 2005414035.htm
字号:
<TR>
<td width="624" bgcolor="#CCCCCC">当前位置:<a href=../../index.htm>首页</a>--><a href=../../artical/69/1.htm>程序设计</a>--><a href=../../artical/80/1.htm>ASP专区</a>-->显示文章内容</td><td width="176" bgcolor="#CCCCCC"><span id="liveclock"></span></td>
</TR></TBODY></TABLE>
<table width="800" height="406" border="1" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="166" height="200" valign="top" scope="col"><table width="100%" height="163" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="119" valign="top" scope="col"><table width="180" border="0" cellspacing="0" cellpadding="0" align="center">
<form action="../../search.asp" method="post" name="searchLeftForm">
<tr bgcolor="CAF6F4" align="center">
<td height="25" bgcolor="#CC9900"><font color="#cc0000"><b>□
站 内 搜 索 □</b></font></td>
</tr>
<tr align="center">
<td style="line-height:150%" height=60> 请输入查询的字符串:<br>
<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>使用ASP生成HTML文件</SPAN></p>
<hr size="1" color="#0a778b" width="100%">
发布时间：2005-4-1 被阅览数：<SCRIPT src="../../counter.asp?id=489"></SCRIPT> 次 作者：断剑
</div>
</td>
</tr>
<tr>
<td width="100%"><p class="style6"><SPAN>使用ASP生成HTML文件 <BR><BR><BR>使用ASP生成HTML文件 <BR><BR>'共有两个页面index.htm是首页.程序比较简单，主要是用了ASP里的文件操作对象。 <BR><!--index.htm----------------------> <BR><BR><html> <BR><head> <BR><title>Untitled Document</title> <BR><meta http-equiv="Content-Type" content="text/html; <BR>charset=gb2312"> <BR></head> <BR><BR><body> <BR><table width="770" border="0" align="center" cellpadding="0" cellspacing="0"> <BR><tr> <BR><td><form name="form1" method="post" action="send.asp"> <BR><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#CCFFFF"> <BR><tr> <BR><td height="20"><div align="center">发送消息</div></td> <BR></tr> <BR><tr> <BR><td><div align="center"> <BR><textarea name="msg" cols="100" rows="6"></textarea> <BR></div></td> <BR></tr> <BR><tr> <BR><td><div align="center"> <BR><input type="submit" name="Submit" value="Submit"> <BR><input type="reset" name="Submit2" value="Reset"> <BR></div></td> <BR></tr> <BR></table> <BR></form></td> <BR></tr> <BR></table> <BR></body> <BR></html> <BR>'//send.asp <BR><BR><% <BR>function chan_time(shijian)'转换日期时间函数 <BR>s_year=year(shijian) <BR>if len(s_year)=2 then s_year="20"&s_year <BR>s_month=month(shijian) <BR>if s_month<10 then s_month="0"&s_month <BR>s_day=day(shijian) <BR>if s_day<10 then s_day="0"&s_day <BR>s_hour=hour(shijian) <BR>if s_hour<10 then s_hour="0"&s_hour <BR>s_minute=minute(shijian) <BR>if s_minute<10 then s_minute="0"&s_minute <BR>chan_time=s_year & s_month & s_day & s_hour & s_minute <BR>end function <BR><BR>function chan_data(shijian) '转换日期时间函数 <BR>s_year=year(shijian) <BR>if len(s_year)=2 then s_year="20"&s_year <BR>s_month=month(shijian) <BR>if s_month<10 then s_month="0"&s_month <BR>s_day=day(shijian) <BR>if s_day<10 then s_day="0"&s_day <BR>chan_data=s_year & s_month & s_day <BR>end function <BR><BR><BR>function chan_file(shijian)'转换日期时间函数 <BR>s_month=month(shijian) <BR>if s_month<10 then s_month="0"&s_month <BR>s_day=day(shijian) <BR>if s_day<10 then s_day="0"&s_day <BR>s_hour=hour(shijian) <BR>if s_hour<10 then s_hour="0"&s_hour <BR>s_minute=minute(shijian) <BR>if s_minute<10 then s_minute="0"&s_minute <BR>s_ss=second(shijian) <BR>if s_ss<10 then s_ss="0"&s_ss <BR>chan_file = s_month & s_day & s_hour & s_minute & s_ss <BR>end function <BR>top="<html><head><title>news</title></head><body>" <BR>botom="</body></html>" <BR>msg=request.Form("msg") <BR>msg=replace(msg,vbcrlf,"") <BR>msg=replace(msg,chr(9),"") <BR>msg=replace(msg," ","&nbsp;") <BR>msg=replace(msg,"\r\n","<br>") <BR>msg=replace(msg,"\n","<br>") <BR>msg=top&msg&botom <BR>Set fs=Server.CreateObject("Scripting.FileSystemObject") <BR>all_tree2=server.mappath("news")&"\"&chan_data(now) <BR>if (fs.FolderExists(all_tree2)) then'判断今天的文件夹是否存在 <BR>else <BR>fs.CreateFolder(all_tree2) <BR>end if <BR>pass=chan_file(now) <BR>randomize '使用系统计时器来初始化乱数产生器 <BR>pass=rnd(pass) <BR>pass=get_pass(pass) <BR>pass=left(pass,10) file1=pass <BR>files=file1&".txt" <BR>filez=all_tree2&"\"&files <BR><BR>set ts = fs.createtextfile(filez,true) '写文件 <BR>for z=1 to len(msg) <BR>write_now=mid(msg,z,1) <BR>ts.write(write_now) <BR>next <BR>' ts.writeline(all_msg) <BR>ts.close <BR>set ts=nothing '文件生成 <BR><BR>if err.number<>0 or err then%> <BR><script language="javascript"> <BR>alert("不能完成") <BR></script> <BR><%else%> <BR><script language="javascript"> <BR>alert("已完成") <BR>history.back(); <BR></script> <BR><%end if <BR>Set MyFile = fs.GetFile(filez) <BR>all_tree2=server.mappath("news")&"\"&chan_data(now) <BR>if (fs.FolderExists(all_tree2)) then <BR>else <BR>fs.CreateFolder(all_tree2) <BR>end if <BR><BR><BR>MyFile.name= left(MyFile.name,len(MyFile.name)-4)&".htm" <BR>set MyFile=nothing <BR>set fs=nothing <BR>set fdir=nothing <BR>function get_pass(pass) <BR><BR>pass=cstr(pass) <BR>pass=replace(pass," ","") <BR>pass=replace(pass," ","") <BR>pass=replace(pass,"-","") <BR>pass=replace(pass," ","") <BR>pass=replace(pass,":","") <BR>pass=replace(pass,".","") <BR>pass=replace(pass,"+","") <BR>pass=replace(pass,"_","") <BR>pass=replace(pass,"<","") <BR>pass=replace(pass,">","") <BR>pass=replace(pass,"!","") <BR>pass=replace(pass,"@","") <BR>pass=replace(pass,"#","") <BR>pass=replace(pass,"$","") <BR>pass=replace(pass,"%","") <BR>pass=replace(pass,"^","") <BR>pass=replace(pass,"&","") <BR>pass=replace(pass,"*","") <BR>pass=replace(pass,"(","") <BR>pass=replace(pass,")","") <BR>pass=replace(pass,"=","") <BR>pass=replace(pass,"\","") <BR>pass=replace(pass,"/","") <BR>pass=replace(pass,"|","") <BR>get_pass=pass <BR><BR>end function <BR><BR>%> <BR><BR>'// <BR><BR>把send.asp和index.htm放到你的ASP目录下，然后再建一个news文件夹。打开浏览器，在地址栏里输入：http://你的机器名/你的ASP虚拟目录名/index.html输入文字，然后提交，OK！看看你的ASP目录里新建的news文件夹里是不是多了个新的文件夹，而且是以当前日期命名的。里面有你刚刚提交的文字，看看是不是生成了HTML文件。怎么样，你可以在此基础上做个简单的新闻发布系统。。 <BR><BR><BR></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=../80/20054135956.htm title=在Flash中使用ASP技术>在Flash中使用ASP技术</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 + -