📄 add_info.asp
字号:
<!--#include file="conn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/admin_css.css" rel="stylesheet" type="text/css">
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="top.asp"-->
<table width="100%" height="525" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="180" align="right" valign="top" bgcolor="#F2F9FD"><!--#include file="left.asp"--></td>
<td width="5" valign="top" background="images/ad_07.gif" ></td>
<td valign="top"><form action="?action=save" method="post" name="form1" id="form1" onSubmit="return Validator.Validate(this,2)">
<table width="0" height="6" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#F2F9FD">
<tr bgcolor="#D2E8F6">
<td height="25" colspan="2"> <strong>添加信息</strong></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="46" height="30" align="right" class="gray">标题：</td>
<td width="729" height="30"><input name="title" type="text" class="input" id="title" size="60" dataType="Require" msg="请填写信息标题！">
<font color="red">*</font><font color="gray">信息标题</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="right">图片：</td>
<td height="30" valign="middle"><input name="title_pic" type="text" class="input" id="title_pic" size="50">
<input name="Submit2" type="button" class="button" onClick="window.open('../up.asp?formname=form1&editname=title_pic&uppath=up_pic&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')" value="上传图片"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="46" height="30" align="right" class="gray">栏目：</td>
<td height="30"><select name="sort_name_id" id="sort_name_id" dataType="Require" msg="请选择相关栏目！">
<option selected>请选择相关栏目</option>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from system_text_sort where big_id=0 order by sx",conn,1,1
if rs.recordcount=0 then
response.write "暂无分类"
else
do while not rs.eof
%>
<option value="" style="BACKGROUND-COLOR: #f0f0f0"><%=rs("sort_name")%></option>
<%
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from system_text_sort where big_id=" & rs("id") & " order by sx",conn,1,1
do while not rs_s.eof
%>
<option value="<%=rs_s("id")%>"><font color="#f0f0f0"> ├</font><%=rs_s("sort_name")%></option>
<%rs_s.movenext
loop
%>
<%
rs_s.close
set rs_s=nothing
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
</select>
<font color="red">*</font> <font color="gray">信息所属的相关栏目</font> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="46" height="30" align="right" class="gray">时间：</td>
<td height="30" valign="middle" class="gray"><table width="300" border="0" cellpadding="0" cellspacing="0">
<tr valign="middle">
<td width="76"><input name="dateandtime" type="text" class="form2" id="dateandtime" value="<%=date()%>" size="10" ></td>
<td width="208"></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="right">推荐：</td>
<td height="30"><input name="tuijian" type="checkbox" id="tuijian" value="1">
<font color="gray">(打"√"则为推荐)</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="46" height="30" align="right" class="gray">显示：</td>
<td height="30"><input name="pass" type="checkbox" id="pass" value="1" checked>
<font color="gray">(打"√"则会在网页上面显示，否则只在后台显示)</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="right" class="gray">点击：</td>
<td height="30" valign="middle"><input name="click" type="text" class="input" id="click" value="1" size="10" dataType="Number" msg="点击次数不能为空，必须为数字！">
<font color="red">*</font><FONT color=gray>点击次数，默认为1，如需手工填写，填写内容必须为数字！</FONT></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="46" height="30" align="right" class="gray">信息：</td>
<td height="30" valign="top"><label>
<textarea name="info" cols="80" rows="10" id="info"></textarea>
</label></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="46" height="30" class="gray"> </td>
<td height="30"><input name="Submit" type="submit" class="button" value=" 提 交 ">
<input name="Submit" type="reset" class="button" value=" 重 置 ">
<input name="Submit" type="button" class="button" onclick="history.go(-1);" value=" 返 回 "></td>
</tr>
</table>
</form></td>
</tr>
</table><% if request.querystring("action")="save" then
if trim(request.form("title"))="" or trim(request.form("sort_name_id"))="" then
response.Write "<script language=javascript>alert('请正确填写表单！');window.location.href='add_info.asp';</script>"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from system_text_info "
rs.open sql,conn,1,3
rs.addnew
rs("title")=server.HTMLEncode(trim(request.form("title")))
rs("title_pic")=server.HTMLEncode(trim(request.form("title_pic")))
rs("sort_name_id")=trim(request.form("sort_name_id"))
rs("sub_user")=server.HTMLEncode(trim(request.form("sub_user")))
rs("dateandtime")=server.HTMLEncode(trim(request.form("dateandtime")))
rs("click")=server.HTMLEncode(trim(request.form("click")))
if trim(request.form("tuijian"))<>"" then rs("tuijian")=server.HTMLEncode(trim(request.form("tuijian")))
if trim(request.form("pass"))<>"" then rs("pass")=trim(request.form("pass"))
rs("info")=trim(request.form("info"))
rs.update
response.Write "<script language=javascript>alert('添加成功！');window.location.href='add_info.asp';</script>"
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -