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

📄 admin_newsadd.asp

📁 新闻发布系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
    wend
    rs.close
	set rs=nothing
%>
                            </select>
                            <font color="#FF0000"><a href="admin_key.asp" target="_self"><font color="#FF0000">管理</font></a></font></td>
                        </tr>
                        <tr bgcolor="#E8FFE1"> 
                          <td> <div align="right">新闻作者:</div></td>
                          <td colspan="2"> <input type="text" name="Author" size="10"> 
                            <select name="Author1" id="select7" onChange=Doauthsite(this.options[this.selectedIndex].value)>
                              <option value="" selected> </option>
                              <%
    set rs = server.createobject("adodb.recordset")
    rs.source = "select * from sourcea where Settype=2 order by id desc "
    rs.open rs.source,conn,1,1
    while not rs.eof
%>
                              <option value="<%=rs("sourcea")%>"><%=rs("sourcea")%></option>
                              <%
    rs.movenext
    wend
    rs.close
	set rs=nothing
%>
                            </select>
                            <a href="admin_author.asp" target="_self"><font color="#FF0000">管理</font></a></td>
                        </tr>
                        <tr bgcolor="#E8FFE1"> 
                          <td> <div align="right">新闻来源:</div></td>
                          <td colspan="2"> <input name="Source" type="text" id="Source2" size="10"> 
                            <select name="Source1" id="select8" onChange=Dosusite(this.options[this.selectedIndex].value)>
                              <option value="" selected> </option>
                              <%
    set rs = server.createobject("adodb.recordset")
    rs.source = "select * from sourcea where Settype=1 order by id desc "
    rs.open rs.source,conn,1,1
    while not rs.eof
%>
                              <option value="<%=rs("sourcea")%>"><%=rs("sourcea")%></option>
                              <%
    rs.movenext
    wend
    rs.close
	set rs=nothing
%>
                            </select>
                            <a href="admin_source.asp" target="_self"><font color="#FF0000">管理</font></a> 
                          </td>
                        </tr>
                      </table>
                    </div></td>
                  <td width="69%" valign="top" bgcolor="#F7FFF4" > 
                    <%Call img%>
                  </td>
                </tr>
                <tr> 
                  <td valign="top" bgcolor="#F7FFF4" > <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
                      <tr> 
                        <td height="312"> <script language="JavaScript">
		   document.write ('<iframe src="Textbox.asp" id="message" width=98% height=99% align=center></iframe>')
           frames.message.document.designMode = "On";
        
</script> <br> </td>
                      </tr>
                    </table>
                      在新闻要分页的地方请用<font color="#FF0000">[page] <font color="#000000">手工分页,否则系统将自动分页,带有表格的新闻不分页</font></font></td>
                </tr>
                <tr align="center"> 
                  <td height="2" colspan="2" bgcolor="#F7FFF4"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr> 
                        <td height="4" bgcolor="#F7FFF4"></td>
                      </tr>
                    </table>
                    <table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr> 
                        <td height="2"></td>
                      </tr>
                    </table>
                    <table width="99%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#43CE00">
                      <tr bgcolor="#F7FFF4" valign="middle"> 
                        <td bgcolor="#F7FFF4"><div align="right">选择生成文件格式:</div></td>
                        <td align="center" bgcolor="#F7FFF4"><div align="left"> 
                            <input name="FilenameG" type="radio" value="1" checked>
                            152424.html 
                            <input type="radio" name="FilenameG" value="2">
                            10-05-02.html </div></td>
                        <td align="center" bgcolor="#F7FFF4"><div align="right">是否保存远程图片到服务上:</div></td>
                        <td align="center" bgcolor="#F7FFF4"><div align="left"> 
                            <select name="RemoteUrl" id="RemoteUrl">
                              <option value="1">是</option>
                              <option value="2" selected>否</option>
                            </select>
                            <font color="#0000FF">选择&quot;是&quot;添加新闻速度会减慢</font></div></td>
                      </tr>
                      <tr bgcolor="#F7FFF4" valign="middle"> 
                        <td width="17%"> <div align="right">责任编辑:</div></td>
                        <td width="28%" align="center"> <div align="left"> <font color="#FF0000"> 
                            <input type="text" name="Editer" size="15">
                            </font></div>
                          <div align="right"></div>
                          <div align="right"></div></td>
                        <td width="23%" align="center"> <div align="right">初始浏览量:</div></td>
                        <td width="32%" align="center" bgcolor="#F7FFF4"> <div align="left"> 
                            <input type="text" name="click" size="10" value="0" onBlur="isclick()">
                          </div></td>
                      </tr>
                      <tr bgcolor="#F7FFF4" valign="middle"> 
                        <td> <div align="right">录入日期:</div></td>
                        <td colspan="3" align="center"> <div align="left"> 
                            <input type="text" name="Date" size="10" value=<%=Now()%>>
                            <font color="#0000FF">格式:2003-8-6 </font></div></td>
                      </tr>
                      <tr bgcolor="#F7FFF4" valign="middle"> 
                        <td> <div align="right">设置排行榜TOP数:</div></td>
                        <td colspan="3" align="center"> <div align="left"> 
                            <input name="topjs" type="text" id="topjs4" value="10" size="15">
                          </div></td>
                      </tr>
                      <tr bgcolor="#F7FFF4" valign="middle"> 
                        <td colspan="4"></td>
                      </tr>
                      <tr bgcolor="#F7FFF4" valign="middle"> 
                        <td> <div align="right">添加到并排新闻中:</div></td>
                        <td colspan="3" align="center"> <div align="left"> 
                            <input type="radio" name="bingpai" value="true">
                            <input name="bingpai" type="radio" value="false" checked>
                            否  <font color="#0000FF">注:让新闻标题并列排放在一行,前台调用代码为:<font color="#FF0000">http://目录/<font color="#0000FF">Otherjs/</font>Bpjs/Bp_news.js</font></font></div></td>
                      </tr>
                      <tr bgcolor="#F7FFF4" valign="middle"> 
                        <td> <div align="right">显示到字幕新闻中:</div></td>
                        <td colspan="3" align="center"> <div align="left"> 
                            <input name="zimu" type="radio" value="true">
                            <input name="zimu" type="radio" value="false" checked>
                            否  <font color="#0000FF">注:让新闻显示于滚动新闻中,前台调用代码为:<font color="#FF0000">http://目录/Otherjs/Marquee.js</font></font></div></td>
                      </tr>
                      <tr bgcolor="#F7FFF4" valign="middle"> 
                        <td> <div align="right">是否需要显示新闻评论:</div></td>
                        <td colspan="3" align="center"> <div align="left"><font color="#0033FF"> 
                            <input name="plxs" type="radio" value="true" checked>
                            <font color="#000000">是 
                            <input name="plxs" type="radio" value="false">
                            否</font>  如果选择否,将不生成评论文件</font></div></td>
                      </tr>
                      <tr bgcolor="#F7FFF4" valign="middle"> 
                        <td> <div align="right">新闻是否经过审核:</div></td>
                        <td colspan="3" align="center"> <div align="left"> 
                            <%
					  set rsc = server.createobject("adodb.recordset")
                      sqlc = "select * from config "
                      rsc.open sqlc,conn,1,1
					  %>
                            <%if rsc("check")=true then 
					  response.Write("<font color=red>管理员设置为需要验证</font><input name=""check"" type=""radio"" style=""display:none"" value=""true"" checked>")
					  else
					  response.write(" <input name=""check""type=""radio"" value=""true""> 是 <input name=""check""type=""radio"" value=""false"" checked>否")
					  end if
					  %>
                             <font color="#0000FF">如果管理设置了新闻审核,录入人员添加新闻必须要通过审核</font></div></td>
                      </tr>
                    </table>
                    <table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr> 
                        <td height="6"></td>
                      </tr>
                    </table></td>
                </tr>
              </table></td>
          </tr>
          <tr>
            <td valign="top" bgcolor="#F7FFF4">&nbsp;</td>
          </tr>
        </table>
        <div align="center">
          <input name="submit" type="submit"  class=Anbut1 onClick="document.form.Content.value = frames.message.document.body.innerHTML;" value=" 添 加 ">
          <input name="reset" type="reset" class=Anbut1 onClick="return resetText()" value=" 还 原 ">
          <input name="reset" type="button" class=Anbut1 value=" 预 览">
          <!--#include file = name.asp-->
        </div></td>
    </tr>
  </table>
  
</form><script>
function Checkpi(){
if (document.form.pi.checked == true) {
        pi.style.display = "";
}else{
        pi.style.display = "none";

}
}
</script>
<script>
function Checkupbox(){
if (document.form.Upb.checked == true) {
        Upb.style.display = "";
}else{
        Upb.style.display = "none";

}
}
</script>
<script>
function Checkpititle(){
if (document.form.pititle.checked == true) {
        pititle.style.display = "none";
}else{
        pititle.style.display = "";

}
}
</script>

⌨️ 快捷键说明

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