admin_shu.asp

1

Class_Rs.close
set Class_Rs=nothing%></td>
                   <td height="24" align="center"><a href="Admin_juan.asp?Sid=<%=rs("编号")%>"><%=rs("书名")%></a></td>
                   <td height="24" align="center"><a href="?key=<%=rs("作者")%>"><%=rs("作者")%></a></td>
                   <td height="24" align="center"><%
				   if rs("推荐")=0 then
				   response.Write "<a href=""?Action=TJ&G=1&sid="&rs("编号")&"""><font color=""#999999"">没有推荐</font></a>"
				   Elseif rs("推荐")=1 then
				   response.Write "<a href=""?Action=TJ&G=2&sid="&rs("编号")&"""><font color=""#CC9900"">编辑推荐</font></a>"
				   Elseif rs("推荐")=2 then
				   response.Write"<a href=""?Action=TJ&G=3&sid="&rs("编号")&"""><font color=""#CC3300"">潜 力 榜</font></a>"
				   Elseif rs("推荐")=3 then
				   response.Write"<a href=""?Action=TJ&G=0&sid="&rs("编号")&"""><font color=""#CC0000"">封面推荐</font></a>"
				   end if
				   %></td>
                   <td height="24" align="center"><%if rs("状态")=0 then
				   response.write"<a href=""?Action=ZT&G=1&sid="&rs("编号")&"""><font color=""#999999"">全文完</font></a>"
				   else
				   response.write"<a href=""?Action=ZT&G=0&sid="&rs("编号")&"""><font color=""red"">连载中</font></a>"
				   end if%></td>
                   <td height="24" align="center"><a href="?Sid=<%=rs("编号")%>&Action=Edit">修改</a></td>
                   <td height="24" align="center"><input name="page" type="hidden" id="page" value="<%=page%>" />
                     <input name="id" type="checkbox" id="id" value="<%=rs("编号")%>" /></td>
                 </tr>
<%rs.movenext
If rs.eof then exit for
next
rs.close
Set rs=nothing
%><tr class=KenQiao_Net_ds> <td height="24" colspan="6" align="center"><%
call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
If ClassId=0 And key="" And page<2 Then
conn.execute "UPDATE [系统设置] SET 小说数量="&iCount&""
End if
%></td>

                   <td height="24" align="center"><span class="13">
                     <input type="submit" name="Submit" value="删 除" onclick="return test();" />
                   </span></td>
                   <td height="24" align="center"><input type="checkbox" name="checkbox" value="Check All" onclick="mm()" /></td>
                 </tr></form>
            </table>
<%End if%>
            
            </td>
          </tr>
    </table>
<script>
function test()
{
  if(!confirm('确认删除吗？')) return false;
}
</script>
<script language=javascript>
function mm()
{
   var a = document.getElementsByTagName("input");
   if(a[0].checked==true){
   for (var i=0; i<a.length; i++)
      if (a[i].type == "checkbox") a[i].checked = false;
   }
   else
   {
   for (var i=0; i<a.length; i++)
      if (a[i].type == "checkbox") a[i].checked = true;
   }
}
</script>
<%
End sub
sub  FY_Shu_Add%>
<script language = 'JavaScript'>
function CheckForm(){
  if (document.myform.name.value==''){
     alert('小说名称不能为空！');
     document.myform.name.focus();
     return false;
  }
  if (document.myform.ClassId_Add.value==''){
     alert('请选择小说类别！');
     document.myform.ClassId_Add.focus();
     return false;
  }
  if (document.myform.content.value==''){
     alert('小说前言不能为空！');
     document.myform.pic.focus();
     return false;
  }
}
</script>
            <table align="center" width="100%" border="1" cellspacing="0" cellpadding="4" class=KenQiao_Net_bk style="border-collapse: collapse">
                   <form name="myform" method="post" action="Admin_Shu.asp?Action=Add_W" onSubmit="return CheckForm();">
                   <tr class=KenQiao_Net_ss> 
<td colspan="6">添加小说</td>
</tr><tr class=KenQiao_Net_ds>
                     <td height="24" align="right"><strong>小说名称：</strong></td>
                     <td colspan="3" align="left"><input name="name" type="text" id="name" maxlength="60" value="" size="60" /></td>
                   </tr>
                   
                   <tr class=KenQiao_Net_ds>
                     <td height="24" align="right"><strong>备注：</strong></td>
                     <td colspan="3" align="left"><input name="bz" type="text" id="bz" maxlength="100" value="" size="60" />　<a href="javascript:" onclick="document.myform.bz.value=''">清空</a></td>
                     </tr>
                     <tr class=KenQiao_Net_ds>
                     <td height="24" align="right"><strong>关键词：</strong></td>
                     <td colspan="3" align="left"><input name="GJC" type="text" id="GJC" maxlength="100" value="" size="60" />　<a href="javascript:" onclick="document.myform.GJC.value=''">清空</a> [用英文“，”号隔开可以留空]</td>
                     </tr>
                   <tr class=KenQiao_Net_ds>
                     <td width="79" height="24" align="right"><strong>小说类别：</strong></td>
                     <td width="127" align="left"><select name="ClassId_Add" id="ClassId_Add">
                     <option value="">请选择类别</option>
                            <%
							set Rs=server.createobject("adodb.recordset") 
   sql="select * from 分类 order by 排序 asc,编号 asc"
   Rs.open sql,conn,1,1
   do while not Rs.eof
%>                            <option value="<%=Rs("编号")%>"<%If FY_CLng(ClassId)=clng(rs("编号")) Then response.Write" selected" %>><%=Rs("分类名称")%></option>
                            <% 
   Rs.movenext
   loop
   Rs.close
   set Rs=nothing
%></select></td>
                     <td width="76" align="right"><strong>作者：</strong></td>
                     <td width="451" align="left"><input name="zz" type="text" id="zz" maxlength="20" value="<%=request("zz")%>" size="20" /></td>
                   </tr>
                   <tr class=KenQiao_Net_ds>
                     <td height="24" align="right"><strong>连载状态：</strong></td>
                     <td align="left"><select name="Shu_zt" id="Shu_zt">
                       <option value="0">全文完</option>
                       <option value="1">连载中</option>
                     </select></td>
                     <td align="right"><strong>推荐：</strong></td>
                     <td align="left"><select name="tj" id="tj">
                         <option value="0">不 推 荐</option>
                         <option value="1">编辑推荐</option>
						 <option value="2">潜 力 榜</option>
						 <option value="3">封面推荐</option>
                       </select></td>
                   </tr>
                   
                   <tr class=KenQiao_Net_ds>
                     <td height="24" align="right"><strong>浏览次数：</strong></td>
                     <td align="left"><input name="click" type="text" maxlength="5" id="click" size="5" onchange="if(/\D/.test(this.value)){alert('只能输入数字');this.value='';}" /> 
                       次                        </td>
                     <td align="right"><strong>书卷：</strong></td>
                     <td align="left">[系统自动获取]</td>
                   </tr>
                   <tr class=KenQiao_Net_ds>
                     <td height="24" align="right"><strong>封面图片：</strong></td>
                     <td colspan="3" align="left"><input name="pic" type="text" id="pic" maxlength="255" size="60" />
                     150×188px</td>
                   </tr>
                   <tr class=KenQiao_Net_ds>
                     <td height="24" align="right"><strong>图片上传：</strong></td>
                     <td colspan="3" align="left"><IFRAME name=upload_frame src="Upload/Upload.asp?t=shoppic" frameBorder=0 width="100%" scrolling=no height=25></IFRAME></td>
                   </tr>
                   <tr class=KenQiao_Net_ds>
                   <td height="380" align="right"><strong>小说前言：</td>
                   <td colspan="3" align="left"><textarea name="content" id="content" style="display:none"></textarea><iframe src="../editor/editor.htm?id=content&ReadCookie=0" frameBorder="0" marginHeight="0" marginWidth="0" scrolling="No"width="622" height="459"></iframe>
		</td>
                   </tr>
                   <tr class=KenQiao_Net_ds>
                     <td height="24" align="right"><strong>数据保存：</strong></td>
                     <td colspan="3" align="left"><input name="TXT" type="checkbox" id="sj" disabled value="TXT" /> TXT文件保存[<strong><font color="#FF0000">预设功能,此版本不可用</font></strong>]  <br>[没有选择则根据相关栏目的设置进行保存，如果您的栏目选择是TXT保存，则没有必要使用此功能]</td>
                     </tr>
                 <tr class=KenQiao_Net_ds>
                   <td height="30" colspan="4" align="center"><input name="submit1" type="submit" value=" 添 加 ">　　<input name="Submit2" type="button" class="button" onClick="history.go(-1)" value="返回上页"></td>
                   </tr>
                 </form>
            </table>
<%
end sub
sub  FY_Shu_edit
  set rs=server.createobject("adodb.recordset")
	sql="select * from [小说] where 编号="&Sid&""
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
	Call WriteErrMsg("<br>"+"<li>您所修改的小说书籍信息不存在，请不要通过非法路径进行修改信息！")
	Else
%>
<script language = 'JavaScript'>
function CheckForm(){
  if (document.myform.name.value==''){
     alert('小说名称不能为空！');
     document.myform.name.focus();
     return false;
  }
  if (document.myform.ClassId_Add.value==''){
     alert('请选择小说类别！');
     document.myform.ClassId_Add.focus();
     return false;
  }
  if (document.myform.content.value==''){
     alert('小说前言不能为空！');
     document.myform.pic.focus();
     return false;
  }
}
</script>
            <table align="center" width="100%" border="1" cellspacing="0" cellpadding="4" class=KenQiao_Net_bk style="border-collapse: collapse">
                   <form name="myform" method="post" action="Admin_Shu.asp?Action=Edit_W&Sid=<%=rs("编号")%>&YClass=<%=rs("类别")%>" onSubmit="return CheckForm();">
                   <tr class=KenQiao_Net_ss> 
<td colspan="6">修改小说</td>
</tr><tr class=KenQiao_Net_ds>
                     <td height="24" align="right"><strong>小说名称：</strong></td>
                     <td colspan="3" align="left"><input name="name" type="text" id="name" maxlength="60" value="<%=RS("书名")%>" size="60" /></td>
                   </tr>
                   
                   <tr class=KenQiao_Net_ds>
                     <td height="24" align="right"><strong>备注：</strong></td>
                     <td colspan="3" align="left"><input name="bz" type="text" id="bz" maxlength="100" value="<%=RS("备注名")%>" size="60" />　<a href="javascript:" onclick="document.myform.bz.value=''">清空</a></td>
                     </tr>
                     <tr class=KenQiao_Net_ds>
                     <td height="24" align="right"><strong>关键词：</strong></td>
                     <td colspan="3" align="left"><input name="GJC" type="text" id="GJC" maxlength="100" value="<%=RS("关键词")%>" size="60" />　<a href="javascript:" onclick="document.myform.GJC.value=''">清空</a> [用英文“，”号隔开可以留空]</td>
                     </tr>
                   <tr class=KenQiao_Net_ds>
                     <td width="79" height="24" align="right"><strong>小说类别：</strong></td>
                     <td width="127" align="left"><select name="ClassId_Add" id="ClassId_Add">
                     <option value="">请选择类别</option>
                            <%Dim TXT_C_Url,cRs
							set cRs=server.createobject("adodb.recordset") 
   sql="select 编号,分类名称,排序,TXT路径 from 分类 order by 排序 asc,编号 asc"
   cRs.open sql,conn,1,1
   do while not cRs.eof
%>                            <option value="<%=cRs("编号")%>"
<%If FY_CLng(RS("类别"))=clng(cRs("编号")) Then 
response.Write " selected" 
TXT_C_Url=cRs("TXT路径")
End if%>><%=cRs("分类名称")%></option>
   <% 
   cRs.movenext
   loop
   cRs.close
   set cRs=nothing
%></select></td>
                     <td width="76" align="right"><strong>作者：</strong></td>
                     <td width="451" align="left"><input name="zz" type="text" id="zz" maxlength="20" value="<%=RS("作者")%>" size="20" /></td>
                   </tr>
                   <tr class=KenQiao_Net_ds>
                     <td height="24" align="right"><strong>连载状态：</strong></td>
                     <td align="left"><select name="Shu_zt" id="Shu_zt">
                       <option value="0"<%If CLng(RS("状态"))=0 Then response.Write " selected"%>>全文完</option>
                       <option value="1"<%If CLng(RS("状态"))=1 Then response.Write " selected"%>>连载中</option>
                     </select></td>
                     <td align="right"><strong>推荐：</strong></td>
                     <td align="left"><select name="tj" id="tj">
                         <option value="0"<%If CLng(RS("推荐"))=0 Then response.Write " selected"%>>不 推 荐</option>
                         <option value="1"<%If CLng(RS("推荐"))=1 Then response.Write " selected"%>>编辑推荐</option>
						 <option value="2"<%If CLng(RS("推荐"))=2 Then response.Write " selected"%>>潜 力 榜</option>
						 <option value="3"<%If CLng(RS("推荐"))=3 Then response.Write " selected"%>>封面推荐</option>
                       </select></td>
                   </tr>
                   
                   <tr class=KenQiao_Net_ds>
                     <td height="24" align="right"><strong>浏览次数：</strong></td>
                     <td align="left"><input name="click" type="text" value="<%=RS("点击")%>" maxlength="5" id="click" size="5" onchange="if(/\D/.test(this.value)){alert('只能输入数字');this.value='';}" /> 
                       次                        </td>
                     <td align="right"><strong>书卷：</strong></td>
                     <td align="left"><strong><%=RS("书卷")%></strong> 卷</td>
                   </tr>
                   <tr class=KenQiao_Net_ds>
                     <td height="24" align="right"><strong>封面图片：</strong></td>
                     <td colspan="3" align="left"><input name="pic" value="<%=RS("图片")%>" type="text" id="pic" maxlength="255" size="60" />
                     150×188px</td>
                   </tr>
                   <tr class=KenQiao_Net_ds>
                     <td height="24" align="right"><strong>图片上传：</strong></td>
                     <td colspan="3" align="left"><IFRAME name=upload_frame src="Upload/Upload.asp?t=shoppic" frameBorder=0 width="100%" scrolling=no height=25></IFRAME></td>
                   </tr>
                   <tr class=KenQiao_Net_ds>
                   <td height="380" align="right"><strong>小说前言：</strong></td>
                   <td colspan="3" align="left"><textarea name="content" id="content" style="display:none"><%=TXT_N(RS("前言"),"Shu",RS("编号"),"../"&FY_Config(19)&"/"&TXT_C_Url)%></textarea><iframe src="../editor/editor.htm?id=content&ReadCookie=0" frameBorder="0" marginHeight="0" marginWidth="0" scrolling="No" width="622" height="459"></iframe>
		</td>
                   </tr>
                   <tr class=KenQiao_Net_ds>
                     <td height="24" align="right"><strong>数据保存：</strong></td>
                     <td colspan="3" align="left"><input name="YTXT" type="hidden" id="YTXT" value="<%If UCase(RS("前言"))=UCase("TXT") Then response.Write UCase("TXT")%>" /><input name="TXT" type="checkbox" id="sj" disabled value="TXT"<%If UCase(RS("前言"))=UCase("TXT") Then response.Write " checked"%> /> TXT文件保存[<strong><font color="#FF0000">预设功能,此版本不可用</font></strong>]<br>  [没有选择则根据相关栏目的设置进行保存，如果您的栏目选择是TXT保存，则没有必要使用此功能]</td>
                     </tr>
                 <tr class=KenQiao_Net_ds>
                   <td height="30" colspan="4" align="center"><input name="submit1" type="submit" value=" 添 加 ">　　<input name="Submit2" type="button" class="button" onClick="history.go(-1)" value="返回上页"></td>
                   </tr>
                 </form>
            </table>
<%
End if
rs.close
			set rs=nothing
end sub
call admin_footer()
%>
</body>
</html>