📄 author_book.asp
字号:
<%
author_ID=session("author_ID")
author_name=session("author_name")
If author_name="" or author_ID="" or IsNull(WordID) Then
Response.Write ("<script>alert(' CnEndWeb（终点）提醒： \n\n 可能您还没有登陆或者登陆超时 ');location.href='author_log.asp?info=log';</script>")
Response.End
End If
set rs=server.createobject("adodb.recordset")
sql="select * from [author] where author_ID="&author_ID&""
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Response.Write ("<script>alert(' CnEndWeb（终点）提醒： \n\n 用户不存在。');history.back();</script>")
Response.end
End If
If rs("author_addpost")=0 Then
Response.Write ("<script>alert(' CnEndWeb（终点）提醒： \n\n 您的驻站申请尚未被管理员通过 \n\n 请先联系本站站长或管理员通过您的申请 ');location.href='author_log.asp?info=log';</script>")
Response.End
End If
If rs("author_lock")=1 Then
Response.Write ("<script>alert(' CnEndWeb（终点）提醒： \n\n 您的驻站权限被锁定不能发表新作 \n\n 请先联系本站站长或管理员帮您解锁 ');location.href='author_log.asp?info=log';</script>")
Response.End
End If
rs.close
set rs=nothing
Select Case request.querystring("info")
Case "book_add"
Call book_add()
Case "book_list"
Call book_list()
Case "zhang_add"
Call zhang_add()
Case "zhang_list"
Call zhang_list()
Case "zhang_edit"
Call zhang_edit()
Case "jie_add"
Call jie_add()
Case "jie_list"
Call jie_list()
Case "jie_edit"
Call jie_edit()
Case "jjgg_edit"
Call jjgg_edit()
Case "view_go_cook"
Call view_go_cook()
end select
%>
<%Sub book_list()%>
<table cellSpacing="1" cellPadding="4" width="100%" bgColor="#ffffff" border="0">
<tr bgColor="#588fc7">
<td colSpan="4" class="head">
<font color="#FFFFFF">管理我更新的作品</font></td>
</tr>
<tr bgColor="#ffffff">
<td colSpan="4" >
<table width="100%" align="center" cellspacing=0>
<tbody><%
set rsab=server.createobject("adodb.recordset")
sqlab="select id,newviewname,list_tai,list_name from [list_book] where list_Adminid="&author_ID&" order by id desc"
rsab.open sqlab,conn,1,1
if rsab.eof and rsab.bof then
%>
<tr align="center" valign="middle">
<td height=24 colspan="6" class="style1"><b>您没有发表任何作品</b></td>
</tr>
<%else%>
<tr valign="middle">
<td width="20%" align=center height=24><b>作品名称</b></td>
<td width="40%" align=center><b>最近添加或更新的章节</b></td>
<td width="10%" align=center><b>移动章节</b></td>
<td width="10%" align=center><b>写作进程</b></td>
<td width="10%" align=center><b>简介和公告</b></td>
<td width="10%" align=center><b>作品评论</b></td>
</tr>
<%do while not rsab.eof%>
<tr valign="middle">
<td height=24> <a title="点击修改或增加分卷" href="author_book.asp?info=zhang_list&id=<%=rsab("id")%>"><font color=#006600><%=rsab("list_name")%></font></a></td>
<td><%if rsab("newviewname")<>"" then response.write (rsab("newviewname")) else response.write ("暂无更新") end if%></td>
<td align=center><a href="author_book.asp?info=view_go_cook&id=<%=rsab("id")%>">移动章节</a></td>
<td align=center><%if rsab("list_tai")="1" then response.write("转载中...") end if%>
<%if rsab("list_tai")="2" then response.write("连载中...") end if%>
<%if rsab("list_tai")="3" then response.write("出版中...") end if%>
<%if rsab("list_tai")="4" then response.write("已暂停...") end if%>
<%if rsab("list_tai")="5" then response.write("已停止...") end if%>
<%if rsab("list_tai")="6" then response.write("已完成...") end if%></td>
<td align=center>
<a href="author_book.asp?info=jjgg_edit&id=<%=rsab("id")%>">修改</a></td>
<td align=center>
<a href="author_book.asp?info=pinglun&id=<%=rsab("id")%>">管理</a></td>
</tr>
<%
rsab.movenext
loop
rsab.close
set rsab=nothing
%><%end if%></tbody>
</table>
</td>
</tr>
</table>
<%end sub%>
<!-------------------------------------------------------------------------------------->
<%Sub book_add()%> <%
typeid=request.QueryString("typeid")
CheckSqlnum(typeid)
if typeid="" then
set rs=server.createobject("adodb.recordset")
sql="select top 1 typeid from [list_type] order by typeid"
rs.open sql,conn,1,1
typeid=rs("typeid")
rs.close
set rs=nothing
end if
%>
<table cellspacing="1" cellpadding="4" width="100%" bgcolor="#ffffff" border="0">
<tr bgcolor="#588fc7">
<td colspan="4" class="head"><font color="#FFFFFF">发表新作</font></td>
</tr>
<tr bgcolor="#ffffff">
<td colspan="4">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#F7F7F7">
<form action="author_booksave.asp?info=book_add" method="post" name="myform" id="myform">
<table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#FFFFFF">
<tr bgcolor="#F7F7F7">
<td width="20%" height="25" align="right" valign="middle" bgcolor="#F7F7F7">
分类名称：<br>
</td>
<td width="30%">
<select name="classid" class="form" size="1" onchange="window.open('author_book.asp?info=book_add&typeid='+this.options[this.selectedIndex].value,'_self')">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from list_type"
rs.open sql,conn,1,1
Do while not rs.eof
response.write ("<option value='"&rs("typeid")&"'")
if cstr(rs("typeid"))=typeid then
response.write "selected"
end if
response.write " >"&rs("list_tpye")&"</option>"
rs.MoveNext
Loop
rs.close
%></select> ***</td>
<td width="20%" height="25" align="right" valign="middle" bgcolor="#F7F7F7">
小类名称：<br>
</td>
<td width="30%"><%if typeid<>"" then%>
<select name="list_lei" size="1" class="form"><%
sql="select * from list_class where list_typeid="&typeid
rs.open sql,conn,1,1
Do while not rs.eof
%>
<option value="<%=CStr(rs("list_classid"))%>" name="list_lei">
<%=rs("list_classname")%></option>
<%
rs.MoveNext
Loop
rs.close
else
%></select> *** <%end if%> </td>
</tr>
<tr bgcolor="#F7F7F7">
<td width="20%" height="25" align="right" valign="middle" bgcolor="#F7F7F7">
作品名称：<br>
</td>
<td width="30%">
<input name="list_name" type="text" id="list_name" size="25" class="form">
***</td>
<td width="20%" height="25" align="right" valign="middle" bgcolor="#F7F7F7">
检索字母：<br>
</td>
<td width="30%">
<select name="list_abc" class="form">
<option value="a">A/a</option>
<option value="b">B/b</option>
<option value="c">C/c</option>
<option value="d">D/d</option>
<option value="e">E/e</option>
<option value="f">F/f</option>
<option value="g">G/g</option>
<option value="h">H/h</option>
<option value="i">I/u</option>
<option value="j">J/j</option>
<option value="k">K/k</option>
<option value="l">L/l</option>
<option value="m">M/m</option>
<option value="n">N/n</option>
<option value="o">O/o</option>
<option value="p">P/p</option>
<option value="q">Q/q</option>
<option value="r">R/r</option>
<option value="s">S/s</option>
<option value="t">T/t</option>
<option value="u">U/u</option>
<option value="v">V/v</option>
<option value="w">W/w</option>
<option value="x">X/x</option>
<option value="y">Y/y</option>
<option value="z">Z/z</option>
<option value="0">其他</option>
</select> ***</td>
</tr>
<tr bgcolor="#F7F7F7">
<td width="20%" height="25" align="right" valign="middle" bgcolor="#F7F7F7">
作者名称：<br>
</td>
<td width="80%" colspan="3">
<input name="list_user" value="<%=author_Name%>" type="text" id="list_user" size="25" class="form">
***<br>
如果是转载作品请输入<font color="#FF0000">原作者名</font>称（<font color="#FF0000">如果经查证和原作者名不符将取消你的驻站作家资格</font>）</td>
</tr>
<tr bgcolor="#F7F7F7">
<td width="20%" height="25" align="right" valign="middle" bgcolor="#F7F7F7">
最新图片：<br>
</td>
<td width="80%" colspan="3">
<input name="pic" type="text" id="pic" size="50" class="form"></td>
</tr>
<tr bgcolor="#F7F7F7">
<td width="20%" height="25" align="right" valign="middle" bgcolor="#F7F7F7">
作品状态：<br>
</td>
<td width="80%" colspan="3">
<select name="list_tai" class="form">
<option value="2">连载中...</option>
<option value="3">出版中...</option>
<option value="4">已暂停...</option>
<option value="5">已停止...</option>
<option value="6">已完成...</option>
</select> ***</td>
</tr>
<tr bgcolor="#F7F7F7">
<td width="20%" height="25" align="right" valign="middle" bgcolor="#F7F7F7">
人物名称或关键字：<br>
(用","隔开)<br>
</td>
<td width="80%" colspan="3">
<input name="key" type="text" id="key" size="35" class="form">
***</td>
</tr>
<tr bgcolor="#F7F7F7">
<td width="20%" height="25" align="right" valign="middle" bgcolor="#F7F7F7">
作品公告：<br>
(不能超过800字)<br>
</td>
<td width="80%" colspan="3">
<textarea name="list_news" cols="80" rows="8" class="form" id="list_news">暂时尚未添加，请等待更新。............</textarea></td>
</tr>
<tr bgcolor="#F7F7F7">
<td width="20%" height="25" align="right" valign="middle" bgcolor="#F7F7F7">
内容介绍：<br>
(不能超过1500字)<br>
</td>
<td width="80%" colspan="3">
<textarea name="list_all" cols="80" rows="10" class="form" id="list_all">暂时尚未添加，请等待更新。............</textarea>
***</td>
</tr>
<tr align="center" valign="bottom" bgcolor="#F7F7F7">
<td height="25" colspan="4">
<input type="submit" class="button" value="确认发表">
<input type="reset" class="button" value="清除重写"></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%end sub%>
<!-------------------------------------------------------------------------------------->
<%Sub jie_add()
Server.ScriptTimeOut=56000 '设定操作超时的时间（因为程序运行速度慢啊）
list_cookid=CheckSql(request("id"))
CheckSqlnum(list_cookid)
list_cookid=int(list_cookid)
set rs=server.CreateObject("adodb.recordset")
sql="select list_cookname,list_bookid,list_cookid from list_cook where list_cookid="&list_cookid
rs.open sql,conn,1,1
list_cookname=rs("list_cookname")
list_bookid=rs("list_bookid")
list_cookid=rs("list_cookid")
rs.close
set rs=nothing
set rs3=server.createobject("adodb.recordset")
sql="select list_name,list_class,list_Adminid from list_book where id="&list_bookid
rs3.open sql,conn,1,1
if rs3("list_Adminid")<>author_ID then
Response.Write ("<script>alert(' 操作错误!\n\n 你没有权限管理该作品。');history.back();</script>")
Response.end
End If
list_name=rs3("list_name")
classid=rs3("list_class")
rs3.close
set rs3=nothing
set rs2=server.createobject("adodb.recordset")
sql2="select list_tpye from list_type where typeid="&classid
rs2.open sql2,conn,1,1
list_tpye=rs2("list_tpye")
rs2.close
set rs2=nothing
%><table cellspacing="1" cellpadding="4" width="100%" bgcolor="#ffffff" border="0">
<tr bgcolor="#588fc7">
<td colspan="4" class="head"><font color="#FFFFFF">添加章节</font></td>
</tr>
<tr bgcolor="#ffffff">
<td colspan="4">
<table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#FFFFFF">
<tr align="center" bgcolor="#F7F7F7">
<td height="40" colspan="4" valign="middle" bgcolor="#F7F7F7">
<span class="style2"><%=list_name%></span></td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -