⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 admin_book.asp

📁 本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置、MSSQL/MySQL数据库方面的专业问题请自行解决。 本人仅提供本系统相关的一些技术问题的解释、解答。
💻 ASP
📖 第 1 页 / 共 5 页
字号:
				<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="panel">
					<tr>
						<td width="20%" height="22" align="right" class="alt2">分类名称:<br>
						</td>
						<td width="30%" class="alt1">
						<div class="select"><div><select name="classid" class="form" size="1" onchange="window.open('admin_book.asp?info=bookadd&amp;typeid='+this.options[this.selectedIndex].value,'_self')">
						<%set rs=server.createobject("adodb.recordset")
						sql="select typeid,list_tpye from list_type order by typeid"
						rs.open sql,conn,1,1
							Do while not rs.eof%>
							<option<%if typeid=cstr(rs("typeid")) and typeid<>"" then%> selected<%end if%> value="<%=Cstr(rs("typeid"))%>">
							<%=rs("list_tpye")%></option> <%rs.MoveNext
						Loop
						rs.close%></select></div></div> ***</td>
						<td width="20%" height="22" align="right" class="alt2">小类名称:</td>
						<td width="30%" class="alt1"><%if typeid<>"" then%><div class="select"><div><select name="list_lei" size="1" class="form">
						<%
						sql="select list_classid,list_classname 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
							set rs=nothing
							else%></select></div></div><%end if%> *** </td>
					</tr>
					<tr>
						<td width="20%" height="22" align="right" class="alt2">作品名称:<br>
						</td>
						<td width="30%" class="alt1">
						<input name="list_name" type="text" id="list_name" size="20" class="form"> 
						***</td>
						<td width="20%" height="22" align="right" class="alt2">检索字母:<br>
						</td>
						<td width="30%" class="alt1">
						<div class="select"><div><select name="list_abc" class="form">
						<option value="9">自动判断</option>
						<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></div></div> ***</td>
					</tr>
					<tr>
						<td width="20%" height="45" align="right" class="alt2" style="line-height:150%;">
						作品作者:<br>
						</td>
						<td width="30%" class="alt1">
						<input name="list_user" type="text" id="list_user" size="20" class="form"> 
						***<br>
						<br>
						输入原作者</td>
						<td width="20%" height="39" align="right" class="alt2">归作品更新员:<br>
						<br>
						归驻站作家:<br>
						</td>
						<td width="30%" class="alt1">
						<div class="select"><div><select name="list_userid" class="form" size="1">
						<option selected value="0">不设置...</option>
						<%set rs=server.createobject("adodb.recordset")
						sql="select id,NAME from Userinfo where GOGXuser=1 order by id"
						rs.open sql,conn,1,1
							Do while not rs.eof%>
						<option value="<%=rs("id")%>"><%=rs("NAME")%></option>
						<%rs.MoveNext
						Loop
						rs.close
						set rs=nothing%></select></div></div>进行更新<br>
						<br>
						<div class="select"><div><select name="list_Adminid" class="form" size="1">
						<option selected value="0">不设置...</option>
						<%set rs=server.createobject("adodb.recordset")
						sql="select Author_ID,author_Name from Author where author_addpost=1 order by Author_ID"
						rs.open sql,conn,1,1
							Do while not rs.eof%>
						<option value="<%=rs("Author_ID")%>"><%=rs("author_Name")%>
						</option>
						<%rs.MoveNext
						Loop
						rs.close
						set rs=nothing%></select></div></div>进行管理<br>
						</td>
					</tr>
					<tr>
						<td width="20%" height="22" align="right" class="alt2">是否本站首发:<br>
						</td>
						<td width="30%" class="alt1">
						<input type="radio" name="list_sftai" value="1">是 
						<input name="list_sftai" type="radio" value="0" checked>否</td>
						<td width="20%" height="22" align="right" class="alt2">签约授权状态:<br>
						</td>
						<td width="30%" class="alt1">
						<div class="select"><div><select name="list_qianyue" class="form">
						<option value="尚未获取授权">尚未获取授权</option>
						<option value="正在获取授权">正在获取授权</option>
						<option value="已经获取授权">已经获取授权</option>
						<option value="独家授权转载">独家授权转载</option>
						<option value="本站独家连载">本站独家连载</option>
						<option value="本站特级签约">本站特级签约</option>
						<option value="本站一级签约">本站一级签约</option>
						<option value="本站二级签约">本站二级签约</option>
						<option value="本站三级签约">本站三级签约</option>
						</select></div></div></td>
					</tr>
					<tr>
						<td width="20%" height="22" align="right" class="alt2">最新图片:<br>
						</td>
						<td width="80%" class="alt1" colspan="3">
						<input name="pic" type="text" id="pic" size="50" class="form"><input name="attach" type="hidden">
						<input name="list_loadpic" type="checkbox" value="True">远程获取封面<br>
						<iframe border="0" frameborder="0" noresize scrolling="no" src="Admin_upload.asp?info=BookFace" name="a" height="25" width="450">
						</iframe></td>
					</tr>
					<tr>
						<td width="20%" height="22" align="right" class="alt2">作品状态:<br>
						</td>
						<td width="80%" class="alt1" colspan="3">
						<div class="select"><div><select name="list_tai" class="form">
						<option value="1">转载中...</option>
						<option value="2">连载中...</option>
						<option value="3">出版中...</option>
						<option value="4">已暂停...</option>
						<option value="5">已停止...</option>
						<option value="6">已完成...</option>
						</select></div></div> ***</td>
					</tr>
					<tr>
						<td width="20%" height="22" align="right" class="alt2">作品来源:<br>
						</td>
						<td width="80%" class="alt1" colspan="3">
						<input name="laiyuan" type="text" id="laiyuan" size="30" class="form"></td>
					</tr>
					<tr>
						<td width="20%" height="22" align="right" class="alt2">搜索关键字:<br>
						(用&quot;,&quot;隔开)<br>
						</td>
						<td width="80%" class="alt1" colspan="3">
						<input name="key" type="text" id="key" size="30" class="form"> 
						***</td>
					</tr>
					<tr>
						<td width="20%" height="22" align="right" class="alt2">内容介绍:<br>
						(不能超过1500字)<br>
						</td>
						<td width="80%" class="alt1" colspan="3">
						<textarea name="list_all" cols="55" rows="10" class="form" id="list_all">暂时尚未添加,请等待更新。............</textarea> 
						***</td>
					</tr>
					<tr>
						<td width="20%" height="22" align="right" class="alt2">作品公告:<br>
						(不能超过800字)<br>
						</td>
						<td width="80%" class="alt1" colspan="3">
						<textarea name="list_news" cols="55" rows="8" class="form" id="list_news">暂时尚未添加,请等待更新。............</textarea></td>
					</tr>
					<tr>
						<td width="20%" height="22" align="right" class="alt2">是否为<font color="#FF0000">VIP作品</font>:<br>
						</td>
						<td width="30%" class="alt1">
						<input type="radio" name="IsVip" value="1">是&nbsp;&nbsp; 
						<input name="IsVip" type="radio" value="0" checked>否</td>
						<td width="20%" height="22" align="right" class="alt2">是否精品推荐作品:<br>
						</td>
						<td width="30%" class="alt1">
						<input type="radio" name="IsGood" value="1">是&nbsp;&nbsp; 
						<input name="IsGood" type="radio" value="0" checked>否</td>
					</tr>
					<tr>
						<td width="20%" height="22" align="right" class="alt2">是否<font color="#FF0000">通过审核</font>:<br>
						</td>
						<td width="30%" class="alt1">
						<input name="Lock_book" type="radio" value="0" checked>通过 
						<input type="radio" name="Lock_book" value="1">不通过</td>
						<td width="20%" height="22" align="right" class="alt2">是否封面推荐作品:<br>
						</td>
						<td width="30%" class="alt1">
						<input type="radio" name="Isweb_good" value="1">是&nbsp;&nbsp; 
						<input name="Isweb_good" type="radio" value="0" checked>否</td>
					</tr>
					<tr>
						<td width="20%" height="22" align="right" class="alt2">是否锁定评论:<br>
						</td>
						<td width="30%" class="alt1">
						<input type="radio" name="Lock_lun" value="1">锁定 
						<input name="Lock_lun" type="radio" value="0" checked>不锁定</td>
						<td width="20%" height="22" align="right" class="alt2">是否强力推荐作品:<br>
						</td>
						<td width="30%" class="alt1">
						<input type="radio" name="listvv_good" value="1">是&nbsp;&nbsp; 
						<input name="listvv_good" type="radio" value="0" checked>否</td>
					</tr>
					<tr>
						<td width="20%" height="22" align="right" class="alt2">是否允许游客阅读:<br>
						</td>
						<td width="30%" class="alt1">
						<input type="radio" name="isuserread" value="0" checked>允许 
						<input name="isuserread" type="radio" value="1">不允许</td>
						<td width="20%" height="22" align="right" class="alt2">是否连载推荐作品:<br>
						</td>
						<td width="30%" class="alt1">
						<input type="radio" name="Islist_good" value="1">是&nbsp;&nbsp; 
						<input name="Islist_good" type="radio" value="0" checked>否</td>
					</tr>
				</table>
			</div>
			<div style="MARGIN-TOP: 6px;MARGIN-bottom: 6px" align="center">
				<input type="submit" class="button" value="确认发表">   
				<input type="reset" class="button" value="重置内容"></div>
			</td>
		</tr>
	</form>
</table>
<%end sub%>
<!-------------------------------------------------------------------------------------->
<%Sub bookedit()
cndb=request.querystring("cndb")
clid=request.querystring("clid")
key_keyword=request.querystring("key_keyword")
key_type=request.querystring("key_type")
page=request.querystring("page")
urltype=request.querystring("urltype")

id=request.QueryString("id")
set rs=server.createobject("adodb.recordset")
sql="select * from list_book where id="&id
rs.open sql,conn,1,3
if rs.eof and rs.bof then 
	response.write "<br>作品不存在!<br>"
else
typeids=cstr(rs("list_class"))
list_Classid=rs("list_lei")
if request.QueryString("typeids")<>"" then
typeids=request.QueryString("typeids")
end if
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr height="25">
		<td colspan="4" class="thead">作 品 修 改</td>
	</tr>
	<form action="admin_works.asp?info=book_edit&id=<%=id%>&urltype=<%=urltype%>&cndb=<%=cndb%>&clid=<%=clid%>&key_type=<%=key_type%>&key_keyword=<%=key_keyword%>&page=<%=Page%>" method="post" name="book_form">
		<tr>
			<td colspan="4" class="alt3">
			<div id="panx">
				<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="panel">
					<tr>
						<td width="20%" height="22" align="right" class="alt2">分类名称:<br>
						</td>
						<td width="30%" class="alt1">
						<div class="select"><div><select name="classid" class="form" size="1" onchange="window.open('admin_book.asp?info=bookedit&amp;id=<%=id%>&amp;typeids='+this.options[this.selectedIndex].value,'_self')">
						<%
set rs1=server.createobject("adodb.recordset")
sql1="select typeid,list_tpye from list_type"
rs1.open sql1,conn,1,1
Do while not rs1.eof
	response.write ("<option value='"&rs1("typeid")&"'")
	if cstr(rs1("typeid"))=typeids then

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -