about.asp

来自「生成html的ASP企业站点,可以进行二次开发的」· ASP 代码 · 共 560 行 · 第 1/2 页

  end if
  rs.close
  set rs=nothing
end Function

Function Products(SortPath,trs,tds)
  dim rs,sql,tr,td,ProductName,SmallPicPath
  set rs = server.createobject("adodb.recordset")
  sql="select top "&trs*tds&" * from LiangJingCMS_Products where ViewFlag"&Language&"  order by id desc"
  'sql="select top "&trs*tds&" * from LiangJingCMS_Products where ViewFlag"&Language&" and CommendFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
  'sql="select top "&trs*tds&" * from LiangJingCMS_Products where ViewFlag"&Language&" and NewFlag order by id desc"
  rs.open sql,conn,1,1
  if rs.eof then
    response.write "暂无相关信息"
  else
	for tr=1 to trs
	    Response.Write "  <tr>"&VbCrLf
        for td=1 to tds
	      if StrLen(rs("ProductName"&Language))<=18 then
            ProductName=rs("ProductName"&Language)
	      else
	        ProductName=StrLeft(rs("ProductName"&Language),16)
	      end If
			If ISHTML = 1 Then
				AutoLink = ""&ProName&""&Separated&""&rs("ID")&"."&HTMLName&""
			Else
				AutoLink = "ProductView.asp?ID="&rs("id")&""
			End If
			SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive"))
			 Response.Write "<div class=""producti"">"
	      Response.Write "<div class=""img""><a href="""&AutoLink&"""><img src="""&SmallPicPath&""" alt="""&rs("ProductName"&Language)&""" width=""115"" height=""100"" border=""0"" /></a></div>"
		  Response.Write "<div class=""imgtitle""><a href="""&AutoLink&""" title="""&rs("ProductName"&Language)&""">"&ProductName&"</a></div>"
		  Response.Write "</div>" 
	      rs.movenext
		  if rs.eof then exit for
		next
		if rs.eof then exit for
	next
  end if
  rs.close
  set rs=nothing
End Function


function WebMenu(ParentID,i,level)
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from LiangJingCMS_NewsSort where ViewFlag"&Language&" and ParentID="&ParentID&" order by ID asc"
  rs.open sql,conn,1,1
  if conn.execute("select ID from LiangJingCMS_NewsSort Where ViewFlag"&Language&" and ParentID=0").eof then
    response.write "暂无相关信息"
  end if
  do while not rs.eof
  	If ISHTML = 1 Then
		AutoLink = ""&NewSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&""
	Else
		AutoLink = "NewsList.asp?SortID="&rs("ID")&""
	End If
	if ParentID=0 then
	  response.write "<Li><a href="""&AutoLink&""" target=""_blank"" style=""margin-left:5px;"">"&rs("SortName"&Language)&"</a>"
	else
	  response.write string(i,"　")&"<Li><a href="""&AutoLink&""" target=""_blank"" style=""margin-left:5px;"">"&rs("SortName"&Language)&"</a>"
	end if
    i=i+1
	if i<level then call WebMenu(rs("ID"),i,level)
	i=i-1
	rs.movenext
  loop 
  rs.close
  set rs=nothing
end function
function WebMenup(ParentID,i,level)
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from LiangJingCMS_ProductSort where ViewFlag"&Language&" and ParentID="&ParentID&" order by ID asc"
  rs.open sql,conn,1,1
  if conn.execute("select ID from LiangJingCMS_ProductSort Where ViewFlag"&Language&" and ParentID=0").eof then
    response.write "暂无相关信息"
  end if
  do while not rs.eof
  	If ISHTML = 1 Then
		AutoLink = ""&ProSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&""
	Else
		AutoLink = "ProductList.asp?SortID="&rs("ID")&""
	End If
	if ParentID=0 then
	  response.write "<Li>  <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href="""&AutoLink&""" target=""_blank"" style=""margin-left:5px;"">"&rs("SortName"&Language)&"</a></li>"
	else
	  response.write string(i,"　")&"<Li>  <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href="""&AutoLink&""" target=""_blank"" style=""margin-left:5px;"">"&rs("SortName"&Language)&"</a></li>"
		             
	end if
    i=i+1
	if i<level then call WebMenup(rs("ID"),i,level)
	i=i-1
	rs.movenext
  loop 
  rs.close
  set rs=nothing
end function

function WebMenuL(i)
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select top "&i&" * from LiangJingCMS_FriendLink where ViewFlag"&Language&" order by ID asc"
  rs.open sql,conn,1,1
  do while not rs.eof
  	
	  response.write "<Li>  <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href="""&rs("linkurl")&""" target=""_blank"" style=""margin-left:5px;"">"&rs("LinkName"&Language)&"</a></li>"
	rs.movenext
  loop 
  rs.close
  set rs=nothing
end function

function WebContent(DataFrom,ID,SortPath)
  dim rs,sql
  dim HideSort
  set rs = server.createobject("adodb.recordset")
  if ID="" then
	SortPath="0,"
  elseif not IsNumeric(ID) then
    response.write "<center>暂无相关信息</center>"
	exit function
  elseif conn.execute("select top 6 * from "&DataFrom&" Where ViewFlag"&Language&" and  ID="&ID&" order by id").eof then
    response.write "<center>暂无相关信息</center>"
	exit function
  else
	SortPath=conn.execute("select top 6 * from "&DataFrom&" Where ViewFlag"&Language&" and  ID="&ID&" order by id" )("SortPath")
	conn.execute("update "&DataFrom&" set ClickNumber=ClickNumber+1 Where ID="&ID)
  end if
  sql="select top 6 * from "&DataFrom&" Where not(ViewFlag"&Language&") and Instr(SortPath,'"&SortPath&"')>0"
  rs.open sql,conn,1,1
  while not rs.eof
	HideSort="and not(Instr(SortPath,'"&rs("SortPath")&"')>0) "&HideSort
    rs.movenext
  wend
  rs.close
  dim idCount
  dim pages
      pages=NewInfo
  dim pagec
  dim page
      page=clng(request("Page"))
  dim pagenc
      pagenc=5
  dim pagenmax
  dim pagenmin
  dim pageprevious
  dim pagenext
  datafrom="LiangJingCMS_News"
  dim datawhere
	  datawhere="where ViewFlag"&Language&" and Instr(SortPath,'"&SortPath&"')>0 "&HideSort& " "
  dim sqlid
  dim Myself,PATH_INFO,QUERY_STRING
      PATH_INFO = request.servervariables("PATH_INFO")
	  QUERY_STRING = request.ServerVariables("QUERY_STRING")'
      if QUERY_STRING = "" then
	    Myself = PATH_INFO & "?"
	  elseif Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then
	    Myself= PATH_INFO & "?" & QUERY_STRING & "&"
	  else
	    Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1)
	  end if
  dim taxis
      taxis="order by id desc "
  dim i
  sql="select count(ID) as idCount from ["& datafrom &"]" & datawhere
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,0,1
  idCount=rs("idCount")
  if(idcount>0) then
    if(idcount mod pages=0)then
	  pagec=int(idcount/pages)
   	else
      pagec=int(idcount/pages)+1
    end if
    sql="select id from ["& datafrom &"] " & datawhere & taxis
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1
    rs.pagesize = pages
    if page < 1 then page = 1
    if page > pagec then page = pagec
    if pagec > 0 then rs.absolutepage = page
    for i=1 to rs.pagesize
	  if rs.eof then exit for
	  if(i=1)then
	    sqlid=rs("id")
	  else
	    sqlid=sqlid &","&rs("id")
	  end if
	  rs.movenext
    next
  end if
  if(idcount>0 and sqlid<>"") then
    sql="select top 6 * from ["& datafrom &"] where id in("& sqlid &") "&taxis
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,0,1
	Response.Write "<table width=""98%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&VbCrLf
    while not rs.eof
	If ISHTML = 1 Then
		AutoLink = ""&NewName&""&Separated&""&rs("ID")&"."&HTMLName&""
	Else
		AutoLink = "NewsView.asp?ID="&rs("ID")&""
	End If
	Response.Write "  <tr height=""28"">"&VbCrLf
	Response.Write "    <td style=""background:url(Images/bg2.gif) repeat-x left bottom;"">&nbsp;<img src=""images/arr.gif"" width=""11"" height=""14"" align=""absmiddle"" />&nbsp;&nbsp;<a href="""&AutoLink&""">"&rs("NewsName"&Language)&"</a></td>"&VbCrLf
	Response.Write "    <td align=""center"" style=""background:url(Images/bg2.gif) repeat-x left bottom; color:#999999"">"&FormatDate(rs("Addtime"),13)&"</td>"&VbCrLf
	Response.Write "  </tr>"&VbCrLf
	rs.movenext
    wend
	Response.Write "</table>"&VbCrLf
  else
    response.write "<center>暂无相关信息</center>"
	exit function
  end if
 
  rs.close
  set rs=nothing
end function

function WebMenua()
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from LiangJingCMS_About where ViewFlag"&Language&" 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 "<Li><a href="""&AutoLink&""" target=""_blank"" style=""margin-left:5px;"">"&rs("AboutName"&Language)&"</a></li>"
      rs.movenext
    loop until rs.eof
  end if
  rs.close
  set rs=nothing
end function

function qqa()
Dim connQQstr,connQQ,rssetupQQ,qqonline,adm_qq,adm_qq_name,whereqq,kefuskin,qqskin,qqmsg_on,qqmsg_off,QQ_NAME,QQ,MyQQ,N,sitename
connQQstr = "Provider=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&SERVER.MAPPATH("../QQ/QQ.mdb")
Set connQQ=server.CreateObject("adodb.connection")
connQQ.Open connQQstr
Set rssetupQQ=connQQ.execute("select * from QQsetup") 
qqonline=rssetupQQ("qqonline")
adm_qq= rssetupQQ("adm_qq")
adm_qq_name= rssetupQQ("adm_qq_name")
whereqq=rssetupQQ("whereqq")
kefuskin=rssetupQQ("kefuskin")
qqskin=rssetupQQ("qqskin")
qqmsg_on=rssetupQQ("qqmsg_on")
qqmsg_off=rssetupQQ("qqmsg_off")
msn= rssetupQQ("msn")
msn_name= rssetupQQ("msn_name")
set rssetupQQ=Nothing
QQ_NAME=split(adm_qq_name,",")
QQ=split(adm_qq,",")

for N=0 to UBound(QQ)
Response.write "<li><a target=blank href=tencent://message/?uin="&QQ(n)&"&Site=QQ:"& QQ(n)&"&Menu=yes><img border=""0"" SRC=""Image/QQon4.gif"" alt="&QQ(n)  &">QQ:"& QQ_NAME(n)&"</a></li>"
next
Response.write "<li><a target=blank href=""msnim:chat?contact="&msn&"&Site="&msn&"""><img border=""0"" SRC=""Image/msn.gif"" alt="&msn&" >"&msn&"</a></li>"
if adm_qq<>"" and qqonline=1 then
adm_qq=replace(adm_qq,"，",",")
if isnull(adm_qq_name) or adm_qq_name="" then adm_qq_name=adm_qq
adm_qq_name=replace(adm_qq_name,"，",",")
QQ_NAME=split(adm_qq_name,",")
QQ=split(adm_qq,",")

for N=0 to UBound(QQ)

next
End if
end function
%>
<!--#include file="FocusLoad.asp" -->