admin_bookedit_jie.asp

功能强大 首发! 演示地址:http://jsice.com QQ:3300828 运行环境： Internet Information Server 5.x or 6.0 （ii

			<option value selected>- 字号 -</option>
			<option value="8pt">8pt</option>
			<option value="9pt">9pt</option>
			<option value="10pt">10pt</option>
			<option value="11pt">11pt</option>
			<option value="12pt">12pt</option>
			<option value="14pt">14pt</option>
			<option value="16pt">16pt</option>
			<option value="18pt">18pt</option>
			<option value="20pt">20pt</option>
			<option value="22pt">22pt</option>
			<option value="24pt">24pt</option>
			<option value="26pt">26pt</option>
			<option value="28pt">28pt</option>
			<option value="32pt">32pt</option>
			<option value="36pt">36pt</option>
			<option value="48pt">48pt</option>
			<option value="72pt">72pt</option>
			</select>
			<select onchange="if(this.options[this.selectedIndex].value) {chcolor(this.options[this.selectedIndex].value); this.options[0].selected=true;}" size="1" name="color">
			<option value selected>- 颜色 -</option>
			<option style="COLOR: white" value="White">White</option>
			<option style="COLOR: black" value="Black">Black</option>
			<option style="COLOR: red" value="Red">Red</option>
			<option style="COLOR: yellow" value="Yellow">Yellow</option>
			<option style="COLOR: pink" value="Pink">Pink</option>
			<option style="COLOR: green" value="Green">Green</option>
			<option style="COLOR: orange" value="Orange">Orange</option>
			<option style="COLOR: purple" value="Purple">Purple</option>
			<option style="COLOR: blue" value="Blue">Blue</option>
			<option style="COLOR: beige" value="Beige">Beige</option>
			<option style="COLOR: brown" value="Brown">Brown</option>
			<option style="COLOR: teal" value="Teal">Teal</option>
			<option style="COLOR: navy" value="Navy">Navy</option>
			<option style="COLOR: maroon" value="Maroon">Maroon</option>
			<option style="COLOR: limegreen" value="LimeGreen">LimeGreen
			</option>
			</select> <br>
			<br>
			<a href="javascript:bold()">
			<img alt="插入粗体文本" src="../images/bb_bold.gif" border="0"></a>
			<a href="javascript:italicize()">
			<img alt="插入斜体文本" src="../images/bb_italicize.gif" border="0"></a>
			<a href="javascript:underline()">
			<img alt="插入下划线" src="../images/bb_underline.gif" border="0"></a>
			<a href="javascript:strike()">
			<img alt="插入删除线" src="../images/bb_strike.gif" border="0"></a>
			<a href="javascript:hr()">
			<img alt="插入水平线" src="../images/bb_hr.gif" border="0"></a>
			<a href="javascript:sup()">
			<img alt="上标" src="../images/bb_sup.gif" border="0"></a>
			<a href="javascript:sub()">
			<img alt="下标" src="../images/bb_sub.gif" border="0"></a>
			<a href="javascript:left()">
			<img alt="居左对齐" src="../images/bb_left.gif" border="0"></a>
			<a href="javascript:center()">
			<img alt="居中对齐" src="../images/bb_center.gif" border="0"></a>
			<a href="javascript:right()">
			<img alt="居右对齐" src="../images/bb_right.gif" border="0"></a>
			<a href="javascript:image()">
			<img alt="插入图像" src="../images/bb_image.gif" border="0"></a>
			<a href="javascript:flash()">
			<img alt="插入 flash" src="../images/bb_flash.gif" border="0"></a>
			<a href="javascript:quote()">
			<img alt="插入引用" src="../images/bb_quote.gif" border="0"></a></td>
		</tr>
		<tr>
			<td width="15%" height="34" align="right" valign="middle">是否通过验证：<br>
			</td>
			<td width="35%">
			<input type="radio" name="view_lock" value="0" <%if rs("view_lock")=0 then response.write " checked" end if%>> 
			通过 
			<input name="view_lock" type="radio" value="1" <%if rs("view_lock")=1 then response.write " checked" end if%>> 
			不通过</td>
			<td width="15%" height="34" align="right" valign="middle">是否为<font color="#FF0000">VIP章节</font>：<br>
			</td>
			<td width="35%">
			<input type="radio" name="view_IsVip" value="1" <%if rs("view_isvip")=1 then response.write " checked" end if%>> 
			是 
			<input name="view_IsVip" type="radio" value="0" <%if rs("view_isvip")=0 then response.write " checked" end if%>> 
			否</td>
		</tr>
		<tr>
			<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%><br>
			<iframe border="0" frameBorder="0" noResize scrolling="no" src="Admin_upload.asp?info=Bookview" name="a" height="35" width="460"></iframe></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>

</body>

</html>