📄 admin_message.asp

📁 大型黄页系统,精美黄页flash演示,10m
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
		If Rs("statid") = 0 Then Response.Write " selected"
	End If
	Response.Write ">≡所有位置≡</option>" & Chr(13) & Chr(10)
	Response.Write " <option value=""1"" "
	If isEdit Then
		If Rs("statid") = 1 Then Response.Write " selected"
	End If
	Response.Write ">≡信息首页≡</option>" & Chr(13) & Chr(10)
	Response.Write " <option value=""2"" "
	If isEdit Then
		If Rs("statid") = 2 Then Response.Write " selected"
	End If
	Response.Write ">≡文章首页≡</option>" & Chr(13) & Chr(10)
	Response.Write " </select></TD>" & Chr(13) & Chr(10)
	Response.Write "</TR>" & Chr(13) & Chr(10)
	Response.Write "<TR height=""22"">" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "<TD colspan=2 class=forumHeaderBackgroundAlternate align=center>公告内容</TD>" & Chr(13) & Chr(10)
	Response.Write "</TR>" & Chr(13) & Chr(10)
	Response.Write "<TR height=""22"">" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "<TD colspan=2 class=forumRow align=center>"
	If CInt(DownsysClass.Setting(19)) = 1 Then
		NC_Edit.Init_HtmlEditor
	Else
		Response.Write "<textarea name=content1 style=""width:100%;"" rows=18>"
		If isEdit Then
			Response.Write Rs("Content")
		End If
		Response.Write "</textarea>"
	End If
	Response.Write "</TD>" & Chr(13) & Chr(10)
	Response.Write "</TR>" & Chr(13) & Chr(10)
	Response.Write " <tr> " & Chr(13) & Chr(10)
	Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">发布人：</td>" & Chr(13) & Chr(10)
	Response.Write " <td class=""forumRow""><input name=""writer"" type=""text"" size=""35"" "
	If isEdit Then
		Response.Write "value="""
		Response.Write Rs("writer")
		Response.Write """"
	Else
		Response.Write "value="""
		Response.Write Session(DownsysClass.CacheName & "AdminName")
		Response.Write """"
	End If
	Response.Write "></td>" & Chr(13) & Chr(10)
	Response.Write " </tr>" & Chr(13) & Chr(10)
	Response.Write " <tr> " & Chr(13) & Chr(10)
	Response.Write " <td height=""21"" align=""right"" class=""forumRowHighlight"">是否置顶：</td>" & Chr(13) & Chr(10)
	Response.Write " <td class=""forumRow""> <input name=""isTop"" type=""radio"" value=""0"" "
	If isEdit Then
		If CInt(Rs("isTop")) = 0 Then
			Response.Write "checked"
		End If
	Else
		Response.Write "checked"
	End If
	Response.Write ">" & Chr(13) & Chr(10)
	Response.Write " 取消置顶　<input type=""radio"" name=""isTop"" value=""1"" "
	If isEdit Then
		If CInt(Rs("isTop")) = 1 Then
			Response.Write "checked"
		End If
	End If
	Response.Write ">" & Chr(13) & Chr(10)
	Response.Write " 设为置顶　"
	If isEdit Then
		Response.Write "<input name=""updatetime"" type=""checkbox"" value=""yes"">更新时间"
	End If
	Response.Write "</td>" & Chr(13) & Chr(10)
	Response.Write " </tr>" & Chr(13) & Chr(10)
	Response.Write " <tr>" & Chr(13) & Chr(10)
	Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">&nbsp;</td>" & Chr(13) & Chr(10)
	Response.Write " <td align=""center"" class=""forumRow"">" & Chr(13) & Chr(10)
	Response.Write " <input type=""button"" name=""Submit1"" onclick=""javascript:history.go(-1)"" value=""返回上一页"" class=button>" & Chr(13) & Chr(10)
	Response.Write " <input type=button class=button value=""查看内容长度"" name=Button onclick=""checklength(document.myform);"">　" & Chr(13) & Chr(10)
	Response.Write " <input type=reset name=Submit2 class=button value=""清 除"" onclick=""ClearReset()"">　" & Chr(13) & Chr(10)
	Response.Write "　<input type=Submit class=button value=""保存公告"" name=Submit>　" & Chr(13) & Chr(10)
	Response.Write " </td>" & Chr(13) & Chr(10)
	Response.Write " </tr></form>" & Chr(13) & Chr(10)
	Response.Write "</table>" & Chr(13) & Chr(10)
	Response.Write "</div>" & Chr(13) & Chr(10)
	If CInt(DownsysClass.Setting(19)) = 0 Then
		Response.Write "<Script language=javascript>" & vbCrLf
		Response.Write "<!--//" & vbCrLf
		Response.Write "document.myform.content1.value = ubbcode(document.myform.content1.value);" & vbCrLf
		Response.Write "function ubbcode(temp) {" & vbCrLf
		Response.Write "temp = temp.replace(/<br>/ig,""\n"");" & vbCrLf
		Response.Write "temp = temp.replace(/<p>/ig,""\n"");" & vbCrLf
		Response.Write "temp = temp.replace(/<\/p>/ig,""\n"");" & vbCrLf
		Response.Write "return (temp);" & vbCrLf
		Response.Write "}" & vbCrLf
		Response.Write "function ClearReset()" & vbCrLf
		Response.Write "{" & vbCrLf
		Response.Write "	document.myform.content1.value = '';" & vbCrLf
		Response.Write "	focus();" & vbCrLf
		Response.Write "}" & vbCrLf
		Response.Write "function checklength(theform)" & vbCrLf
		Response.Write "{" & vbCrLf
		Response.Write "	alert(""您的内容目前有 ""+theform.content1.value.length+"" 字节。"");" & vbCrLf
		Response.Write "}" & vbCrLf
		Response.Write "//-->" & vbCrLf
		Response.Write "</Script>" & vbCrLf
	End If
	If isEdit Then
		Rs.Close
		Set Rs = Nothing
	End If
End Sub

'**********************************************
'过程作用：判断
'**********************************************

Private Sub ChkMessage()
	If Len(Request.Form("statid")) = 0 Then
		Founderr = True
		ErrMsg = ErrMsg + "<li>显示位置不能为空！</li>"
		Exit Sub
	End If
	If Len(Request.Form("title")) = 0 Then
		Founderr = True
		ErrMsg = ErrMsg + "<li>公告标题不能为空！</li>"
		Exit Sub
	Else
		strTitle = DownsysClass.HTMLEncodes(Request.Form("title"))
	End If
	If Len(Request.Form("content1")) = 0 Then
		Founderr = True
		ErrMsg = ErrMsg + "<li>公告内容不能为空！</li>"
		Exit Sub
	End If
	If CInt(DownsysClass.Setting(19)) = 1 Then
		TxtContent = Request.Form("content1")
	Else
		TxtContent = DownsysClass.HTMLEncodes(Request.Form("content1"))
	End If
End Sub

'**********************************************
'过程作用：保存公告
'**********************************************

Private Sub SaveMessage()
	Call ChkMessage
	If Founderr = False Then
		SQL = "select * from NC_Message where (id is null)"
		Rs.Open SQL, Conn, 1, 3
		Rs.addnew
		Rs("title") = strTitle
		Rs("statid") = Request.Form("statid")
		Rs("content") = TxtContent
		Rs("writer") = Request.Form("writer")
		Rs("postime") = DownsysClass.NowTime
		Rs("hits") = 0
		Rs("isTop") = Request.Form("isTop")
		Rs("isUpdate") = 1
		Rs.Update
		Rs.Close
		Set Rs = Nothing
		NC_Admin.Succeed_Msg ("<li>添加 " & strTitle & " 成功!</li>")
		Response.Write "<meta http-equiv=""refresh"" content=""2;url='admin_message.asp?action=add'"">" & vbCrLf
	End If
End Sub

'**********************************************
'过程作用：保存修改公告
'**********************************************

Private Sub ModifyMessage()
	Call ChkMessage
	If Founderr = False Then
		SQL = "select * from NC_Message where id=" & Request.Form("id")
		Rs.Open SQL, Conn, 1, 3
		Rs("title") = strTitle
		Rs("statid") = Request.Form("statid")
		Rs("content") = TxtContent
		Rs("writer") = Request.Form("writer")
		If Trim(Request.Form("updatetime")) = "yes" Then
			Rs("postime") = DownsysClass.NowTime
		End If
		Rs("isTop") = Request.Form("isTop")
		Rs("isUpdate") = 1
		Rs.Update
		Rs.Close
		Set Rs = Nothing
		NC_Admin.Succeed_Msg ("<li>修改 " & strTitle & " 成功!</li>")
		Response.Write "<meta http-equiv=""refresh"" content=""2;url='admin_message.asp'"">" & vbCrLf
	End If
End Sub

'**********************************************
'过程作用：删除公告
'**********************************************

Private Sub DelMessage()
	DownsysClass.Execute ("delete from NC_Message where id in (" & selMessageid & ")")
	Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub

'**********************************************
'过程作用：清空所有公告
'**********************************************

Private Sub DelAllMessage()
	DownsysClass.Execute ("delete from NC_Message")
	Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub

'**********************************************
'过程作用：设置置顶
'**********************************************

Private Sub isTop()
	DownsysClass.Execute ("update NC_Message set isTop=1 where id in (" & selMessageid & ")")
	Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub

'**********************************************
'过程作用：取消置顶
'**********************************************

Private Sub noTop()
	DownsysClass.Execute ("update NC_Message set isTop=0 where id in (" & selMessageid & ")")
	Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub

'**********************************************
'过程作用：公告分页
'**********************************************

Private Sub showpage()
	Dim FileName
	Dim n
	Dim ii
	FileName = "admin_message.asp"
	If totalnumber Mod maxperpage = 0 Then
		n = totalnumber \ maxperpage
	Else
		n = totalnumber \ maxperpage + 1
	End If
	Response.Write "<table cellspacing=1 width='100%' border=0><form method=Post action=" & FileName & "><tr><td align=center> " & vbCrLf
	If CurrentPage < 2 Then
		Response.Write "共有公告 <font COLOR=#FF0000><B>" & totalnumber & "</B></font> 篇&nbsp;首 页&nbsp;上一页&nbsp;"
	Else
		Response.Write "共有公告 <font COLOR=#FF0000><B>" & totalnumber & "</B></font> 篇&nbsp;<a href=" & FileName & "?page=1>首 页</a>&nbsp;"
		Response.Write "<a href=" & FileName & "?page=" & CurrentPage - 1 & ">上一页</a>&nbsp;"
	End If
	If n - CurrentPage < 1 Then
		Response.Write "下一页&nbsp;尾 页 " & vbCrLf
	Else
		Response.Write "<a href=" & FileName & "?page=" & (CurrentPage + 1) & ">下一页</a>"
		Response.Write "&nbsp;<a href=" & FileName & "?page=" & n & ">尾 页</a>" & vbCrLf
	End If
	Response.Write "&nbsp;页次：<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页 "
	Response.Write "&nbsp;转到："
	Response.Write "&nbsp;<select name='page' size='1' style=""font-size: 9pt"" onChange='javascript:submit()'>" & vbCrLf
	For ii = 1 To n
		Response.Write "<option value='" & ii & "' "
		If CurrentPage = Int(ii) Then
			Response.Write "selected "
		End If
		Response.Write ">第" & ii & "页</option>"
	Next
	Response.Write "&nbsp;</select> " & vbCrLf
	Response.Write "</td></tr></FORM></table>" & vbCrLf
End Sub
%>
上一页 12
⌨️ 快捷键说明

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