📄 huangye_add.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Inc/AdminChk.asp"-->
<!--#include file="Conn.asp"-->
<!--#include file="../Inc/FormChk.asp"-->
<!--#include file="../Inc/msgbox.asp"-->
<%
IF Trim(Request("Submit"))<>Empty Then
Dim StrSql,Rs,title,sort,body,content,hitnum
title=Request.Form("title")
sort=Request.Form("sort")
body=htmlencode2(encodestr(request.Form("body")))
content=htmlencode2(encodestr(request.Form("content")))
set rs=server.CreateObject("adodb.recordset")
strsql="select * from [huangye]"
rs.open strsql,conn,1,3
rs.addnew()
rs("title")=title
rs("sort")=sort
rs("body")=body
rs("content")=content
rs("hitnum")="0"
rs.update
rs.close
set rs=nothing
call msgbox("添加成功","GoUrl","huangye_list.asp")
response.End()
End IF
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网站添加</title>
</head>
<body><!--#include file="top.asp"-->
<form action="" onSubmit=submitonce(this) method="post" name="frmAnnounce">
<table width="100%" border="0" cellspacing="1" bgcolor="#FF9933">
<tr>
<td width="98" align="center" bgcolor="#FFFFFF"><font color="#FF8F2A">黄页标题:</font></td>
<td bgcolor="#FFFFFF">
<input name="title" type="text" id="title" size="40"></td>
</tr>
<tr>
<td width="98" bgcolor="#FFFFFF" align="center"><font color="#FF8F2A">黄页类型:</font></td>
<td bgcolor="#FFFFFF"> <select name="sort" id="sort" size="1">
<option value="学校官方" selected>学校官方</option>
<option value="院系主页">院系主页</option>
<option value='行政机构'>行政机构</option><option value='重点实验室'>重点实验室</option>
<option value="后勤服务">后勤服务</option>
<option value="个人主页">个人主页</option>
<option value="研究所">研究所</option>
<option value="文学艺术">文学艺术</option>
<option value="体育运动">体育运动</option>
<option value="信息服务">信息服务</option>
<option value="娱乐休闲">娱乐休闲</option>
<option value="商业金融">商业金融</option>
<option value="学生组织">学生组织</option>
<option value="校外网站">校外网站</option>
</select></td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF"><font color="#FF8F2A">黄页地址</font></td>
<td bgcolor="#FFFFFF">
<input name="body" type="text" id="body" value="http://" size="60"></td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF"><font color="#FF8F2A">黄页介绍：</font></td>
<td bgcolor="#FFFFFF"><textarea name="content" cols="60" rows="17" id="content"></textarea></td>
</tr>
<tr>
<td width="98" bgcolor="#FFFFFF"> </td>
<td bgcolor="#FFFFFF"><input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置"></td>
</tr>
</table>
</form>
<!--#include file="copy.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -