
常用软件类: |
|杀毒安全 | |联络聊天 | |网络软件 | |多媒体类 | |系统工具 | |图形图像 | |系统工具 | |应用软件 | |行业软件 |
开发设计类: |
|动画制作 | |图像处理 | |3D设计 | |操作系统 | |站长学院 | |网络相关 | |WEB设计 | |数据库类 | |程序开发 |
| On Error Resume Next |
| <% Set fso = Server.CreateObject("scripting.FileSystemObject") if (fso.FolderExists(Server.MapPath(folder))) then '判断如果存在就不做处理 else '判断如果不存在则建立新文件夹 fso.CreateFolder(Server.MapPath(folder)) end if %> |
| <% function makefilename(fname) fname = fname '前fname为变量,后fname为函数参数引用 fname = replace(fname,"-","") fname = replace(fname," ","") fname = replace(fname,":","") fname = replace(fname,"PM","") fname = replace(fname,"AM","") fname = replace(fname,"上午","") fname = replace(fname,"下午","") makefilename = fname & ".html" end function %> |
| <%fname = makefilename(now())%> |
| <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=hz"> <title>Cnbruce.Com | ASP2HTML TEST</title> </head> <body leftmargin="0" topmargin="0"> <table width="100%" height="100%" border="0" cellpadding="5" cellspacing="2"> <tr align="right" bgcolor="#CCCCCC"> <td height="20" colspan="2">$cntop{LogContent}lt;/td> </tr> <tr valign="top"> <td width="25%" bgcolor="#e5e5e5">$cnleft{LogContent}lt;/td> <td width="74%" bgcolor="#f3f3f3">$cnright{LogContent}lt;/td> </tr> </table> </body> </html> |
| <% '生成文件名的函数 function makefilename(fname) fname = fname fname = replace(fname,"-","") fname = replace(fname," ","") fname = replace(fname,":","") fname = replace(fname,"PM","") fname = replace(fname,"AM","") fname = replace(fname,"上午","") fname = replace(fname,"下午","") makefilename=fname & ".shtml" end function '保持数据格式不变的函数 function HTMLEncode(fString) fString = replace(fString, ">", ">") fString = replace(fString, "<", "<") fString = Replace(fString, CHR(32), " ") fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) & CHR(10), "<br>") fString = Replace(fString, CHR(10), "<br>") HTMLEncode = fString end function %> |
| <% set conn = Server.CreateObject("ADODB.Connection") connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("asp2html.mdb") conn.Open connstr %> |
| <form action="addit.asp" method="post"> Title:<input type="text" name="c_title"><br> Content:<br> <textarea name="c_content" rows="8" cols="30"></textarea><br> <input type="submit" value="Add"> <input type="reset" value="Reset"> </form> |