📄 editshenhe.asp

📁 文学网采用飞翔网的内核和界面作了较大程度的修改和美化主要功能有： 1、界面美化 2、增加网文周榜和推荐作品 3、增加每个栏目图片和栏目的导读 4、增加推荐作品和会员文集 5、增加会员个人管理中心 6

💻 ASP

字号:

<!--#include file="chkstr.inc"-->  
<!--#include file="const.asp"-->
 <!--#include file="articleconn.asp"-->
 <%
IF not(Session("KEY")="super" or session("KEY")="check" ) THEN
	response.redirect "error.asp?id=065"
	response.end
END IF
%>

<html>
<head>
<title>风格写手-----&gt;审核文章</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
<!--
a:link       { text-decoration: underline; color: #000000; font-family: 宋体 }
a:visited    { text-decoration: underline; color: #000000; font-family: 宋体 }
a:hover      { text-decoration: underline; color: #cc0000 }
body {font-family: "宋体"; font-size: 9pt;line-height: 12pt;}
table {font-family: "宋体"; font-size: 9pt;line-height: 12pt;}
-->
</style>
</head>

<body bgcolor="#C0C0C0" text="#000000">
<TABLE cellSpacing=0 borderColorDark=#ffffff cellPadding=0  width="80%" align=center border=1 bordercolor="#454545">
        <form method="POST" action="shenheok.asp?id=<%=request("id")%>">
          <tr align="center"> 
            <td colspan="2">&nbsp;<b><font color="#FF0000">审 核 文 章 </font></b></td>  
          </tr>
          <tr> 
            <td width="20%" align="right">&nbsp;标题：</td>
            <td>&nbsp;   
              <%
dim sql
dim rs
set rs=server.createobject("adodb.recordset")
 sql="select * from shenhe where newsid="&request("id")
rs.open sql,conn,1,1
                %>
              <INPUT name="txttitle"  size=40   
      value="<%=rs("title")%>">
            </td>
          </tr>
          <tr> 
            <td align="right">&nbsp;内容：</td>
            <td>&nbsp;   
              <TEXTAREA id=content name=txtcontent rows=20 cols=60><%content=replace(rs("content"),"<br>",chr(13))
            content=replace(content,"&nbsp;"," ")
            content=replace(content,"<img src=","[sayyes]")
            content=replace(content,"></img>","[/sayyes]")
            response.write content%></TEXTAREA>
            </td>
          </tr>
          <tr> 
            <td align="right">&nbsp;栏目：</td>
            <td>&nbsp;  
              <select class="unnamed2" name="typeid" size="1"%>" style="border: 1px dotted #008000"> 
                <%                                     
dim rs1,sql1,sel                                     
 set rs1=server.createobject("adodb.recordset")                                     
  sql1="select * from type"                                     
 rs1.open sql1,conn,1,1                                     
			  do while not rs1.eof                                     
                              if rs1("type")=rs("type") then                                    
      sel="selected"               
   else
   sel=""
  end if                                         
		             response.write "<option " & sel & " value='"+CStr(rs1("typeID"))+"' name=typeid>"+rs1("type")+"</option>"+chr(13)+chr(10)                                     
		             rs1.movenext                                     
    		          loop                                     
			rs1.close                                     
			  %>
              </select> 
            </td>
          </tr>
          <tr> 
            <td width="20%" align="right">&nbsp;推荐：</td>
            <td>&nbsp;  
              <select name="tj" size="1">
  <option  value="★" name="tj">★</option>
  <option  value="★★" name="tj">★★</option>
  <option  selected  value="★★★" name="tj">★★★</option>
  <option  value="★★★★" name="tj">★★★★</option>
  <option  value="★★★★★" name="tj">★★★★★</option>
 </select>
            </td>
          </tr>
          <tr align="center"> 
            <td colspan="2"> 
              <input type="submit" value="审 核" name="cmdok" size="12" class=button4 onmousedown="document.forms[0].target='_self'" > <input type="reset" value="清 除"  style="cmdcancel" class=button4 ><script LANGUAGE="JavaScript">
function goHist(a) 
{
   history.go(a);   
}
                </script>

  <input TYPE="button" VALUE="&lt;--返回" onClick="goHist(-1)" class=button4>
            </td>
          </tr>
        </form>
      </table>
      <%
set rs=nothing
set rs1=nothing
 conn.close
set conn=nothing
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -