author_bookadd.asp

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

<%
dim typeid,list_classid
typeid=request.QueryString("typeid")
CheckSqlnum(typeid)
if typeid="" then
set rs=server.createobject("adodb.recordset")
sql="select top 1 typeid from [list_type] order by typeid"
rs.open sql,conn,1,1
typeid=rs("typeid")
rs.close
set rs=nothing
end if
typeid=int(typeid)
%>
<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="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
			<tr>
				<td bgcolor="#F7F7F7">
				<form action="author_booksave.asp" method="post" name="myform" id="myform">
					<table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#FFFFFF">
						<tr bgcolor="#F7F7F7">
							<td width="20%" height="34" align="right" valign="middle" bgcolor="#F7F7F7">
							分类名称：<br>
							</td>
							<td width="30%">
							<select name="classid" class="form" size="1" onchange="window.open('author_bookadd.asp?typeid='+this.options[this.selectedIndex].value,'_self')">
							<%
set rs=server.createobject("adodb.recordset")
sql="select * from list_type"
rs.open sql,conn,1,1
Do while not rs.eof
%>
                <option value="<%=rs("typeid")%>"<%if typeid=rs("typeid") and typeid<>"" then%> selected<%end if%>>
													<%=rs("list_tpye")%></option>
							<%
rs.MoveNext
Loop
rs.close
%></select> ***</td>
							<td width="20%" height="34" align="right" valign="middle" bgcolor="#F7F7F7">
							小类名称：<br>
							</td>
							<td width="30%"><%if typeid<>"" then%>
							<select name="list_lei" size="1" class="form"><%
	sql="select * 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

else
%></select> *** <%end if%> </td>
						</tr>
						<tr bgcolor="#F7F7F7">
							<td width="20%" height="34" align="right" valign="middle" bgcolor="#F7F7F7">
							作品名称：<br>
							</td>
							<td width="30%">
							<input name="list_name" type="text" id="list_name" size="25" class="form"> 
							***</td>
							<td width="20%" height="34" align="right" valign="middle" bgcolor="#F7F7F7">
							检索字母：<br>
							</td>
							<td width="30%">
							<select name="list_abc" class="form">
							<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> ***</td>
						</tr>
						<tr bgcolor="#F7F7F7">
							<td width="20%" height="34" align="right" valign="middle" bgcolor="#F7F7F7">
							作者名称：<br>
							</td>
							<td width="80%" colspan="3">
							<input name="list_user" value="<%=author_Name%>" type="text" id="list_user" size="25" class="form"> 
							***<br>如果是转载作品请输入<font color="#FF0000">原作者名</font>称（<font color="#FF0000">如果经查证和原作者名不符将取消你的驻站作家资格</font>）</td>
						</tr>
						<tr bgcolor="#F7F7F7">
							<td width="20%" height="34" align="right" valign="middle" bgcolor="#F7F7F7">
							最新图片：<br>
							</td>
							<td width="80%" colspan="3">
							<input name="pic" type="text" id="pic" size="50" class="form"></td>
						</tr>
						<tr bgcolor="#F7F7F7">
							<td width="20%" height="34" align="right" valign="middle" bgcolor="#F7F7F7">
							作品状态：<br>
							</td>
							<td width="80%" colspan="3">
							<select name="list_tai" class="form">
							<option value="2">连载中...</option>
							<option value="3">出版中...</option>
							<option value="4">已暂停...</option>
							<option value="5">已停止...</option>
							<option value="6">已完成...</option>
							</select> ***</td>
						</tr>
						<tr bgcolor="#F7F7F7">
							<td width="20%" height="34" align="right" valign="middle" bgcolor="#F7F7F7">
							人物名称或关键字：<br>
							(用&quot;,&quot;隔开)<br>
							</td>
							<td width="80%" colspan="3">
							<input name="key" type="text" id="key" size="35" class="form"> 
							***</td>
						</tr>
						<tr bgcolor="#F7F7F7">
							<td width="20%" height="34" align="right" valign="middle" bgcolor="#F7F7F7">
							作品公告：<br>
							(不能超过800字)<br>
							</td>
							<td width="80%" colspan="3">
							<textarea name="list_news" cols="80" rows="8" class="form" id="list_news">暂时尚未添加，请等待更新。............</textarea></td>
						</tr>
						<tr bgcolor="#F7F7F7">
							<td width="20%" height="34" align="right" valign="middle" bgcolor="#F7F7F7">
							内容介绍：<br>
							(不能超过1500字)<br>
							</td>
							<td width="80%" colspan="3">
							<textarea name="list_all" cols="80" rows="10" class="form" id="list_all">暂时尚未添加，请等待更新。............</textarea> 
							***</td>
						</tr>
						<tr align="center" valign="bottom" bgcolor="#F7F7F7">
							<td height="34" colspan="4">
							<input type="submit" class="button" value="确认发表"> 
							　 <input type="reset" class="button" value="清除重写"></td>
						</tr>
					</table>
				</form>
				</td>
			</tr>
		</table>
		</td>
	</tr>
</table>