📄 labelannounce.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
字号:
<%
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<HTML>
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE type=text/css>
BODY,td {FONT-SIZE: 12px;}
input	{TEXT-ALIGN:Center;FONT-SIZE: 12px;BORDER-Top: #333333 1px solid;BORDER-Left: #333333 1px solid;BORDER-Bottom: #FFFFFF 1px solid;BORDER-Right: #FFFFFF 1px solid}
.enter	{FONT-SIZE: 12px;BORDER-Top: #FFFFFF 1px solid;BORDER-Left: #FFFFFF 1px solid;BORDER-Bottom: #333333 1px solid;BORDER-Right: #333333 1px solid}
.radio {border:0}
</STYLE>
<Script>
// 点击返回
function InsertHTML(what){
	dialogArguments.InsertHTML(what);
	window.returnValue = null;
	window.close();
}
</Script>
<BODY bgcolor="menu">
<iframe name="Save" height=0 width=0></iframe>
<%
Dim LabelContent
Select Case Request("Action")
  Case "Save"
    Dim A_Type,A_Num,A_Author,A_Time,A_ContentNum
    A_Type = Request.Form("A_Type")
    A_Num = Request.Form("A_Num")
    If A_Num = "" Then A_Num = 0
    If IsNumeric(A_Num) = False Then A_Num = 0
    If A_Num < 0 Then A_Num = 0
    A_Author = Request.Form("A_Author")
    A_Time = Request.Form("A_Time")
    A_ContentNum = Request.Form("A_ContentNum")
    If A_ContentNum = "" Then A_ContentNum = 0
    If IsNumeric(A_ContentNum) = False Then A_ContentNum = 0
    If A_ContentNum < 0 Then A_ContentNum = 0
    LabelContent = A_Type&","&A_Num&","&A_Author&","&A_Time&","&A_ContentNum
    LabelContent = "{$GetAnnounce("&LabelContent&")}"
    Response.write "<Script>InsertHTML('"&LabelContent&"')</Script>"
    Response.end
	
  Case "PopSave"
    Dim A_Height,A_Width
    A_Width = Request.Form("A_Width")
    If A_Width = "" Then A_Width = 350
    If IsNumeric(A_Width) = False Then A_Width = 350
    If A_Width < 0 Then A_Width = 350
    A_Height = Request.Form("A_Height")
    If A_Height = "" Then A_Height = 450
    If IsNumeric(A_Height) = False Then A_Height = 450
    If A_Height < 0 Then A_Height = 450
    LabelContent = A_Width&","&A_Height
    LabelContent = "{$GetPopAnnounce("&LabelContent&")}"
    Response.write "<Script>InsertHTML('"&LabelContent&"')</Script>"
    Response.end

  Case "PopAnnounce"
    Response.write "<TITLE>插入弹出公告标签</TITLE>"
    Response.write "<table width='100%' height='100%' border=0 cellspacing=0 cellpadding=0><tr><td>"
    Response.write "<table width=230 border=0 cellspacing=1 cellpadding=3 align=center bgcolor='#ffffff' style='border:1px Menu solid'>"
    Response.write "<form name=form1 method=post action='?Action=PopSave' target='Save'>"
    Response.write "<tr BgColor=menu><td colspan=2 align=center height=25><strong>=== 弹出公告标签选项 ===</strong></td></tr>"
    Response.write "<tr BgColor=menu><td width='35%' align=right><strong>窗口宽度</strong>&nbsp;</td>"
    Response.write "<td width='65%'><input name=A_Width type=text value=350 size=10 maxlength=5> Px</td></tr>"
    Response.write "<tr BgColor=menu><td align=right><strong>窗口高度</strong>&nbsp;</td>"
    Response.write "<td><input name=A_Height type=text value=450 size=10 maxlength=5> Px</td></tr>"
    Response.write "<tr BgColor=menu><td colspan=2 align=center><input name=submit type=submit value=' 确 定 ' class=enter>　　<input type=button value=' 取 消 ' onclick='window.close();' class=enter></td></tr>"
    Response.write "</form></table>"
    Response.write "</td></tr></table>"

  Case Else
    Response.write "<TITLE>插入滚动公告标签</TITLE>"
    Response.write "<table width='100%' height='100%' border=0 cellspacing=0 cellpadding=0><tr><td>"
    Response.write "<table width=230 border=0 cellspacing=1 cellpadding=3 align=center bgcolor='#ffffff' style='border:1px Menu solid'>"
    Response.write "<form name=form1 method=post action='?Action=Save' target='Save'>"
    Response.write "<tr BgColor=menu><td colspan=2 align=center height=25><strong>=== 滚动公告标签选项 ===</strong></td></tr>"
    Response.write "<tr BgColor=menu><td width='35%' align=right><strong>显示方式</strong>&nbsp;</td>"
    Response.write "<td width='65%'><input type=radio name='A_Type' value=0 Class=radio checked> 横向　<input type=radio name='A_Type' value=1 Class=radio> 纵向</td></tr>"
    Response.write "<tr BgColor=menu><td align=right><strong>显示条数</strong>&nbsp;</td>"
    Response.write "<td><input name=A_Num type=text value=5 size=5 maxlength=5> 0为不限制</td></tr>"
    Response.write "<tr BgColor=menu><td align=right><strong>公告作者</strong>&nbsp;</td>"
    Response.write "<td><input type=radio name='A_Author' value=1 Class=radio checked> 显示　<input type=radio name='A_Author' value=0 Class=radio> 不显示</td></tr>"
    Response.write "<tr BgColor=menu><td align=right><strong>发布日期</strong>&nbsp;</td>"
    Response.write "<td><input type=radio name='A_Time' value=1 Class=radio checked> 显示　<input type=radio name='A_Time' value=0 Class=radio> 不显示</td></tr>"
    Response.write "<tr BgColor=menu><td align=right><strong>内容字数</strong>&nbsp;</td>"
    Response.write "<td><input name=A_ContentNum type=text value=0 size=5 maxlength=5> 0为不显示</td></tr>"
    Response.write "<tr BgColor=menu><td colspan=2 align=center><input name=submit type=submit value=' 确 定 ' class=enter>　　<input type=button value=' 取 消 ' onclick='window.close();' class=enter></td></tr>"
    Response.write "</form></table>"
    Response.write "</td></tr></table>"
End Select
%>
⌨️ 快捷键说明

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