function1.asp

夏茂政府网站

    sqlCount="select Count(ID) from Info"
    rsCount.open sqlCount,conn,1,1
    response.write "信息总数：" & rsCount(0) & "条<br>"
    rsCount.close
    sqlCount="select sum(Hits) from Info"
    rsCount.open sqlCount,conn,1,1
    response.write "信息浏览：" & rsCount(0) & "次<br>"
    rsCount.close
    sqlCount="select Count(ID) from zf11_type"
    rsCount.open sqlCount,conn,1,1
    response.write "栏目分类：" & rsCount(0) & "个<br>"
    rsCount.close
    sqlCount="select sum(Hit) from zf11_type"
    rsCount.open sqlCount,conn,1,1
    response.write "栏目浏览：" & rsCount(0) & "次<br>"
    rsCount.close
    sqlCount="select count(ID) from words"
    rsCount.open sqlCount,conn,1,1
    response.write "留言条数：" & rsCount(0) & "条<br>"
    rsCount.close
    set rsCount=nothing
    end sub
%>
<%
    '//新闻图片调用
    Function zf11_NewsShowPic(zf11_NewsPic,zf11_NewsInfoID,zf11_NewsTitle,zf11_NewsWith,zf11_NewsHeight,zf11_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="&zf11_NewsInfoID&" Title='"&zf11_NewsTitle&"'><img src="&zf11_NewsPic&" border=0 width="&zf11_NewsWith&" height="&zf11_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="&zf11_NewsInfoID&" title='"&zf11_NewsTitle&"'>"
    if GetLen(zf11_NewsTitle)>zf11_Newslong then
    response.write LeftStr(zf11_NewsTitle,zf11_Newslong-2)
    response.write "..."
    else
    response.write zf11_NewsTitle
    end if
    response.write "</a>"
    response.write "</td></tr></table>"
    End Function
%>
<%
    '//广告调用
    Function zf11_AD(AD_ID)
    set ADRS=server.createobject("adodb.recordset")
    sql="select top 1 AD_ID,AD_Title,AD_Http,AD_width,blank,AD_height,AD_Pic,AD_Note from Advertise where AD_ID="&AD_ID&""
    ADRS.open sql,conn,1,1
    If ADRS.bof Then
    Response.write"没有广告"
    Else
    if ADRS("AD_http")="" then
    Response.Write("<div align=center>")
    Response.Write("<img src="&ADRS("Ad_Pic")&" width="&ADRS("Ad_width")&" height="&ADRS("Ad_height")&" border=""0""><div>")
    else
    if ADRS("blank")=true then
    Response.Write("<div align=center><a target='_blank' href="&ADRS("Ad_Http")&">")
    Response.Write("<img src="&ADRS("Ad_Pic")&" width="&ADRS("Ad_width")&" height="&ADRS("Ad_height")&" border=""0""></a><div>")
    else
    Response.Write("<div align=center><a href="&ADRS("Ad_Http")&">")
    Response.Write("<img src="&ADRS("Ad_Pic")&" width="&ADRS("Ad_width")&" height="&ADRS("Ad_height")&" border=""0""></a><div>")
    end if
    end if
    End If
    End Function
%>
<%
    '//备用调用代码
    Function zf11_diaoyong()
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=133 background=images/zf11_shardh.gif>"
    response.write "<tr>"
    response.write "<td height=33 style='FILTER: DropShadow(Color=#ffffff, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'>&nbsp;&nbsp;&nbsp;&nbsp;<span style='letter-spacing: 3px'>用户登陆</span></td>"
    response.write "</tr>"
    response.write "<tr>"
    response.write "<td>"
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=100 style='border-left: 1px solid #CECFCE; border-right: 1px solid #CECFCE; border-bottom: 1px solid #CECFCE' bgcolor=#F7F7F7>"
    response.write "<tr>"
    response.write "<td>备用调用</td>"
    response.write "</tr>"
    response.write "</table>"
    response.write "</div>"
    response.write "</td>"
    response.write "</tr>"
    response.write "</table>"
    response.write "</div>"
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=10>"
    response.write "<tr>"
    response.write "<td></td>"
    response.write "</tr>"
    response.write "</table>"
    response.write "</div>"
    End Function
%>
<%'=============================================以下为待处理内容%>
<%
    Function isInt(str)
    Dim L,I
    isInt=False
    If Trim(Str)="" Or IsNull(str) Then Exit Function
    str=CStr(Trim(str))
    L=Len(Str) 
    For I=1 To L
    If Mid(Str,I,1)>"9" Or Mid(Str,I,1)<"0" Then Exit Function
    Next 
    isInt=True
    End Function
%>
<%
    Function GetLen(str)
    Dim l, t, c, i
    l = Len(str)
    t = l
    For i = 1 To l
    c = Asc(Mid(str, i, 1))
    If c < 0 Then c = c + 65536
    If c > 255 Then t = t + 1
    Next
    GetLen = t
    End Function
%>
<%
    Function CheckStr(Str) 
    If Trim(Str)="" Or IsNull(str) Then Exit Function
    Checkstr=Replace(Trim(Str),"'","''")
    End Function
%>
<%
    Function LeftStr(text,length)  
    Dim t
    t=""
    Dim mt
    Dim l
    l=0
    Dim c
    For i= 1 To Len(text)
    mt=mid(text,i,1)
    c=Asc(mt)
    If c<0 Then c=c+65536
    If c > 255 Then
    l=l+2
    Else 
    l=l+1
    End If
    If l<=CLng(length) Then
    t=t&mt
    else
    exit for
    End If
    Next
    LeftStr=t
    End Function
%>
<%
    Function post_chk()
    dim server_v1,server_v2
    post_chk=False
    server_v1=Request.ServerVariables("HTTP_REFERER")
    server_v2=Request.ServerVariables("SERVER_NAME")
    if mid(server_v1,8,len(server_v2))=server_v2 then post_chk=True:exit function
    end Function
%>
<%
    Rem Pw_Sys 把空格换成&nbsp和把换行换成<br>
    function Pw_changstr(str)
    str=Replace(str, Chr(32), "&nbsp;")'
    str=Replace(str, vbCrLf, "<br>") '把换行换成<br>
    response.Write(""&str&"")
    end function
%>

<%

Rem Pw_Sys 日期格式转换函数

function DateTimeFormat(DateTime,Format) 
select case Format
case "1"
 DateTimeFormat=""&year(DateTime)&"年"&month(DateTime)&"月"&day(DateTime)&"日"
case "2"
 DateTimeFormat=""&month(DateTime)&"月"&day(DateTime)&"日"
case "3" 
 DateTimeFormat=""&year(DateTime)&"-"&month(DateTime)&"-"&day(DateTime)&""
case "4" 
 DateTimeFormat=""&year(DateTime)&"/"&month(DateTime)&"/"&day(DateTime)&""
case "5"
 DateTimeFormat=""&month(DateTime)&"/"&day(DateTime)&""
case "6"
 DateTimeFormat=""&year(DateTime)&"年"&month(DateTime)&"月"&day(DateTime)&"日<font color=red> "&FormatDateTime(DateTime,4)&"</font>"
case "7"
   temp="星期日,星期一,星期二,星期三,星期四,星期五,星期六"
   temp=split(temp,",") 
   DateTimeFormat=temp(Weekday(DateTime)-1)
case else
 DateTimeFormat=DateTime
end select
end function

%>

<%
Rem Pw_Sys 栏目的显示
Sub zf11_ShowSort()
response.write "<table width=""90%"" border=""0"" align=""center"" cellpadding=""1"" cellspacing=""1"">"& vbCrLf
Set Rs=conn.execute("select * from zf11_type where zf11_big_id=0 and zf11_setting order by S_order")
if Rs.eof and Rs.bof then
response.write "还没有任何栏目"
else
do while not Rs.eof
set names=rs("zf11_names")
set id=rs("id")
response.write "<tr><td colspan=""2"">"& vbCrLf
response.write "<a href=type.asp?zf11id="&ID&">"&names&"</a>"
response.write "</td></tr><tr> "& vbCrLf
if Rs("zf11_setting")<5  and Rs("zf11_setting")<>3 then
Set RsClass=Conn.Execute("Select * from zf11_type where zf11_big_id="& Rs("ID") &" order by zf11_order")
do while not RsClass.eof
response.write "<tr><td width=""36%"" align=""right""><img src=""Images/zf11_ico.gif"" width=""12"" height=""11"" align=""absmiddle""></td>"& vbCrLf
response.write "<td width=""64%"">"& vbCrLf
response.write "<a href='class_type.asp?zf11id="&trim(RsClass("ID"))&"'>"&trim(RsClass("zf11_names"))&"</a>"
response.write "</td></tr><tr> "& vbCrLf
RsClass.movenext
loop
RsClass.close
set RsClass=nothing
end if 
Rs.movenext
loop  
end if  
Rs.close  
set Rs=nothing
response.write "</table>"& vbCrLf
End sub

Rem Pw_Sys 信息条的显示
Function zf11_ShowInfo(s_num,nums,Linenum,S_info,Show_date)
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=""8%""align=""right"" height=""25""  background=""images/table_bg2.gif""><img src=""Images/zf11_ico.gif"" width=""10"" height=""10"" align=""absmiddle""></td><td width=""62%"" height=""25""  background=""images/table_bg2.gif"" ><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
response.write "</a></td>"
response.write "<td width=""30%""align=""left"" height=""25""  background=""images/table_bg2.gif"">"
if Show_date=1 then 
response.write "&nbsp;&nbsp;"
response.write "<font color='#808080'>"
response.write DateTimeFormat(Infors("AddDate"),3)
response.write "</font>"
End if
response.write "</a></td></tr>"
Infors.movenext  
wend
Infors.close
set Infors=nothing
response.write "</table>"
End Function

Function NoPic(zf11_DisInfo)
response.write "<table width=""100"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""3""><tr> "& vbCrLf
response.write "<td><img src=""Images/zf11_nopic.gif"" border=""0""></td>"& vbCrLf
response.write "</tr><tr><td height=""18"">"& vbCrLf
response.write "<div align=""center"">"&zf11_DisInfo&"</div></td>"& vbCrLf
response.write "</tr></table>"& vbCrLf
End Function

Function zf11_ShowPic(zf11_Pic,zf11_InfoID,zf11_Title,zf11_long)
response.write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td>"& vbCrLf
response.write "<TABLE width=""50"" border=0 align=center cellPadding=0 cellSpacing=0>"& vbCrLf
response.write "<TR><TD height=8><IMG height=8 src=""Images/table/bg_0ltop.gif"" width=8></TD>"& vbCrLf
response.write "<TD background=Images/table/bg_01.gif height=8></TD>"& vbCrLf
response.write "<TD height=8><IMG height=8 src=""Images/table/bg_0rtop.gif"" width=8></TD></TR>"& vbCrLf
response.write "<TR><TD width=8 background=Images/table/bg_03.gif></TD>"& vbCrLf
response.write "<TD width=""50"" height=""90"" align=""center"" bgColor=#ffffff><a href=typenews.asp?id="&zf11_InfoID&" Title='"&zf11_Title&"'><img src="&zf11_Pic&" border=0 width="&imageswidth&" height="&imagesheight&" ></a></TD>"& vbCrLf
response.write "<TD width=8 background=Images/table/bg_04.gif></TD>"& vbCrLf
response.write "</TR><TR><TD height=8><IMG height=8 src=""Images/table/bg_0lbottom.gif"" width=8></TD>"& vbCrLf