📄 newtext.asp
字号:
<% Response.Buffer=True %>
<!--#Include file="conn.asp"--><html>
<html>
<head>
<title>发表新文章</title>
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</head>
<body>
<h2 align="center">发表新文章</h2>
<center>
<table border="0" width=90%>
<form method="post" action="" name="form1" >
<tr>
<td>标题：</td>
<td><input type="text" name="title" size="60">
<span class="style1">*</span></td>
</tr>
<tr>
<td>内容：</td>
<td><textarea name="text" rows="4" cols="60" wrap="soft">
</textarea>
<span class="style1">*</span></td>
</tr>
<tr>
<td>姓名：</td>
<td><input type="text" name="uname" size="20">
<span class="style1">*</span></td>
</tr>
<tr><td></td><td><input type="submit" value="确 定" size="20"></td></tr>
</form>
</table>
</center>
<p align=center><a href="index.asp?page_no=<%=Session("page_no")%>">返回首页</a>
<%
'如果文章标题、内容和作者姓名不为空，就执行下面操作。
If Request("title")<>"" And Request("uname")<>"" And Request.Form("text")<>"" Then
'返回文章标题
title=Request.Form("title")
'返回文章内容
text=Request.Form("text")
'返回作者姓名
username=Request.Form("uname")
layer=1
text_id=0
'回复文章数目为0
reply=0
'点击数为0
hit=0
'以下将文章保存到数据库
strSql="Insert Into bbs(title,text,layer,text_id,reply,hit,username,subdate"
strvalues = "Values('" & title & "','" & text & "','" & layer & "','" & text_id & "','" &replay & "','" & hit & "','" & username & "','" & date() & "'"
strSql = strSql & ") " & strValues & ")"
conn.Execute(strSql)
'关闭connection对象
conn.Close
'保存完毕，重定向回首页
Response.Redirect "index.asp?page_no=" & Request.QueryString("page_no")
End If
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -