%
Call SiteInfo()
If ISHTML = 1 Then
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
End If
If request.QueryString("ID") = "" Then
SeoTitle = "关于我们"
ElseIf Not IsNumeric(request.QueryString("ID")) Then
SeoTitle = "参数错误"
ElseIf conn.Execute("select * from Qianbo_About Where ViewFlag and ID="&request.QueryString("ID")).EOF Then
SeoTitle = "参数错误"
Else
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from Qianbo_About where ViewFlag and ID="&request.QueryString("ID")
rs.Open sql, conn, 1, 1
SeoTitle = rs("AboutName")
rs.Close
Set rs = Nothing
End If
%>
<%
Dim rs, sql
Set rs = server.CreateObject("adodb.recordset")
If request.QueryString("ID") = "" Or Not IsNumeric(request.QueryString("ID")) Then
sql = "select top 1 * from Qianbo_About where ViewFlag and not ChildFlag order by Sequence asc"
Else
sql = "select * from Qianbo_About where ViewFlag and ID="&request.QueryString("ID")
End If
rs.Open sql, conn, 1, 3
If rs.EOF Then
%>
暂无相关信息
<%
Else
If ViewNoRight(rs("GroupID"), rs("Exclusive")) Then
%>
<%=rs("AboutName")%>
更新时间:<%=FormatDate(rs("UpdateTime"),13)%>
浏览次数:
<%=rs("Content")%>
<%
Else
%>
<%
End If
rs.update
End If
rs.Close
Set rs = Nothing
%>
<%
Function WebMenu()
Dim rs, sql
Set rs = server.CreateObject("adodb.recordset")
sql = "select ID,AboutName from Qianbo_About where ViewFlag and not ChildFlag order by Sequence asc"
rs.Open sql, conn, 1, 1
If rs.EOF Then
response.Write "
暂无相关信息
"
Else
Do
If ISHTML = 1 Then
AutoLink = ""&AboutNameDiy&""&Separated&""&rs("ID")&"."&HTMLName&""
Else
AutoLink = "about.asp?id="&rs("ID")&""
End If
response.Write ""&rs("AboutName")&""&vbCrLf
rs.movenext
Loop Until rs.EOF
End If
rs.Close
Set rs = Nothing
End Function
Function WebLocation()
WebLocation = " 当前位置:首页 - 关于金凤 - "&vbCrLf
Dim rs, sql
Set rs = server.CreateObject("adodb.recordset")
If request.QueryString("ID") = "" Or Not IsNumeric(request.QueryString("ID")) Then
sql = "select top 1 * from Qianbo_About where ViewFlag and not ChildFlag order by Sequence asc"
Else
sql = "select * from Qianbo_About where ViewFlag and ID="&request.QueryString("ID")
End If
rs.Open sql, conn, 1, 1
If rs.EOF Then
WebLocation = WebLocation&"参数错误"
Else
WebLocation = WebLocation&""&rs("AboutName")&""
End If
rs.Close
Set rs = Nothing
End Function
%>