author_bookjieedit.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)
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('   操作错误!\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
%> <%if rs("view_SaveToTXT")=1 then
dim viewRootFolder,view_localpath0,view_localpath1,view_localpath2,view_localpath3,view_localpath,viewFolder,viewFolder1,view_localpathTXT

viewRootFolder="HTML/" 'HTML存放目录
view_localpath0=""&left(b_id,2)&"" '一级分类目录
view_localpath1=""&left(b_id,4)&"" '二级分类目录
view_localpath2=""&left(b_id,6)&"" '作品分类目录
view_localpath3=""&b_id&"" '作品目录
view_localpath=view_localpath0&"/"&view_localpath1&"/"&view_localpath2&"/"&view_localpath3&"/"
viewFolder = viewRootFolder&""&view_localpath
view_localpathTXT="TXT"
viewFolder1=viewFolder&""&view_localpathTXT

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

'---------------操作地址 

Set FSO=server.createobject("scripting.filesystemobject") 
filepath=server.MapPath(""&viewFolder1&"") './记录本存放的文件夹 

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 
Response.Write (""&TS.ReadLine&"") 
'response.write("<br>") 
loop 

Set TS = Nothing 
Set FSO = Nothing 
end function 
%><%
dim filename 
filename=""&id&".TXT"
%>
<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="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#A4CEE4" bordercolordark="#FFFFFF">
			<form action="author_bookjie_edit.asp?id=<%=id%>" method="post" name="myform" id="myform">
				<tr>
					<td width="15%" height="34" align="right" valign="middle">章节名称：<br>
					</td>
					<td width="85%">
					<input name="view_type" type="text" id="view_type" value="<%=rs("view_type")%>" size="40" class="form"></td>
				</tr>
				<tr>
					<td align="center" colspan="2">
					<textarea name="view_ok2" style="display:none"><%readfile(filename)%></textarea></td>
				</tr>
				<tr align="center" valign="bottom">
					<td height="34" colspan="4">
					<input type="submit" class="button" value="下一步"> 　 
					<input type="reset" class="button" value="重 置"></td>
				</tr>
			</form>
		</table>
		</form>
		</td>
	</tr>
</table>
<%else%>
<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('10000');
var disablepostctrl = parseInt('0');
function checklength(theform) {
if (postmaxchars != 0) { message = "系统限制: "+postminchars+" 到 "+postmaxchars+" 字节"; }
else { message = ""; }
alert("\n当前长度: "+theform.message.value.length+" 字节\n\n"+message);
}
function validate(theform) {
if (theform.message.value == "" && theform.subject.value == "") {
alert("请完成章节名称或章节内容栏。");
return 0;
} else if (theform.subject.value.length > 200) {
alert("您的章节名称超过 200 个字符的限制。");
return 0;
}
if (!disablepostctrl && ((postminchars != 0 && theform.message.value.length < postminchars) || (postmaxchars != 0 && theform.message.value.length > postmaxchars))) {
alert("章节内容长度不符合要求。\n\n当前长度: "+theform.message.value.length+" 字节\n系统限制: "+postminchars+" 到 "+postmaxchars+" 字节");
return 0;
}			
theform.replysubmit.disabled = 1;
return 1;
}
</script>
<form action="" method="post" name="input" onsubmit="return validate(this)">
<script language="JavaScript">
var text_input = "请输入内容!";
var help_mode = "CnEndcode 代码 - 帮助信息\n\n点击相应的代码按钮即可获得相应的说明和提示";
var adv_mode = "CnEndcode 代码 - 直接插入\n\n点击代码按钮后不出现提示即直接插入相应代码";
var normal_mode = "CnEndcode 代码 - 提示插入\n\n点击代码按钮后出现向导窗口帮助您完成代码插入";
var fontsize_help = "设置字号\n\n将标签所包围的文字设置成指定字号。\n例如：[size=3]文字大小为 3[/size]";
var fontsize_normal = "请输入要设置为指定字号的文字。";
var font_help = "设定字体\n\n将标签所包围的文字设置成指定字体。\n例如：[font=仿宋]字体为仿宋[/font]";
var font_normal = "请输入要设置成指定字体的文字。";
var bold_help = "插入粗体文本\n\n将标签所包围的文本变成粗体。\n例如：[b]粗体文字[/b]";
var bold_normal = "请输入要设置成粗体的文字。";
var italicize_help = "插入斜体文本\n\n将标签所包围的文本变成斜体。\n例如：[i]斜体文字[/i]";
var italicize_normal = "请输入要设置成斜体的文字。";
var quote_help = "插入引用\n\n将标签所包围的文本作为引用特殊显示。\n例如：[quote]CnEndWeb 是由终点（劉剡灝/劉龑灝/刘