EditReply

[修改回复] 删除回复

插入表情：

使用帮助

7，修改数据内容页change.asp

修改数据内容，同时也需要修改更新对应的HTML页面。修改其实就是重新生成文件，且文件名和之前一样，类似文件的覆盖。
&lt;!--#include file="conn.asp" --&gt;
&lt;!--#include file="lib.asp" --&gt;

&lt;%id=request.querystring("c_id")%&gt;

&lt;%
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
%&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")
Set fout = fso.CreateTextFile(Server.MapPath(c_filepath))
fout.WriteLine mb_code
fout.close
%&gt;
&lt;%response.redirect("showit.asp")%&gt;
&lt;%end if%&gt;

&lt;%
if id&lt;&gt;"" 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
%&gt;

&lt;form action="change.asp" method="post"&gt;
Title:&lt;input type="text" name="c_title" value=&lt;%=c_title%&gt;&gt;&lt;br&gt;
Content:&lt;br&gt;
&lt;textarea name="c_content" rows="8" cols="30"&gt;&lt;%=c_content%&gt;&lt;/textarea&gt;&lt;br&gt;
&lt;input type="submit" value="change" name="submit"&gt;
&lt;input type="reset" value="Reset"&gt;
&lt;input name="c_id" type="hidden" value="&lt;%=id%&gt;"&gt;
&lt;input name="c_filepath" type="hidden" value="&lt;%=c_filepath%&gt;"&gt;
&lt;/form&gt;

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

(CTRL+ENTER提交)

关闭窗口