function.asp

带OA办公的动态源码网站

<script language="javascript">
<!-- 
//宽屏内页搜索的函数
function keysearch(){
 if (searchform.txtitle.value.length==0)
    {
    searchform.txtitle.focus();
    alert("关键词不能为空！");
    return false; }
    else
    {
    window.open(searchform.s_menu.value+searchform.txtitle.value);
    return false; }
    }
// -->
</script>
<%
'//宽屏内页搜索
Sub a125_Search5()
 response.write"<TABLE cellSpacing=0 cellPadding=0 width=212 border=0>"
 response.write"<form name=""searchform"" onsubmit=""return(keysearch());return false;"">"
 response.write"<TBODY>"
 response.write"<TR>"
 response.write"<TD align=middle height=30><img src=""images/2/search.gif"" width=""206"" height=""30 ""alt=""""></TD>"
 response.write"</TR>"
 response.write"<TR>"
 response.write"<TD align=middle height=40>"
 response.write"<input name=txtitle type=Text id=txtitle size=18 maxlength=50 />&nbsp;"
 response.write"<select name=""s_menu"">"
 response.write"<option value=""class_type.asp?keyword="" selected>文章</option>"
 response.write"<option value=""down.asp?keyword="">下载</option>"
 response.write"<option value=""movie.asp?keyword="">视频</option>"
 response.write"<option value=""pic.asp?keyword="">景图</option>"
 response.write"<option value=""news.asp?keyword="">新闻</option>"
 response.write"<option value=""gonggao.asp?keyword="">公告</option>"
 response.write"</select>"
 response.write"</TD>"
 response.write"</TR>"
 response.write"<TR>"
 response.write"<TD align=""center"" height=30><INPUT type=image style=""border:0px;"" src=""images/2/search1.gif""width=""54"" height=""21"">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=""javascript:document.searchform.reset();""><img style=""border:0px;""  src=""images/2/search2.gif"" width=""53"" height=""21""></a></TD>"			
 response.write"</TR>"
 response.write"</TBODY>"
 response.write"</form>"
 response.write"</TABLE>"
End sub

'//天气调用
Sub a125_tianqi()
 response.write"<TABLE cellSpacing=0 cellPadding=0 width=212 border=0 bgcolor=""#ffffff"">"
 response.write"<TBODY>"
 response.write"<TR>"
 response.write"<TD align=middle height=32><img src=""images/2/index_066.gif""width=""215"" height=""32"" alt=""""></TD>"
 response.write"</TR>"
 response.write"<tr>"
 response.write"<td align=middle height=55 ><iframe src=""http://weather.cncn.com/weather/58826.htm?time="" width=""170"" height=""50"" frameborder=""0"" marginwidth=""0"" marginheight=""0"" scrolling=""no""></iframe></td>"
 response.write"</tr>"
 response.write"</TBODY>"
 response.write"</TABLE>"
End sub

'//公告调用
Function a125_Marquee(switch_gonggao)
 response.write "<div align=right>"
 response.write "<table border=0 cellpadding=0 cellspacing=0 width=195 height=125 bgcolor=#FFFBF0>"
 response.write "<tr>"
 response.write "<td>"
 '-----------主要内容开始
 response.write "<p style='line-height: 150%; margin-left: 8px; margin-right: 6px; '>"
 response.write"<MARQUEE direction='Up' id=scrollarea onmouseover=this.stop(); onmouseout=this.start(); scrollAmount=1 scrollDelay=10 height=120>"
if switch_gonggao=1 then
sql="select top 6 ID,Title,Time from a125_gonggao ORDER BY taxis ASC"
 set rs=conn.execute(sql)
 if Rs.eof or Rs.bof then
 response.write "还没有任何滚动公告..."
 end if
 do while not Rs.eof
 response.write"<b>"
 response.write rs("Title")
 response.write"</b>"
 response.write"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
 response.write"<font color='#808080'>[ "
 response.write rs("time")
 response.write" ]</font>"
 Rs.movenext
 loop
else
 sql="select top 1 * from a125_gonggao ORDER BY taxis ASC"
 set rs=conn.execute(sql)
 if Rs.eof or Rs.bof then
 response.write "还没有任何滚动公告..."
 end if
 do while not Rs.eof
 response.write"<center><b>"
 response.write rs("Title")
 response.write"</b>"
 response.write"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
 response.write"<font color='#808080'>[ "
 response.write rs("time")
 response.write" ]</font>"
 response.write"</center>"
 response.write"<img border=0 src='Images/a125_ico.gif'>"
 response.write rs("Content")
 response.write"<br><center><font color='#C0C0C0'>---------------------</font></center>"
 Rs.movenext
 loop
 end if
 response.write "</MARQUEE>"
 Rs.close
 set Rs=nothing
 '-----------主要内容结束
 response.write "</td>"
 response.write "</tr>"
 response.write "</table>"
 response.write "</div>"
End Function

'//文章信息调用
Function a125_articleInfo(s_num,nums,Linenum,S_info,Show_date)
 response.write "<div align=center>"
 response.write "<table border=0 cellpadding=0 cellspacing=0 width=180 height=100 >"
 response.write "<tr>"
 response.write "<td>"
 '------------主要内容开始
 response.write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""1"" cellspacing=""1"">"& vbCrLf
 Select case s_num
 case 1 '热门
 InfoSql="select top "&nums&" * from Info order by hits desc,ID desc"
 case 2 '新信息
 InfoSql="select top "&nums&" * from Info order by AddDate desc,ID desc"
 case 3 '大类热门
 InfoSql="select top "&nums&" * from Info where Sort1="&S_info&" order by hits desc,ID desc"
 case 4 '小类热门
 InfoSql="select top "&nums&" * from Info where Sort2="&S_info&" order by hits desc,ID desc"
 case 5 '大类
 InfoSql="select top "&nums&" * from Info where Sort1="&S_info&" order by AddDate desc,ID desc"
 case 6 '小类
 InfoSql="select top "&nums&" * from Info where Sort2="&S_info&" order by AddDate desc,ID desc"
 Case 7 '推荐
 InfoSql="select top "&nums&" * from Info Where Pw_Good=True ORDER BY id DESC"
 Case else  '其它
 InfoSql="select top "&nums&" * from Info order by hits desc"
 End Select
 Set InfoRs=Conn.Execute(InfoSql)
 if InfoRs.eof or InfoRs.bof then
 response.write"<tr><td align='center'>没有信息...</td></tr>"
 end if 
 while not Infors.eof 
 set title=Infors("title")
 set id=Infors("id")
 response.write "<tr><td width=""12%""align=""right""><img src=""Images/daodu_bg.gif"" width=""9"" height=""11"" align=""absmiddle""></td><td width=""88%""><p style='line-height: 150%'>"& vbCrLf
 response.write "<a href='typenews.asp?id="&id&"'title='"&title&"'>"
 if GetLen(title)>Linenum then
 response.write ""&LeftStr(title,Linenum-2)&""
 response.write "..."
 else
 response.write ""&title&""
 end if
 if Show_date=1 then 
 response.write "&nbsp;&nbsp;"
 response.write DateTimeFormat(Infors("AddDate"),3)
 End if
 response.write "</a></td></tr>"
 Infors.movenext
 wend
 Infors.close
 set Infors=nothing
 response.write "</table>"
 '-----------主要内容结束
 response.write "</td>"
 response.write "</tr>"
 response.write "</table>"
 response.write "</div>"
End Function

'//文章单页信息调用
Function a125_OnlyPage(Page_T,Page_C)
 response.write "<div align=center>"
 response.write "<table border=0 cellpadding=0 cellspacing=0 width=550 height=5>"
 response.write "<tr>"
 response.write "<td></td>"
 response.write "</tr>"
 response.write "</table>"
 response.write "</div>"
 response.write "<TABLE style='border: 0px solid #CECFCE' bgcolor='#FFFFFF' cellSpacing=0 cellPadding=0 width=""100%"" align=center border=0><TR>"& vbCrLf
 response.write "<TR><TD height=34 colspan=""3"" align=middle>"& vbCrLf
 response.write "<table width=""100%"" border=""0"" cellspacing=""4"" cellpadding=""8""><tr><td height=""185"" valign=""top"">"& vbCrLf
 response.write Page_C
 response.write "</td></tr></table>"& vbCrLf
 response.write "</TD></TR></TABLE>"& vbCrLf
End Function

'//图片调用
Function a125_NewsShowPic(a125_NewsPic,a125_NewsInfoID,a125_NewsTitle,a125_NewsWith,a125_NewsHeight,a125_Newslong)
 response.write "<table width='100%' border=0 cellspacing=0 cellpadding=0><tr><td>"
 response.write "<TABLE border=0 align=center cellPadding=0 cellSpacing=0>"
 response.write "<TR><TD height=8><IMG height=8 src='Images/table/bg_0ltop.gif' width=8></TD>"
 response.write "<TD background=Images/table/bg_01.gif height=8></TD>"
 response.write "<TD height=8><IMG height=8 src='Images/table/bg_0rtop.gif' width=8></TD></TR>"
 response.write "<TR><TD width=8 background=Images/table/bg_03.gif></TD>"
 response.write "<TD width=50 height=90 align=center bgColor=#ffffff><a href=picnews.asp?id="&a125_NewsInfoID&" Title='"&a125_NewsTitle&"'><img src="&a125_NewsPic&" border=0 width="&a125_NewsWith&" height="&a125_NewsHeight&" ></a></TD>"
 response.write "<TD width=8 background=Images/table/bg_04.gif></TD>"
 response.write "</TR><TR><TD height=8><IMG height=8 src='Images/table/bg_0lbottom.gif' width=8></TD>"
 response.write "<TD background=Images/table/bg_02.gif height=8></TD>"
 response.write "<TD height=8><IMG height=8 src='Images/table/bg_0rbottom.gif' width=8></TD>"
 response.write "</TR></TABLE>"
 response.write "</td></tr><tr><td align=center height=18>"
 response.write "<a href=picnews.asp?id="&a125_NewsInfoID&" title='"&a125_NewsTitle&"'>"
 if GetLen(a125_NewsTitle)>a125_Newslong then
 response.write LeftStr(a125_NewsTitle,a125_Newslong-2)
 response.write "..."
 else
 response.write a125_NewsTitle
 end if
 response.write "</a>"
 response.write "</td></tr></table>"
End Function

Rem Pw_Sys 信息条的显示
Function a125_ShowInfo(s_num,nums,Linenum,S_info,Show_date,width1,width2,width3)
 response.write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""1"" cellspacing=""1"">"& vbCrLf
 Select case s_num
	case 1 '热门
InfoSql="select top "&nums&" ID,title,Sort2,Sort1,AddDate,hits from Info order by hits desc,ID desc"
	case 2 '新信息
InfoSql="select top "&nums&" ID,title,Sort2,Sort1,AddDate,hits from Info order by AddDate desc,ID desc"
	case 3 '大类热门
InfoSql="select top "&nums&" ID,title,Sort2,Sort1,AddDate,hits from Info where Sort1="&S_info&" order by hits desc,ID desc"
	case 4 '小类热门
InfoSql="select top "&nums&" ID,title,Sort2,Sort1,AddDate,hits from Info where Sort2="&S_info&" order by hits desc,ID desc"
	case 5 '大类
InfoSql="select top "&nums&" ID,title,Sort2,Sort1,AddDate,hits from Info where Sort1="&S_info&" order by AddDate desc,ID desc"
	case 6 '小类
InfoSql="select top "&nums&" ID,title,Sort2,Sort1,AddDate,hits from Info where Sort2="&S_info&" order by AddDate desc,ID desc"