admin_edit.asp

是运行在asp环境下寻梦书库管理系统

<%@LANGUAGE="VBSCRIPT"%>
<!--#INCLUDE FILE="inc/conn.asp" -->
<!--#INCLUDE FILE="top.asp" -->
<!--#include file="chk.asp"-->
<%
action=request("action")
if action<>"save" then

bookid=request("bookid")
sqlb = "select top 1 bookname,addtim from book where bookid="&bookid&" "
set rsb= Server.CreateObject("ADODB.RECORDSET")
rsb.Open sqlb,Conn,1,3
    Rtime=Rsb("addtim")
    Rtime = left(Rtime,7)
    Rtime = replace(Rtime, "-", "")

id=request("id")
dim rs
dim sql
set Rs = Server.CreateObject("ADODB.Recordset")
sql ="Select * from read where id="&request("id")
rs.open sql,conn,1,1

bookid=rs("bookid")
id=rs("id")
biaoti=rs("biaoti")
zuozhe=rs("zuozhe")

dim FileName
FileName="/DATA/"&Rtime&"/"&bookid&"/"&id&".dat"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
            Set f = fso.OpenTextFile(server.mappath(FileName), 1)
            ReadTxtFile =  f.ReadAll
            f.Close
zhengwen=ReadTxtFile
%>
<script language="JavaScript" src="inc/ubbcode.js"></script>
<br><br><br><br>
<form method="post" name="input" action="admin_edit.asp?action=save">
  <div align="center">
    <center>
  <table width="720" border="1" cellspacing="0" cellpadding="2" height="228" style="border-collapse: collapse" bordercolor="#C6E0C2">
    <tr> 
      <td width="96" height="17" align="left">
      文章标题:</td>
      <td width="367" height="17"> 
        <input type="text" name="biaoti" maxlength="250" size="32" style="border-style: groove; border-width: 1; background-color:#FFFFFF" value="<%=biaoti%>">&nbsp; 
        <input type="hidden" name="bookid" maxlength="30" size="8" style="border-style: groove; border-width: 1; background-color:#FFFFFF" value="<%=bookid%>">
        <input type="hidden" name="id" maxlength="30" size="8" style="border-style: groove; border-width: 1; background-color:#FFFFFF" value="<%=id%>">
 </td>
</tr>
    <tr>
      <td nowrap width="96" height="2" align="left">
      作者:</td>
      <td width="367" height="2"> 
        <input type="text" name="zuozhe" size="16" maxlength="50"  style="border-style: groove; border-width: 1;" value="<%=zuozhe%>">
</td>
    </tr><tr>
            <td width=100px valign="top">是否章节：</td><td>
<input type="radio" name="iszj" value="0" checked>否
<input type="radio" name="iszj" value="1">是
</select>
       <tr> 
        <td colspan=2 align=center> 
<a href="javascript:big()"><img src="image/ubbcode/bb_big.gif" border="0" alt="插入大标题"></a>
<a href="javascript:small()"><img src="image/ubbcode/bb_small.gif" border="0" alt="插入小标题"></a>
<a href="javascript:zs()"><img src="image/ubbcode/bb_zs.gif" border="0" alt="插入注释"></a>
<a href="javascript:sj()"><img src="image/ubbcode/bb_sj.gif" border="0" alt="文本缩进"></a>
<a href="javascript:bold()"><img src="image/ubbcode/bb_bold.gif" border="0" alt="插入粗体文本"></a>
<a href="javascript:italicize()"><img src="image/ubbcode/bb_italicize.gif" border="0" alt="插入斜体文本"></a>
<a href="javascript:underline()"><img src="image/ubbcode/bb_underline.gif" border="0" alt="插入下划线"></a>
<a href="javascript:sub()"><img src="image/ubbcode/bb_sub.gif" border="0" alt="文字下标"></a>
<a href="javascript:sup()"><img src="image/ubbcode/bb_sup.gif" border="0" alt="文字上标"></a>
<a href="javascript:center()"><img src="image/ubbcode/bb_center.gif" border="0" alt="居中对齐"></a>
<a href="javascript:right()"><img src="image/ubbcode/bb_right.gif" border="0" alt="右对齐"></a>
<iframe id="upload" border="0" vspace="0" hspace="0" marginwidth="0" marginheight="0"
  framespacing="0" frameborder="0" scrolling="no" width="280" height="22"
  src="upload.asp">
</iframe>

           <textarea name="zhengwen" cols="90" rows="16" style="border-bottom:1px dotted #666666;border-left:0px solid #666666;border-right:0px solid #999999;border-top:0px solid #999999" value="" wrap="VIRTUAL" id="zhengwen" onSelect="javascript: storeCaret(this);" onClick="javascript: storeCaret(this);" onKeyDown="javascript: ctlent();" onKeyUp="javascript: storeCaret(this);"><%=zhengwen%></textarea> 
    <tr>
      <td colspan=2 align=center> 
　　　　<input type="submit" name="Submit" value="修　改">&nbsp;&nbsp;
        <input type="reset" name="Submit2" value="恢　复">
  </table>
    </center>
  </div>
</form>
<%else
bookid=request("bookid")
zuozhe=request("zuozhe")
biaoti=request("biaoti")
zhengwen=request("zhengwen")
id=request("id")
iszj=request("iszj")
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from read where id="&request("id")
rs.open sql,conn,1,3
rs("bookid")=bookid
rs("zuozhe")=zuozhe
rs("biaoti")=biaoti
rs("iszj")=iszj
rs.update
rs.close

sql_t="select top 1 * from book where bookid="&bookid&" order by bookid asc"
set Rs_t = Server.CreateObject("ADODB.Recordset")
Rs_t.open sql_t,conn,1,2
if not Rs_t.eof then

Rtime=Rs_t("addtim")
    Rtime = left(Rtime,7)
    Rtime = replace(Rtime, "-", "")

dim fpath
fpath="/DATA/"
fpath=fpath&Rtime&"/"

	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
		If objFSO.FolderExists(Server.MapPath(fpath))=False Then
			objFSO.CreateFolder Server.MapPath(fpath)
		End If

fpath=fpath&bookid&"/"

	Set objFSO1 = Server.CreateObject("Scripting.FileSystemObject")
		If objFSO1.FolderExists(Server.MapPath(fpath))=False Then
			objFSO1.CreateFolder Server.MapPath(fpath)
		End If

fpath=replace(fpath, "//", "\")
fpath=replace(fpath, "/", "\")
fname=id & ".dat"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(server.mappath(fpath & fname),true)
fout.writeline zhengwen
fout.close
end if

conn.execute("update book set edtime=now() where bookid="&bookid&" ")
response.redirect "admin_bookread.asp?bookid="&bookid&""
end if
%>