📄 jxc_function.asp
字号:
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 Gaobei_OnlyPage(Page_T,Page_C)
response.write "<div align=center>"
response.write "<table border=0 cellpadding=0 cellspacing=0 width=550 height=20 background='images/Gaobei_skin/Gaobei_sharedh.gif'>"
response.write "<tr>"
response.write "<TD width='100%' height=20 style='FILTER: DropShadow(Color=#ffffff, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'> <span style='letter-spacing: 3px'>"&Page_T&"</span></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=550 height=5>"
response.write "<tr>"
response.write "<td></td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
response.write "<TABLE style='border: 1px 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
%>
<%
'//高贝网站信息统计
sub SiteCount()
set rscount=server.createobject("adodb.recordset")
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 sort"
rsCount.open sqlCount,conn,1,1
response.write "栏目分类：" & rsCount(0) & "个<br>"
rsCount.close
sqlCount="select sum(Hit) from sort"
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 Gaobei_NewsShowPic(Gaobei_NewsPic,Gaobei_NewsInfoID,Gaobei_NewsTitle,Gaobei_NewsWith,Gaobei_NewsHeight,Gaobei_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=NewsInfo.asp?id="&Gaobei_NewsInfoID&" Title='"&Gaobei_NewsTitle&"'><img src="&Gaobei_NewsPic&" border=0 width="&Gaobei_NewsWith&" height="&Gaobei_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=NewsInfo.asp?id="&Gaobei_NewsInfoID&" title='"&Gaobei_NewsTitle&"'>"
if GetLen(Gaobei_NewsTitle)>Gaobei_Newslong then
response.write LeftStr(Gaobei_NewsTitle,Gaobei_Newslong-2)
response.write "..."
else
response.write Gaobei_NewsTitle
end if
response.write "</a>"
response.write "</td></tr></table>"
End Function
%>
<%
'//高贝广告调用
Function Gaobei_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
%>
<%
'//产品分类调用
Sub ShowSmallClass_Tree()
response.write "<div align=center>"
response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=133 background=images/gaobei_skin/gaobei_shardh.gif>"
response.write "<tr>"
response.write "<td height=33 style='FILTER: DropShadow(Color=#ffffff, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'> <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>"
%>
<SCRIPT language=javascript>
function opencat(cat,img){
if(cat.style.display=="none"){
cat.style.display="";
img.src="images/-.gif";
} else {
cat.style.display="none";
img.src="images/+.gif";
}
}
</Script>
<TABLE cellSpacing=0 cellPadding=0 width="99%" border=0>
<%
dim i
set rsbig = server.CreateObject ("adodb.recordset")
sql="select * from BigClass"
rsbig.open sql,conn,1,1
if rsbig.eof and rsbig.bof then
Response.Write "栏目正在建设中……"
else
i=1
do while not rsbig.eof
%>
<TR>
<TD language=javascript onmouseup="opencat(cat10<%=i%>000, img10<%=i%>000);" id=item$pval[catID]) style="CURSOR: hand" width=34 height=24 align=center><IMG id=img10<%=i%>000 src="images/+.gif"></TD>
<TD width="662"><a href='Product.asp?BigClassName=<%=rsbig("BigClassName")%>'><%=rsbig("BigClassName")%></a></TD>
</TR>
<TR>
<TD id=cat10<%=i%>000 <%if rsbig("BigClassName")=BigClassName then
response.write "style='DISPLAY'"
else
response.write "style='DISPLAY: none'"
end if%> colspan="2">
<%
dim rsSmall,sqls,j
set rsSmall = server.CreateObject ("adodb.recordset")
sqls="select * from SmallClass where BigClassName='" & rsbig("BigClassName") & "' order by SmallClassID"
rsSmall.open sqls,conn,1,1
if rsSmall.eof and rsSmall.bof then
Response.Write "没有小类"
else
j=1
do while not rsSmall.eof
%>
<IMG src="images/+-.gif" align=absMiddle border=0><a href="Product.asp?BigClassName=<%=rsSmall("BigClassName")%>&Smallclassname=<%=rsSmall("SmallClassName")%>"><%=rsSmall("SmallClassName")%></a><BR>
<%
rsSmall.movenext
j=j+1
loop
end if
rsSmall.close
set rsSmall=nothing
%>
</TD>
</TR>
<%
rsbig.movenext
i=i+1
loop
rsbig.close
set rsbig=nothing
end if
%>
</TABLE>
<%
response.write "</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 Sub
%>
<%'=============================================以下为待处理内容%>
<%
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 把空格换成 和把换行换成<br>
function Pw_changstr(str)
str=Replace(str, Chr(32), " ")'
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="星期日,星期一,星期二,星期三,星期四,星期五,星期六"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -