📄 newtext1.asp
字号:
<% Response.Buffer=True %>
<!--#Include file="conn.asp"--><html>
<html>
<head>
<title>发表新文章</title>
</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">**
</td></tr>
<tr>
<td>内容：</td>
<td><textarea name="text" rows="4" cols="60" wrap="soft">
</textarea></td></tr>
<tr>
<td>姓名：</td>
<td><input type="text" name="uname" size="20">**
</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")<>"" Then
Dim title,body,layer,text_id,reply,hit,username '声明变量方便使用
title=Request.Form("title") '返回文章标题
text=Request.Form("text") '返回文章内容
username=Request.Form("uname") '返回作者姓名
layer=1 '这是第一层
text_id=0 '因为是第一层，父编号设为0
reply=0 '回复文章数目为0
hit=0 '点击数为0
'以下将文章保存到数据库
Dim sql,svalues
sql="Insert Into bbs(title,layer,text_id,reply,hit,username,subdate"
svalues = "Values('" & title & "'," & layer & "," & text_id & "," &replay & "," & hit & ",'" & username & "','" & date() & "'"
If text<>"" Then '如果有内容，则添加text字段
sql = sql & ",text"
svalues = svalues & "," & "'" & text & "'"
End If
sql = sql & ") " & svalues & ")"
conn.Execute(sql)
conn.Close '关闭connection对象
'保存完毕，重定向回首页
Response.Redirect "index.asp?page_no=" & Request.QueryString("page_no")
End If
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -