📄 add.asp

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

💻 ASP

字号:

<!--#include file="const.asp"-->
<!--#include file="articleconn.asp"-->
<html>
<%username=request.querystring("username")
page=request.querystring("page")
Set rs = Server.CreateObject("ADODB.Recordset")
username=session("UserName")
passwd=session("Passwd")
sql="select * from admin where username='"&UserName&"'and passwd='"&Passwd&"'"
rs.open sql,conn,3,3
if rs.eof then
key=rs("oskey")
response.redirect "login.asp"
response.end
end if
%> 
<%username=session("username")
passwd=session("Passwd")
%>
<head>
<title>添加文章</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="90%" 
      align=center border=1 bordercolor="#454545">
  <form method="post" action="addok.asp" name="form">
        <tr> 
          <td colspan="2">　排版规则<br>
            　1、每一段落开头空两格全角汉字的位置。<br>
            　2、段内换行应为软回车，即不按回车键的自然换行；另起一段应为硬回车，即按回车键产生的分段。 <br>
            　3、文章内如果有分章节，一般采用汉字"一、二、三、四……"标识，也可用阿拉伯数字，只要全篇前后一致即可。小标题和章节数及文章写作日期也请空两格全角汉字的位置，并和上下文适当分行。<br>
            　4、请规范标点符号使用。标点符号一律为全角符号，占用一个汉字的位置。行首除了双引号、单引号、书名号、单括号、破折号，请勿使用其它标点符号。<br>
            　5、数字和英文字母一律为半角。</td>
        </tr>
        <tr> 
          <td width="20%" align="right">用户：</td>
          <td>&nbsp;<%=username%><input type="hidden" NAME="zznews" value=<%=username%>></td>
        </tr>
        <tr> 
          <td align="right">&nbsp;类别：</td>
          <td>&nbsp;  
            <select class="unnamed2" name="typeid" size="1" >
              <%dim rs,sql,sel                                    
                     set rs=server.createobject("adodb.recordset")                                     
                   sql="select * from type"                                     
                   rs.open sql,conn,1,1                                     
		   do while not rs.eof                                     
                   sel="selected"                                         
                   response.write "<option " & sel & " value='"+CStr(rs("typeID"))+"' name=typeid>"+rs("type")+"</option>"+chr(13)+chr(10)                                     
		   rs.movenext                                     
    	           loop%>
            </select>
            --<font color="#FF0033">(请选择相应的分类)</font></td> 
        </tr>
        <tr> 
          <td align="right">&nbsp;标题：</td>
          <td>&nbsp;  
            <INPUT name="txttitle" id=me size=40 
      >
          </td>
        </tr>
        <tr> 
            <td align="right" height="184">&nbsp;内容：</td>
            <td height="184">&nbsp;  
              <TEXTAREA id=content name=txtcontent rows=18 cols=60></TEXTAREA>
          </td>
        </tr>
        
        <tr align="center"> 
          <td colspan="2">&nbsp; 
            <input type="submit" value="投 稿" name="cmdok" size="12" class=button4 onmousedown="document.forms[0].target='_self'" > <input type="reset" value="清 除"  style="cmdcancel" class=button4 >
          </td>
        </tr>
        </form>
      </table>
    <% rs.close
	conn.close 
set conn=nothing 
set rs=nothing%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -