📄 myaddarticle.asp
字号:
<!--#include file="articleconn.asp"-->
<%
IF not(Session("KEY")="super" or session("KEY")="check" or Session("KEY")="input") THEN
response.redirect "mymanage.asp"
response.end
END IF
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>天荣现代农业—创建文章</title>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body>
<form method="POST" action="mysavearticle.asp">
<div align="center"><center>
<table border="0" cellspacing="1" width="758" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="0" bgcolor="#000000">
<tr>
<td width="100%" bgcolor="#000066" height="20">
<p align="center"><b class="unnamed2"><font color="#FFFFFF">添 加 文
章</font></b>
</td>
</tr>
<tr align="center">
<td width="100%">
<table border="0" cellspacing="0" width="100%" cellpadding="0">
<tr>
<td width="15%" align="right" height="30" class="unnamed2" valign="middle" bgcolor="#FFFFFF">文章标题：</td>
<td width="85%" height="30" bgcolor="#FFFFFF"> <span style='cursor:hand' title='缩短对话框' onClick='if (me.size>10)me.size=me.size-2'>-</span>
<input name="txttitle" id=me type="TEXT" size=50 maxlength=22 style="background-color:ffffff;color:000000;border: 1 double">
<span style='cursor:hand' title='加长对话框' onClick='if (me.size<102)me.size=me.size+2'>+</span>
(最多22个汉字) </td>
</tr>
<tr>
<td width="15%" align="right" valign="middle" class="unnamed2" bgcolor="#FFFFFF">文章分类：</td>
<td width="85%" bgcolor="#FFFFFF">
<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
rs.close
%>
</select>
<font color="#FF0000">（注意文章类别）</font> </td>
</tr>
<tr>
<td width="15%" align="right" valign="middle" class="unnamed2" height="5" bgcolor="#FFFFFF">推荐新闻：</td>
<td width="85%" valign="middle" height="5" bgcolor="#FFFFFF">
<input type="checkbox" name="checkbox1" value="1" class="unnamed5">
</td>
</tr>
<tr>
<td width="15%" align="right" valign="middle" class="unnamed2" height="5" bgcolor="#FFFFFF">新闻模版：</td>
<td width="85%" valign="middle" height="5" bgcolor="#FFFFFF">
<select class="unnamed2" name="Example" size="1">
<%
dim rs1,sql1,sl
set rs1=server.createobject("adodb.recordset")
sql1="select * from Example"
rs1.open sql1,conn,1,1
do while not rs1.eof
sl="selected"
response.write "<option " & sl & " value='"+CStr(rs1("ID"))+"' name=id>"+rs1("name")+"</option>"+chr(13)+chr(10)
rs1.movenext
loop
rs1.close
%>
</select>
</td>
</tr>
<tr>
<td width="15%" align="right" valign="top" class="unnamed2" bgcolor="#FFFFFF">文章内容：</td>
<td width="85%" bgcolor="#FFFFFF">
<textarea rows="15" name="txtcontent" cols="70" class="smallarea"></textarea>
</td>
</tr>
<tr>
<td width="15%" align="right" height="30" valign="middle" bgcolor="#FFFFFF"> </td>
<td width="85%" height="30" class="unnamed2" bgcolor="#FFFFFF"><font color="#CC0033">本系统支持任意位置贴图功能，格式：</font><font color="#FF0033"><font color="#0000FF">[starark]<font color="#666666">图片的完整路径或相对路径</font>[/starark]
</font></font></td>
</tr>
<tr>
<td width="15%" align="right" height="30" class="unnamed2" valign="middle" bgcolor="#FFFFFF">相关新闻：</td>
<td width="85%" height="30" bgcolor="#FFFFFF"><span style='cursor:hand' title='缩短对话框' onclick='if (ss.size>10)ss.size=ss.size-2'> -</span>
<INPUT NAME="about" id=ss TYPE="TEXT" SIZE=30 maxlength=100 style="background-color:ffffff;color:000000;border: 1 double">
<span style='cursor:hand' title='加长对话框' onclick='if (ss.size<102)ss.size=ss.size+2'>+</span>
</td>
</tr>
<tr>
<td width="15%" align="right" height="30" class="unnamed2" valign="middle" bgcolor="#FFFFFF"> </td>
<td width="85%" height="30" bgcolor="#FFFFFF" class="unnamed2">相关新闻里只需填入关键字（如：贫龙）或完整标题，只显示5条相关新闻。</td>
</tr>
<tr>
<td width="15%" align="right" height="30" class="unnamed2" valign="middle" bgcolor="#FFFFFF">来源：</td>
<td width="85%" height="30" bgcolor="#FFFFFF"> <span style='cursor:hand' title='缩短对话框' onclick='if (message.size>10)message.size=message.size-2'> -</span>
<INPUT NAME="Nfrom" id=message TYPE="TEXT" SIZE=30 maxlength=100 style="background-color:ffffff;color:000000;border: 1 double">
<span style='cursor:hand' title='加长对话框' onclick='if (message.size<102)message.size=message.size+2'>+</span>
</td>
</tr>
<tr>
<td width="15%" align="right" height="30" class="unnamed2" valign="middle" bgcolor="#FFFFFF">文章作者：</td>
<td width="85%" height="30" bgcolor="#FFFFFF"><span style='cursor:hand' title='缩短对话框' onclick='if (mess.size>10)mess.size=mess.size-2'> -</span>
<INPUT NAME="zznews" id=mess TYPE="TEXT" SIZE=30 maxlength=100 style="background-color:ffffff;color:000000;border: 1 double">
<span style='cursor:hand' title='加长对话框' onclick='if (mess.size<102)mess.size=mess.size+2'>+</span>
</td>
</tr>
<tr>
<td width="15%" align="right" height="30" class="unnamed2" valign="middle" bgcolor="#FFFFFF">新闻审核：</td>
<td width="85%" height="30" bgcolor="#FFFFFF" valign="middle">
<input name="checkbox2" type="checkbox" class="unnamed5" value="1">
</td>
</tr>
<tr>
<td width="15%" align="right" height="30" class="unnamed2" valign="middle" bgcolor="#FFFFFF">新闻是否含有图片</td>
<td width="85%" height="30" bgcolor="#FFFFFF" valign="middle">
<input type="checkbox" name="checkbox3" value="1" class="unnamed5">
<span class="unnamed2">如选择,新闻标题后将自动加上<font color="#FF0000">[图]</font>标志.
</span></td>
</tr>
</table>
</td>
</tr>
</table>
</center></div><div align="center"><center><p>
<input type="submit" value=" 添 加 "
name="cmdok" class="unnamed5">
<input type="reset" value=" 清 除 "
name="cmdcancel" class="unnamed5">
</p>
</center></div>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -