📄 addbbs.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="fanconn.asp"-->
<!--#include file="fanfuc.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>发表新闻</title>
<link rel="stylesheet" type="text/css" href="style.css">
<script language="JavaScript">
<!--
function CheckForm()
{
if (document.form.title.value == "" )
{
alert ("请输入主题！");
document.form.title.focus();
return (false);
}
if (checktext(document.form.title.value))
{
alert("提醒：主题是一定要写的！");
document.form.title.select();
document.form.title.focus();
return (false);
}
}
function checktext(text)
{
allValid = true;
for (i = 0; i < text.length; i++)
{
if (text.charAt(i) != " ")
{
allValid = false;
break;
}
}
return allValid;
}
// -->
</Script>
<%
if trim(Request("B1")) = "提交" then
response.write "<meta HTTP-EQUIV='refresh' CONTENT='2; URL=bbsview.asp?type=" & Request.Form("type") & "'>"
end if
%>
</head>
<body topmargin="0" bgcolor="#FFFFCC">
<%
if trim(Request("B1")) = "提交" then
%>
<p align="center">
<%
dim euser
dim email
dim etitle
dim edetail
dim etype
euser = Trim(Request("user"))
if euser = "" then
euser = "无名氏"
end if
email = Trim(Request("mail"))
etitle = Trim(Request("title"))
edetail = request("detail")
if edetail = "" then
edetail = "无内容！"
end if
etype = Request("type")
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
sj=n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m
set rs=server.createobject("adodb.recordset")
sql="select * from " & etype
rs.open sql,conn,1,3
rs.AddNew
rs("user") = euser
rs("mail") = email
rs("title") = etitle
rs("detail") = edetail
rs("first")= 0
rs("hits") = 0
rs("reply") = 0
rs("bbstime") = sj
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<br><br><br><br><br><br><br><br><p align='center'>你的文章已经添加到新闻论坛！<p align='center'>2秒后自动<a href='bbsview.asp?type="&Request.Form("type")&"'>返回论坛</a>"
%>
<%
else
%>
<form name="form" method="POST" action="addbbs.asp" onSubmit="return CheckForm()">
<br><br>
<div align="center">
<table border="0" width="580" cellspacing="1">
<tr>
<td width="80" colspan="2"></td>
</tr>
<tr>
<td width="80" align="right">发布人姓名：</td>
<td><input type="text" name="user" size="22" class="input_a"> 电子邮件：<input type="text" name="mail" size="24" class="input_a">
</tr>
<tr>
<td width="80" align="right">发表主题：</td>
<td><input type="text" name="title" value="" size="59" class="input_a"></td>
</tr>
<%
if Request.querystring("type") = "1" or Request.querystring("type") = "2" or Request.querystring("type") = "3" or Request.querystring("type") = "4" or Request.querystring("type") = "5" or Request.querystring("type") = "6" then
response.write "<tr><td width='100%' colspan='2'><input type='hidden' name='type' value='"&Request.querystring("type")&"'></td></tr>"
else
response.write "<tr>"
response.write "<td width='80' align='right'>选择版块：</td>"
response.write "<td><input type='radio' value='1' name='type' checked>政治新闻 <input type='radio' value='2' name='type'>科技先锋<input type='radio' value='3' name='type'>房产动态 <input type='radio' value='4' name='type'>汽车经济<input type='radio' value='5' name='type'>体育关注 <input type='radio' value='6' name='type'>娱乐报道</td>"
response.write "</tr>"
end if
%>
<tr>
<td width="80" align="right">详细内容：</td>
<td>
<textarea rows="18" name="detail" cols="74" wrap="hard" style="font-size: 9pt" class="input_a"></textarea></td>
</tr>
<tr>
<td width="80">
</td>
<td> <input class="b" type="submit" value=" 提交 " name="B1"> <input class="b" type="reset" value=" 重置 " name="B2"> <a href="javascript:history.go(-1)">返回上页</a></td>
</tr>
</table>
</div>
</form>
</body>
</html>
<%
end if
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -