常用软件类： |
|杀毒安全 | |联络聊天 | |网络软件 | |多媒体类 | |系统工具 | |图形图像 | |系统工具 | |应用软件 | |行业软件 |
开发设计类： |
|动画制作 | |图像处理 | |3D设计 | |操作系统 | |站长学院 | |网络相关 | |WEB设计 | |数据库类 | |程序开发 |
5、处理数据功能显示页面addit.asp
首先是处理接受过来的数据，并将值写入数据库；接着将模板代码进行引用，并将其中特殊代码转换为接受值，最终通过FSO生成HTML页面。其中需要注意的还有，生成文件的路径地址保存至数据库表。
引用:
| ＜%'容错处理 On Error Resume Next %＞ ＜!--#include file="conn.asp" --＞ ＜!--#include file="lib.asp" --＞ ＜%'接受传递值 c_title=request.form("c_title") c_content=request.form("c_content") %＞ ＜%'生成HTML文件名，建立文件夹，指定文件路径 fname = makefilename(now()) 'makefilename为自定义函数 folder = "newsfile/"&date()&"/" filepath = folder&fname %＞ ＜%'将接受值及路径保持至数据库表 sql = "Select * from c_news" Set rs = Server.CreateObject ("ADODB.Recordset") rs.Open sql,conn,3,2 rs.addnew rs("c_title")=c_title rs("c_content")=c_content rs("c_filepath")=filepath rs.update rs.close Set rs = Nothing %＞ ＜%'打开模板代码，并将其中特殊代码转变为接受值 sql1="select m_id,m_html from c_moban where m_id=1" set rs1=Server.CreateObject("adodb.recordset") rs1.open sql1,conn,1,1 mb_code=rs1("m_html") rs1.close set rs1=nothing conn.close set conn=nothing c_title=htmlencode(c_title) c_content=htmlencode(c_content) mb_code=replace(mb_code,"$cntop{LogContent}quot;,now()) mb_code=replace(mb_code,"$cnleft{LogContent}quot;,c_title) mb_code=replace(mb_code,"$cnright{LogContent}quot;,c_content) %＞ ＜%'生成HTML页面 Set fso = Server.CreateObject("scripting.FileSystemObject") fso.CreateFolder(Server.MapPath(folder)) Set fout = fso.CreateTextFile(Server.MapPath(filepath)) fout.WriteLine mb_code fout.close %＞ 文章添加成功，＜a href="showit.asp"＞浏览＜/a＞ |
| ＜!--#include file="conn.asp" --＞ ＜!--#include file="lib.asp" --＞ ＜% Set rs = Server.CreateObject ("ADODB.Recordset") sql = "Select * from c_news order by c_id desc" rs.Open sql,conn,1,1 %＞ ＜% if rs.EOF and rs.BOF then response.write ("暂时还没有文章，＜a href=add.html＞添加＜/a＞") else Do Until rs.EOF %＞ ＜table width="758" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#000000"＞ ＜tr＞ ＜td width="159" align="right" bordercolor="#CCCCCC" bgcolor="#CCCCCC"＞＜%=rs("c_time")%＞＜/td＞ ＜td width="591" bordercolor="#f3f3f3" bgcolor="#f3f3f3"＞＜a href=＜%=rs("c_filepath")%＞ target="a_blank"＞＜%=rs("c_title")%＞＜/a＞＜/td＞ ＜/tr＞ ＜tr＞ ＜td valign="top" align="right" bordercolor="#ececec" bgcolor="#ececec"＞[＜a href=del.asp?c_id=＜%=rs("c_id")%＞＞Dell＜/a＞][＜a href=change.asp?c_id=＜%=rs("c_id")%＞＞Edit＜/a＞][＜a href="add.html"＞Add＜/a＞]＜/td＞ ＜td valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF"＞＜%=htmlencode(rs("c_content"))%＞＜/td＞ ＜/tr＞ ＜/table＞＜br＞ ＜% rs.MoveNext Loop end if %＞ ＜% rs.close Set rs = Nothing conn.close set conn=Nothing %＞ |
| ＜!--#include file="conn.asp" --＞ ＜!--#include file="lib.asp" --＞ ＜%id=request.querystring("c_id")%＞ ＜% if request.form("submit")="change" then c_title=request.form("c_title") c_content=request.form("c_content") c_id=request.form("c_id") c_filepath=request.form("c_filepath") Set rs = Server.CreateObject ("ADODB.Recordset") sql = "Select * from c_news where c_id="&c_id rs.Open sql,conn,3,2 rs("c_title")=c_title rs("c_content")=c_content rs("c_time")=now() rs.update rs.close Set rs = Nothing %＞ ＜%'打开模板代码，并将其中特殊代码转变为接受值 sql1="select m_id,m_html from c_moban where m_id=1" set rs1=Server.CreateObject("adodb.recordset") rs1.open sql1,conn,1,1 mb_code=rs1("m_html") rs1.close set rs1=nothing conn.close set conn=nothing c_title=htmlencode(c_title) c_content=htmlencode(c_content) mb_code=replace(mb_code,"$cntop{LogContent}quot;,now()) mb_code=replace(mb_code,"$cnleft{LogContent}quot;,c_title) mb_code=replace(mb_code,"$cnright{LogContent}quot;,c_content) %＞ ＜%'生成HTML页面 Set fso = Server.CreateObject("scripting.FileSystemObject") Set fout = fso.CreateTextFile(Server.MapPath(c_filepath)) fout.WriteLine mb_code fout.close %＞ ＜%response.redirect("showit.asp")%＞ ＜%end if%＞ ＜% if id＜＞"" then Set rs = Server.CreateObject ("ADODB.Recordset") sql="select * from c_news where c_id="&id rs.Open sql,conn,1,1 c_id=rs("c_id") c_filepath=rs("c_filepath") c_title=rs("c_title") c_content=rs("c_content") end if %＞ ＜form action="change.asp" method="post"＞ Title:＜input type="text" name="c_title" value=＜%=c_title%＞＞＜br＞ Content:＜br＞ ＜textarea name="c_content" rows="8" cols="30"＞＜%=c_content%＞＜/textarea＞＜br＞ ＜input type="submit" value="change" name="submit"＞ ＜input type="reset" value="Reset"＞ ＜input name="c_id" type="hidden" value="＜%=id%＞"＞ ＜input name="c_filepath" type="hidden" value="＜%=c_filepath%＞"＞ ＜/form＞ |
| ＜!--#include file="conn.asp" --＞ ＜% c_id = request.querystring("c_id") sql = "Select * from c_news where c_id="&c_id Set rs = Server.CreateObject ("ADODB.Recordset") rs.Open sql,conn,2,3 filepath=rs("c_filepath") Set fso = CreateObject("scripting.FileSystemObject") fso.DeleteFile(Server.mappath(filepath)) Set fso = nothing rs.delete rs.close Set rs = Nothing conn.close set conn=nothing %＞ ＜%response.redirect("showit.asp")%＞ |
百度搜藏
