author_bookjieedit.asp

功能介绍： 一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员

<%
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

id=CheckSql(request.querystring("id"))
CheckSqlnum(id)
id=int(id)
set rs=server.createobject("adodb.recordset")
sql="select * from [list_view] where id="&id
rs.open sql,conn,1,3
dim b_id
dim list_cookid
b_id=rs("view_id")
list_cookid=rs("list_cookid")
set rs3=server.createobject("adodb.recordset")
sql3="select list_name,list_class,list_Adminid from [list_book] where id="&b_id
rs3.open sql3,conn,1,3
if rs3("list_Adminid")<>author_ID then
	Response.Write ("<script>alert('CnEndWeb（终点）提醒：\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_cookname from [list_cook] where list_cookid="&list_cookid
rs2.open sql2,conn,1,1
list_cookname=rs2("list_cookname")
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">
	<script language="JavaScript">
var postminchars = parseInt('2');
var postmaxchars = parseInt('<%=viewsizeNum%>');
var disablepostctrl = parseInt('0');
function checklength(theform) {
if (postmaxchars != 0) { message = "系统限制: "+postminchars+" 到 "+postmaxchars+" 字节"; }
else { message = ""; }
alert("CnEndWeb（终点）提醒：\n当前长度: "+theform.message.value.length+" 字节\n\n"+message);
}
function validate(theform) {
if (theform.message.value == "" && theform.subject.value == "") {
alert("CnEndWeb（终点）提醒：\n请完成标题或内容栏。");
return false;
} else if (theform.subject.value.length > 200) {
alert("CnEndWeb（终点）提醒：\n您的标题超过 200 个字符的限制。");
return false;
}
if (!disablepostctrl && ((postminchars != 0 && theform.message.value.length < postminchars) || (postmaxchars != 0 && theform.message.value.length > postmaxchars))) {
alert("CnEndWeb（终点）提醒：\n内容长度不符合要求。\n\n当前长度: "+theform.message.value.length+" 字节\n系统限制: "+postminchars+" 到 "+postmaxchars+" 字节");
return false;
}			
theform.replysubmit.disabled = true;
return true;
}
</script>
<form action="" method="post" name="input" onsubmit="return validate(this)">
<script language="JavaScript" src="js/bbcode.js"></script>
			<table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#FFFFFF">
				<tr bgcolor="#F7F7F7">
					<td height="35" colspan="4" align="center"><font size="4"><%=list_name%></font></td>
				</tr>
				<tr bgcolor="#F7F7F7">
					<td width="15%" height="34" align="right" valign="middle" bgcolor="#F7F7F7">
					章节名称：<br>
					</td>
					<td width="35%">
					<input name="subject" type="text" id="subject" value="<%=rs("view_type")%>" size="40"></td>
					<td width="15%" align="right" valign="middle" bgcolor="#F7F7F7">
					所属分卷：<br>
					</td>
					<td width="35%" bgcolor="#F7F7F7"><%=list_cookname%><br>
					</td>
				</tr>
				<tr bgcolor="#F7F7F7">
					<td width="26%" height="34" valign="middle" align="right">CnEndcode 代码：<br>
			<input onclick="chmode('2')" type="radio" checked value="2" name="mode"> 
			提示插入&nbsp;&nbsp;&nbsp;&nbsp;<br>
			<input onclick="chmode('0')" type="radio" value="0" name="mode"> 直接插入&nbsp;&nbsp;&nbsp;&nbsp;<br>
			<input onclick="chmode('1')" type="radio" value="1" name="mode"> 帮助信息&nbsp;&nbsp;&nbsp;&nbsp;</td>
			<td width="74%" colspan="3"><!--#include file="../inc/ubbcode.asp"--></td>
				</tr>
				<tr bgcolor="#F7F7F7">
					<td width="15%" height="34" align="right" valign="top"><br><br>章节内容<a class="smalltxt" onclick="checklength(document.input)"> 
			[字数检查]</a>：<br></td>
					<td width="85%" colspan="3">
<%if rs("view_SaveToTXT")=1 then


viewFolder=SiteSystemPath&"HTML/"&rs("view_id")

function ReadFile(filename) 
on error resume next 
err.clear 
'ASP的一种校错方法 
Const ForReading = 2 
Const Create = false 
Dim FSO 
DIM TS 
DIM filepath 
DIM thefile 
Dim content 

'---------------操作地址 
Set FSO=server.createobject("scripting.filesystemobject") 
filepath=server.MapPath(""&viewFolder&"") './记录本存放的文件夹 

if err.number<>0 then 
response.Write "目录不存在" 
response.End 
end if 

'filename="test.txt" ---------test.txt为你从数据库里读出的文件名 
thefile=filepath&"/"&filename 
Set TS = FSO.OpenTextFile(thefile,1) 

do until Ts.AtEndOfStream 
txt=replace(replace(TS.ReadLine,"document.write('",""),"');","")
txt=htmlen(txt)
Response.Write (""&txt&"") 
loop 

Set TS = Nothing 
Set FSO = Nothing 
end function 

Foldername=rs("id")&".TXT"
%>
<textarea onkeydown="ctlent(event);" onkeyup="javascript: storeCaret(this);" style="WIDTH: 80%; WORD-BREAK: break-all" onclick="javascript: storeCaret(this);" tabindex="4" name="message" rows="18" onselect="javascript: storeCaret(this);"><%
readfile(Foldername)%></textarea>
<%else
if rs("view_get")<>0 and rs("view_ok2")<>"" then%>
<textarea onkeydown="ctlent(event);" onkeyup="javascript: storeCaret(this);" style="WIDTH: 80%; WORD-BREAK: break-all" onclick="javascript: storeCaret(this);" tabindex="4" name="message" rows="18" onselect="javascript: storeCaret(this);">
<%response.write htmlen(rs("view_ok2"))%></textarea>
<%else
response.write "<p align='center'>章节内容尚未被采集或出现错误!!<br>你可以请选择【<a href='admin_bookloadpageview.asp?start="&id&"'>采集内容</a>】或直接输入内容:</p>"
response.write "<textarea onkeydown=""ctlent(event);"" onkeyup=""javascript: storeCaret(this);"" style=""WIDTH: 80%; WORD-BREAK: break-all"" onclick=""javascript: storeCaret(this);"" tabindex=""4"" name=""message"" rows=""18"" onselect=""javascript: storeCaret(this);""></textarea>"
end if%>
<%end if%></td>
				</tr>
				<tr align="center" valign="bottom" bgcolor="#F7F7F7">
					<td height="34" colspan="4">
					<input type="hidden" name="info" value="yes">
					<input type="submit" class="button" value="确认修改"> 　 
					<input type="reset" class="button" value="重置内容"> 【<a href="javascript:onclick=history.go(-1)">返回分卷列表</a>】</td>
				</tr>
			</table>
		</form>
		</td>
	</tr>
</table>
<%
if request.form("info")="" then
else
	if request.form("subject")="" then
		response.write "<script>alert('CnEndWeb（终点）提醒：\n\n名称不能为空!');history.back(-1);</script>"
		response.end
	end if
	if request.form("message")="" then
		response.write "<script>alert('CnEndWeb（终点）提醒：\n\n内容不能为空!');history.back(-1);</script>"
		response.end
	end if
	rs("view_type")=trim(request.form("subject"))
	rs("view_size")=Len(trim(request.form("message")))
	rs("view_date")=Now()
	rs("view_ok")=""
	rs("view_get")=1
	rs.update
	if IsSqlDataBase = 0 then
		bookid=rs("view_id")
		id1=rs("id")
	end if
	rs.close
	if IsSqlDataBase = 1 then
	rs.open sql,conn,1,1
		bookid=rs("view_id")
		id1=rs("id")
	rs.close
	end if
	set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select id,view_ok,view_ok2,view_get,view_SaveToTXT from [list_view] Where id="&id1
	rs.open sql,conn,1,3

	if SaveToTXT=1 then

		BookViewPath="HTML/"&bookid&"/"

		If Not CreateMultiFolder(SiteSystemPath & BookViewPath) Then
			Response.Write "<br><font color='red'><B>创建TXT存放目录失败，可能是由于服务器限制！！</B></font>"&SiteSystemPath & BookViewPath&"<br>"
			rs("view_SaveToTXT")=0
			rs("view_ok2")=htmlencode(request.form("message"))
		else

			file=server.mappath( SiteSystemPath & BookViewPath&id1&".TXT" )
			view_view_ok="document.write('"
			view_view_ok=view_view_ok&""&htmlencode(request.form("message"))&""
			view_view_ok=view_view_ok&"');"
			Set fso = Server.CreateObject("Scripting.FileSystemObject")
			Set fout = fso.Createtextfile(file,true)
			fout.writeline view_view_ok
			fout.close
			set fso=nothing
			rs("view_SaveToTXT")=1
			rs("view_ok")="/"&BookViewPath&strFileName&id1&".TXT"
			rs("view_ok2")=" "
		end if
	else
		rs("view_SaveToTXT")=0
		rs("view_ok2")=htmlencode(request.form("message"))
	end if
	rs.update
	rs.close
	set rs=nothing

	set rs_u=server.createobject("adodb.recordset")
	sql="select list_gxdate from [list_book] where id="&bookid&""
	rs_u.open sql,conn,1,3
		rs_u("list_gxdate")=now()
		rs_u.update
		rs_u.close
	set rs_u=nothing
	
if makehtml=1 then
MakeViewHtml(id1)
MakeindexHtml(bookid)
end if
if makeJS=1 then
temzxgx(zxgxNum)
end if

	response.write ("<script>alert('CnEndWeb（终点）提醒：\n\n作品章节修改成功！');history.back(-1);</script>")
response.end
end if
%>