EditReply

[修改回复] 删除回复

插入表情：

使用帮助

[quote]&lt;%'容错处理
On Error Resume Next
%&gt;

&lt;!--#include file="conn.asp" --&gt;
&lt;!--#include file="lib.asp" --&gt;

&lt;%'接受传递值
c_title=request.form("c_title")
c_content=request.form("c_content")
%&gt;

&lt;%'生成HTML文件名，建立文件夹，指定文件路径
fname = makefilename(now())  'makefilename为自定义函数 
folder = "newsfile/"&date()&"/"
filepath = folder&fname
%&gt;

&lt;%'将接受值及路径保持至数据库表
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
%&gt;

&lt;%'打开模板代码，并将其中特殊代码转变为接受值
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$",now())
mb_code=replace(mb_code,"$cnleft$",c_title)
mb_code=replace(mb_code,"$cnright$",c_content)
%&gt;

&lt;%'生成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
%&gt;

文章添加成功，&lt;a href="showit.asp"&gt;浏览&lt;/a&gt; 
[/quote]

6，显示数据库表记录，并做指向HTML页的链接：showit.asp

[code]&lt;!--#include file="conn.asp" --&gt;
&lt;!--#include file="lib.asp" --&gt;
&lt;%
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from c_news order by c_id desc"
rs.Open sql,conn,1,1
%&gt;

&lt;%
if rs.EOF and rs.BOF then
   response.write ("暂时还没有文章，&lt;a href=add.html&gt;添加&lt;/a&gt;")
else
   Do Until rs.EOF
%&gt;
        &lt;table width="758" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#000000"&gt;
            &lt;tr&gt; 
            &lt;td width="159" align="right" bordercolor="#CCCCCC" bgcolor="#CCCCCC"&gt;&lt;%=rs("c_time")%&gt;&lt;/td&gt;
            &lt;td width="591" bordercolor="#f3f3f3" bgcolor="#f3f3f3"&gt;&lt;a href=&lt;%=rs("c_filepath")%&gt; target="a_blank"&gt;&lt;%=rs("c_title")%&gt;&lt;/a&gt;&lt;/td&gt;
          &lt;/tr&gt;
          &lt;tr&gt; 
            &lt;td valign="top" align="right" bordercolor="#ececec" bgcolor="#ececec"&gt;[&lt;a href=del.asp?c_id=&lt;%=rs("c_id")%&gt;&gt;Dell&lt;/a&gt;][&lt;a href=change.asp?c_id=&lt;%=rs("c_id")%&gt;&gt;Edit&lt;/a&gt;][&lt;a href="add.html"&gt;Add&lt;/a&gt;]&lt;/td&gt;
            &lt;td valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF"&gt;&lt;%=htmlencode(rs("c_content"))%&gt;&lt;/td&gt;
          &lt;/tr&gt;
        &lt;/table&gt;&lt;br&gt;
&lt;%
      rs.MoveNext
   Loop
end if
%&gt;

&lt;%
rs.close 
Set rs = Nothing
conn.close 
set conn=Nothing
%&gt;

[/code]

不能为空不能含有 ` 字符，字数8000以内

(CTRL+ENTER提交)

关闭窗口