📄 add_article.asp
字号:
<% option explicit
if session("login")<>"yes" then
response.write "此页只限版主使用。"
response.End()
end if
%>
<!--#Include file="conn1.asp"-->
<%
if trim(request.form("title"))="" then
%>
<!DOCTYPE HTML PUBLIC "-//w3c//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新闻发布</title>
</head>
<body BGCOLOR=#9933CC>
<h2 align="center">新闻发布</h2>
<form name="form1" method="post" action="">
<table width="60%" border="1" align="center" cellpadding="0" cellspacing="0" bgcolor="#cccccc">
<tr>
<td width="19%">新闻标题</td>
<td width="81%"><input name="title" type="text" size="50"></td>
</tr>
<tr>
<td>新闻内容</td>
<td><textarea name="content" cols="50" rows="8"></textarea></td>
</tr>
<tr>
<td>相关链接</td>
<td><input name="src" type="text" size="50"></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="submit" value="提交"><input type="reset" name="submit2" value="重置">
</td>
</tr>
</table>
</form>
<%
else
dim sql,title,content,src
sql="select * From article"
rs.open sql,conn1,1,3
title=trim(request.form("title"))
content=trim(request.form("content"))
if content="" then content="无内容"
src=trim(request.form("src"))
if src="" then src="无内容"
rs.addnew
rs("title")=title
rs("content")=content
rs("src")=src
rs.update
response.Redirect("list_article.asp")
rs.Close
conn1.Close
set rs=nothing
set conn1=nothing
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -