author_bookjjggedit.asp

本源代码为终点小说连载系统 v1.15 Build 0430 SQL清风修改版,欢迎大家下载,学习与交流

<%
id=replace(trim(request("id")),"'","")
CheckSqlnum(id)
if id="" then
response.Redirect "author_logout.asp"
response.End
end if
id=int(id)
%><table cellspacing="1" cellpadding="4" width="100%" bgcolor="#ffffff" border="0">
	<tr bgcolor="#588fc7">
		<td colspan="4"><font color="#FFFFFF">管理我更新的作品公告和简介</font></td>
	</tr>
	<tr bgcolor="#ffffff">
		<td colspan="4">
		<table width="100%" align="center" cellspacing="0">
			<form action method="post" name="myform" id="myform">
				<%
set rsab=server.createobject("adodb.recordset")
sqlab="select list_Adminid,list_all,list_news,list_name from [list_book] where id="&ID&" order by id desc"
rsab.open sqlab,conn,1,3
if rsab.eof and rsab.bof then
%>
				<tr align="center" valign="middle">
					<td height="24" colspan="6" class="style1"><b>作品不存在</b></td>
				</tr>
				<%else%> <%
if rsab("list_Adminid")<>author_ID then
	Response.Write ("<script>alert('   操作错误!\n\n 你没有权限管理该作品。');history.back();</script>")
	Response.end
End If
%>
				<tr align="center" valign="middle">
					<td height="24" colspan="6" class="style1"><b><%=rsab("list_name")%></b></td>
				</tr>
				<tr>
					<td width="20%" height="34" align="right" valign="middle">内容介绍：<br>
					(不能超过1500字)<br>
					</td>
					<td width="80%" colspan="3">
					<textarea name="list_all" cols="85" rows="9" class="form" id="list_all"><%=rsab("list_all")%></textarea></td>
				</tr>
				<tr>
					<td width="20%" height="34" align="right" valign="middle">作品公告：<br>
					(不能超过1500字)<br>
					</td>
					<td width="80%" colspan="3">
					<textarea name="list_news" cols="85" rows="8" class="form" id="list_news"><%=rsab("list_news")%></textarea></td>
				</tr>
				<tr align="center" valign="bottom">
					<td height="34" colspan="4">
					<input type="hidden" name="info" value="yes">
					<input type="submit" class="button" value="确认修改"> 　 
					<input type="reset" class="button" value="重 置"></td>
				</tr>
			</form>
			<%
if request.form("info")="" then
else
dim list_news,list_all
list_all=trim(request.Form("list_all"))
list_news=trim(request.Form("list_news"))
if list_all="" then
	response.write "<script language=javascript>alert('介绍不能为空!');history.back(-1);</script>"
	response.end
end if

if len(list_all) > 1500 then
	response.write "<script language=javascript>alert('作品介绍内容不能超过1500字!');history.back(-1);</script>"
	response.end
end if
if list_news="" then
	response.write "<script language=javascript>alert('公告不能为空!');history.back(-1);</script>"
	response.end
end if

if len(list_news) > 1500 then
	response.write "<script language=javascript>alert('作品公告内容不能超过1500字!');history.back(-1);</script>"
	response.end
end if
rsab("list_all")=list_all
rsab("list_news")=list_news
rsab.update
rsab.close
set rsab=nothing
	response.write "<script language=javascript>alert('作品公告和介绍修改成功！');location.href='author_bookjjggedit.asp?id="&id&"';</script>"
%><%end if%><%end if%>
		</table>
		</td>
	</tr>
</table>