📄 add.asp

📁 这个论坛也不错．适合做毕业设计的
💻 ASP
字号:
<!--#INCLUDE file="../config.asp" -->
<html>
<head>
<!--#include file="../styles.css" -->
</head>
<body bgcolor="#FFFFFF" class="sft">
<br><br><br>
<%
set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString
strsql = "select SFAdmin_Name, SFAdmin_Password from SFAdmin"
set rs = my_conn.Execute (strSQL)
if (Session("SFAdmin_Name")=rs("SFAdmin_Name")) and (Session("SFAdmin_Password")=rs("SFAdmin_Password")) then
my_conn.Close
set my_Conn = nothing
set rs = nothing
%>

<%
Function ChkString(string)
	if String = "" then string = " "
	string = replace(string, "'", "''")
	ChkString = string
End Function
%>


<%
Sub add_Cat
  If request.QueryString("do_it") = "true" then
    set my_conn= Server.CreateObject("ADODB.Connection")
    my_Conn.Open ConnString
    StrSQl = "INSERT INTO category (cat_name) values ('" & ChkString(Request.Form("cat")) & "')"
    my_conn.Execute StrSql

    my_conn.close
    set my_conn = nothing
   
    Response.Write "<p align=""center"">分类已增加</p>"

  Else
%>
<form method="POST" action="add.asp?mode=category&do_it=true" method="post" class="sft">
<table align="center"  bgcolor="#333333" border="0" width=300 cellspacing="1" cellpadding="3" class="sft">
<tr><td bgcolor="#b4609d" colspan=2 class="sfh" align="center">增加一个分类</td></tr>
<TR><TD bgcolor="#f7f7f7" width="30%" align="right">分类名称:</td>
<TD bgcolor="#f7f7f7" width="70%"><input type=text name="cat" size=25></td>
<TR><TD bgcolor="#f7f7f7" colspan=2 align=center><Input type=submit name="B1" value="增加分类"></TD></TR>
</table></form>
<% 
  End If 

End Sub

Sub add_forum
    set my_conn= Server.CreateObject("ADODB.Connection")
    my_Conn.Open ConnString
  If request.QueryString("do_it") = "true" then
    StrSQl = "INSERT INTO Forum (f_name, F_Description, F_Cat) values ('"
    StrSql = StrSql &  Request.Form("name") & "', '"
    StrSql = StrSql &  Request.Form("description") & "', "
    StrSql = StrSql &  Request.Form("category") &  ")"
    my_conn.Execute StrSql
    my_conn.close
    set my_conn = nothing
    Response.Write "<p align=""center"">论坛已增加</p>"
  Else
%>
<form action="add.asp?mode=forum&do_it=true" method="post">
<table align="center"  bgcolor="#333333" border="0" width=300 cellspacing="1" cellpadding="3" class="sft">
<tr><td bgcolor="#b4609d" colspan=2 class="sfh" align="center">增加一个论坛</td></tr>
<TR><TD bgcolor="#f7f7f7" width="30%" align="right">论坛名称:</td>
<TD bgcolor="#f7f7f7" width="70%"><input type=text name="name" size=25></td></tr>
<TR><TD bgcolor="#f7f7f7" align="right">简要描述:</td>
<TD bgcolor="#f7f7f7"><input type=text name="description" size=25></td>
<tr><td bgcolor="#f7f7f7" align="right">所属分类:</td>
<td bgcolor="#f7f7f7" valign="top"><select name="Category" size="1">
<%
StrSql = "SELECT * FROM category"
set rs = my_conn.execute (strSql)
On Error Resume Next
do until rs.eof
  Response.Write "<option value=""" & rs("Cat_id") & """>" & rs("cat_name") & "</option>" & vbcrlf
rs.movenext
loop
%>  
</select></td></tr>
<%
set rs = nothing
my_conn.close
set my_conn = nothind
%>
</td></tr>
<TR><TD bgcolor="#f7f7f7" colspan=2 align=center><Input type=submit value="增加论坛"></TD></TR>
</table></form>
<% 
  End If 
End Sub 
%>
<%
Select Case Request.QueryString("mode")
	case "category" call add_Cat
	case "forum" call add_forum
	case Else Response.Write "Error"
End Select
%>
<%
else
Response.Write "<P align=center>请正确输入管理员名称和密码!<br><br>"
Response.Write "<a href=""main.asp"">退回</a></p>"
end if%>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -