ASP论坛系统源码是一款基于ASP技术开发的论坛程序代码，适用于网站搭建和社区交流平台建设，功能完善，易于扩展。
<%@LANGUAGE=VBSCRIPT CODEPAGE=936%>
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables(SCRIPT_NAME))
If (Request.QueryString <> ) Then
MM_editAction = MM_editAction & ? & Server.HTMLEncode(Request.QueryString)
End If
boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
If condition = Then
MM_IIf = ifFalse
Else
MM_IIf = ifTrue
End If
End Function
%>
<%
If (CStr(Request(MM_insert)) = form1) Then
If (Not MM_abortEdit) Then
execute the insert
Dim MM_editCmd
Set MM_editCmd = Server.CreateObject (ADODB.Command)
MM_editCmd.ActiveConnection = MM_conndb2_STRING
SQL command for inserting data into board table
MM_editCmd.CommandText = INSERT INTO board (boardname, banzhu, content) VALUES (?, ?, ?)
Prepare the statement and append parameters
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(param1, 202, 1, 50, Request.Form(boardname))
adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(param2, 202, 1, 50, Request.Form(banzhu))
adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(param3, 202, 1, 200, Request.Form(content))
adVarWChar
Execute the command and close connection
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = oneedit.asp
If (Request.QueryString <> ) Then
If (InStr(1, MM_editRedirectUrl, ?, vbTextCompare) = 0) Then
MM_editRedirectUrl = MM_editRedirectUrl & ? & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & & & Request.QueryString
End If
End If
Response.Redirect(MM_editRedirectUrl)
End If
End If
%>
版块管理
<% If session(AdminUID)= or session(Admindj)<>0 Then %>
<%
Response.Write
& 本页面必须管理员登录后，才能进行管理操作。
%>
<% Else %>
5星
