⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_add.asp

📁 是运行在asp环境下寻梦书库管理系统
💻 ASP
字号:
🔍 
<!--#include file="inc/conn.asp"-->
<!--#include file="top.asp"-->
<!--#include file="chk.asp"-->
<%
action=request("action")
if action<>"save" then
%>
<script language="JavaScript" src="inc/ubbcode.js"></script>

<table width=680px cellspacing=0 cellpadding=0 align=center border="0">
  <tr> 
    <td align=center><br>
<%
w=request("w")
if w=1 then
%>
继续<%end if%><b> 输 入 文 章 内 容 </b><br>
      <form name="input" action="admin_add.asp?action=save" method="post">
        <table align=center width=90% height=100% border=0 cellspacing=0 cellpadding=5>
          <tr> 
            <td width=100px  valign="top">文章标题 : 
            <td> 
              <input style="border-bottom:1px dotted #666666;border-left:0px solid #666666;border-right:0px solid #999999;border-top:0px solid #999999" name=biaoti size=40 maxlength=250><%if w=2 then%><font color=#FF00CC>标题？</font><%end if%>
           </tr> 
<tr> 
            <td width=100px  valign="top">作者 : 
            <td> 
<%
bookid=request("bookid")
sql="select bookname,zuozhe,kindid from book where bookid="&bookid&" "
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
%> 
              <input style="border-bottom:1px dotted #666666;border-left:0px solid #666666;border-right:0px solid #999999;border-top:0px solid #999999" name=zuozhe size=16 maxlength=50 value="<%=rs("zuozhe")%>">
           </tr> 
         <tr> 
            <td width=100px valign="top">书籍名称 : 
            <td> 
          <%=rs("bookname")%><input type="hidden" name=bookid value="<%=bookid%>"><input type="hidden" name=kindid value="<%=rs("kindid")%>">
<%Rs.close%>
           </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><%if w=4 then%><font color=#FF00CC>正文？</font><%end if%>
                   </tr> 
          <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);"></textarea> 

          <tr> 
            <td colspan=2 align=center> 
              <input type=submit value="提　交"  name="submit">
        </table>
        <p> 
      </form>
</table>
<%else

dim rs
dim sql
bookid=request("bookid")
kindid=request("kindid")
biaoti=request("biaoti")
zuozhe=request("zuozhe")
zhengwen=request("zhengwen")
iszj=request("iszj")

zhengwen= Replace(zhengwen, "----", "——")
zhengwen= Replace(zhengwen, "--", "——")
zhengwen= Replace(zhengwen, "————", "——")
zhengwen= Replace(zhengwen, "。。。。。。", "……")
zhengwen= Replace(zhengwen, "。。。。。", "……")
zhengwen= Replace(zhengwen, "。。。", "…")
zhengwen= Replace(zhengwen, "０", "0")
zhengwen= Replace(zhengwen, "１", "1")
zhengwen= Replace(zhengwen, "２", "2")
zhengwen= Replace(zhengwen, "３", "3")
zhengwen= Replace(zhengwen, "４", "4")
zhengwen= Replace(zhengwen, "５", "5")
zhengwen= Replace(zhengwen, "６", "6")
zhengwen= Replace(zhengwen, "７", "7")
zhengwen= Replace(zhengwen, "８", "8")
zhengwen= Replace(zhengwen, "９", "9")
zhengwen= Replace(zhengwen, "ａ", "a")
zhengwen= Replace(zhengwen, "ｂ", "b")
zhengwen= Replace(zhengwen, "ｃ", "c")
zhengwen= Replace(zhengwen, "ｄ", "d")
zhengwen= Replace(zhengwen, "ｅ", "e")
zhengwen= Replace(zhengwen, "ｆ", "f")
zhengwen= Replace(zhengwen, "ｇ", "g")
zhengwen= Replace(zhengwen, "ｈ", "h")
zhengwen= Replace(zhengwen, "ｉ", "i")
zhengwen= Replace(zhengwen, "ｊ", "j")
zhengwen= Replace(zhengwen, "ｋ", "k")
zhengwen= Replace(zhengwen, "ｌ", "l")
zhengwen= Replace(zhengwen, "ｍ", "m")
zhengwen= Replace(zhengwen, "ｎ", "n")
zhengwen= Replace(zhengwen, "ｏ", "o")
zhengwen= Replace(zhengwen, "ｐ", "p")
zhengwen= Replace(zhengwen, "ｑ", "q")
zhengwen= Replace(zhengwen, "ｒ", "r")
zhengwen= Replace(zhengwen, "ｓ", "s")
zhengwen= Replace(zhengwen, "ｔ", "t")
zhengwen= Replace(zhengwen, "ｕ", "u")
zhengwen= Replace(zhengwen, "ｖ", "v")
zhengwen= Replace(zhengwen, "ｗ", "w")
zhengwen= Replace(zhengwen, "ｘ", "x")
zhengwen= Replace(zhengwen, "ｙ", "y")
zhengwen= Replace(zhengwen, "ｚ", "z")
zhengwen= Replace(zhengwen, "Ａ", "A")
zhengwen= Replace(zhengwen, "Ｂ", "B")
zhengwen= Replace(zhengwen, "Ｃ", "C")
zhengwen= Replace(zhengwen, "Ｄ", "D")
zhengwen= Replace(zhengwen, "Ｅ", "E")
zhengwen= Replace(zhengwen, "Ｆ", "F")
zhengwen= Replace(zhengwen, "Ｇ", "G")
zhengwen= Replace(zhengwen, "Ｈ", "H")
zhengwen= Replace(zhengwen, "Ｉ", "I")
zhengwen= Replace(zhengwen, "Ｊ", "J")
zhengwen= Replace(zhengwen, "Ｋ", "K")
zhengwen= Replace(zhengwen, "Ｌ", "L")
zhengwen= Replace(zhengwen, "Ｍ", "M")
zhengwen= Replace(zhengwen, "Ｎ", "N")
zhengwen= Replace(zhengwen, "Ｏ", "O")
zhengwen= Replace(zhengwen, "Ｐ", "P")
zhengwen= Replace(zhengwen, "Ｑ", "Q")
zhengwen= Replace(zhengwen, "Ｒ", "R")
zhengwen= Replace(zhengwen, "Ｓ", "S")
zhengwen= Replace(zhengwen, "Ｔ", "T")
zhengwen= Replace(zhengwen, "Ｕ", "U")
zhengwen= Replace(zhengwen, "Ｖ", "V")
zhengwen= Replace(zhengwen, "Ｗ", "W")
zhengwen= Replace(zhengwen, "Ｘ", "X")
zhengwen= Replace(zhengwen, "Ｙ", "Y")
zhengwen= Replace(zhengwen, "Ｚ", "Z")
zhengwen= Replace(zhengwen, "﹒", "·")
zhengwen= Replace(zhengwen, "（", "(")
zhengwen= Replace(zhengwen, "）", ")")
zhengwen= Replace(zhengwen, "＜", "<")
zhengwen= Replace(zhengwen, "＞", ">")
zhengwen= Replace(zhengwen, CHR(39), "")
zhengwen= Replace(zhengwen, "&nbsp;&nbsp;", "　")
zhengwen= Replace(zhengwen, "＂", chr(34))
zhengwen= Replace(zhengwen, "&quot;", chr(34))
zhengwen= Replace(zhengwen, chr(10)&chr(34), chr(10)&"“")
zhengwen= Replace(zhengwen, "　"&chr(34), "　“")
zhengwen= Replace(zhengwen, chr(34)&chr(34), "”“")
zhengwen= Replace(zhengwen, "&nbsp;"&chr(34), "　“")
zhengwen= Replace(zhengwen, " "&chr(34), "　“")
zhengwen= Replace(zhengwen, "∶"&chr(34), "：“")
zhengwen= Replace(zhengwen, "："&chr(34), "：“")
zhengwen= Replace(zhengwen, chr(34), "”")
zhengwen= Replace(zhengwen, "'", " ")
zhengwen= Replace(zhengwen, "「", "“")
zhengwen= Replace(zhengwen, "」", "”")
zhengwen= Replace(zhengwen, "『", "‘")
zhengwen= Replace(zhengwen, "』", "’")
zhengwen= Replace(zhengwen, ",", "，")
zhengwen= Replace(zhengwen, "?", "？")
zhengwen= Replace(zhengwen, "!", "！")
zhengwen= Replace(zhengwen, ":", "：")
zhengwen= Replace(zhengwen, "......", "……")
zhengwen= Replace(zhengwen, ".....", "……")
zhengwen= Replace(zhengwen, "...", "…")

if len(biaoti)=0 then
     response.redirect("admin_add.asp?bookid="&bookid&"&w=2")
   end if
if iszj<>1 and len(zhengwen)=0 then
      response.redirect("admin_add.asp?bookid="&bookid&"&w=4")
   end if

set rs=server.createobject("adodb.recordset")
sql="select * from read"
rs.open sql,conn,3,3
rs.addnew
rs("biaoti")=server.htmlencode(biaoti)
rs("zuozhe")=server.htmlencode(zuozhe)
rs("bookid")=server.htmlencode(bookid)
rs("iszj")=iszj
rs.update
rs.close
set rs=nothing

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
database=Rs_t("database")
Rtime=Rs_t("addtim")
    Rtime = left(Rtime,7)
    Rtime = replace(Rtime, "-", "")

sql="select top 1 * from read order by id desc "
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1

readid=Rs("id")

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=readid & ".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&" ")
strn=len(zhengwen)
conn.execute("update book set strn=strn+"&strn&" where bookid="&bookid&" ")
%>
<meta http-equiv="refresh" content="0;URL=admin_add.asp?bookid=<%=bookid%>&w=1">
<%end if%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -