<% 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 %> <% '去掉HTML标记 Public Function Replacehtml(Textstr) Dim Str,re Str=Textstr Set re=new RegExp re.IgnoreCase =True re.Global=True re.Pattern="<(.[^>]*)>" Str=re.Replace(Str, "") Set Re=Nothing Replacehtml=Str End Function Function gotTopic(ByVal str, ByVal strlen) If str = "" Then gotTopic = "" Exit Function End If Dim l, t, c, i, strTemp str = Replace(Replace(Replace(Replace(str, " ", " "), """, Chr(34)), ">", ">"), "<", "<") l = Len(str) t = 0 strTemp = str strlen = CLng(strlen) For i = 1 To l c = Abs(Asc(Mid(str, i, 1))) If c > 255 Then t = t + 2 Else t = t + 1 End If If t >= strlen Then strTemp = Left(str, i) Exit For End If Next If strTemp <> str Then strTemp = strTemp & "…" End If gotTopic = Replace(Replace(Replace(Replace(strTemp, " ", " "), Chr(34), """), ">", ">"), "<", "<") End Function %> <%=diqu%><% =SiteTitle %>

关于我们

<%set rs = server.createobject("adodb.recordset") sql="select * from LiangJingCMS_About where ViewFlagCH and ID=10" rs.open sql,conn,1,1 if not rs.eof then %> <%=left(Replacehtml(rs("contentCH")),420)%> <% else response.write "Sorry, No data" end if rs.close set rs=nothing%> [详细]...

产品中心
++MORE

    <%=Products("0,",28)%>
新闻动态 ++MORE
    <%=WebContentt1("LiangJingCMS_NewsSort",1,"",8,32)%>
<% dim k set rsbig = server.CreateObject ("adodb.recordset") sql="select id,SortNameCH from LiangJingCMS_ProductSort order by sorted desc" rsbig.open sql,conn,1,1 if rsbig.eof and rsbig.bof then Response.Write "栏目正在建设中……" else k=1 do while not rsbig.eof 'if ISHTML=1 then autolink = "productclass"&rsbig("ID")&"-1.html" 'else 'autolink = "ProductList.asp?SortID="&rsbig("ID")&"" 'end if %> <% rsbig.movenext k=k+1 loop rsbig.close set rsbig=nothing end if %>
联系我们
手机:<%=shouji%>
联系人:<%=lianxiren%>
电话: <%=telephone%>
传真:<%=fax%>
网址:<%=siteurl%>
地址: <%=address%>
<% function WebMenuL2(trs2) dim rs,sql,pinyin set rs = server.createobject("adodb.recordset") sql="select top "&trs2&" * from chengshi where ViewFlagCH order by sorted asc" rs.open sql,conn,1,1 do while not rs.eof pinyin=rs("pinyin") links="index_"&pinyin&".html" response.write "
  • "&rs("cname")&"
  • " rs.movenext loop rs.close set rs=nothing end function %>
    <% Function Products(SortPath,trs) dim rs, tr,sql,ProductName,SmallPicPath set rs = server.createobject("adodb.recordset") sql="select top "&trs&" * from LiangJingCMS_Products order by sorted asc" rs.open sql,conn,1,1 if rs.eof then response.write "no info" else for tr=1 to trs if StrLen(rs("ProductNameCH"))<=18 then ProductName=rs("ProductNameCH") else ProductName=StrLeft(rs("ProductNameCH"),16) end If dim idd,leibie idd=rs("SortID") dim rss,sqll set rss=server.createobject("ADODB.recordset") sqll="select id,SortNameCH from LiangJingCMS_ProductSort order by sorted asc" rss.open sqll,conn,1,1 if rss.eof then response.write "no info" else for i=0 to rss.recordcount if idd=rss("id") then leibie=rss("SortNameCH") else rss.movenext if rss.eof then exit for end if next end if rss.close set rss=nothing if lujing=0 then AutoLink = "product"&rs("ID")&"."&HTMLName&"" Else 'AutoLink = "product"&rs("ID")&"."&HTMLName&"" AutoLink = "Product_"&rs("id")&"_"&Result2&".html" 'AutoLink = "ProductView.asp?ID="&rs("id")&"&Result2="&Result2&"" End If SmallPicPath=HtmlSmallPic(rs("SmallPic")) 'Response.Write "
  • &ProductName&"&ProductName&"
  • "&VbCrLf Response.Write "
  • &ProductName&

    "&diqu&""&ProductName&"

  • "&VbCrLf rs.movenext if rs.eof then exit for next end if rs.close set rs=nothing End Function %> <% function WebContentt1(DataFrom,ID,SortPath,fonts,tr) dim rs,sql dim HideSort set rs = server.createobject("adodb.recordset") if ID="" then SortPath="0," elseif not IsNumeric(ID) then 'IsNumeric 函数 '返回 Boolean 值指明表达式的值是否为数字。 response.write "
    No Info
    " exit function elseif conn.execute("select * from "&DataFrom&" Where ViewFlagCH and ID="&ID).eof then response.write "
    No Info
    " exit function else SortPath=conn.execute("select * from "&DataFrom&" Where ViewFlagCH and ID="&ID)("SortPath") conn.execute("update "&DataFrom&" set ClickNumber=ClickNumber+1 Where ID="&ID) end if sql="select * from "&DataFrom&" Where not(ViewFlagCH) 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 ViewFlagCH 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 "&fonts&" * from ["& datafrom &"] where id in("& sqlid &") "&taxis set rs=server.createobject("adodb.recordset") rs.open sql,conn,0,1 while not rs.eof if StrLen(rs("NewsNameCH"))<=tr then NewsName=rs("NewsNameCH") else NewsName=StrLeft(rs("NewsNameCH"),tr) end If 'If ISHTML = 1 Then if lujing=0 then AutoLink = "news"&rs("ID")&"."&HTMLName&"" Else AutoLink = "new_"&rs("id")&"_"&Result2&".html" 'AutoLink = "NewsView.asp?ID="&rs("ID")&"" End If Response.Write "
  • "&diqu&""&NewsName&""&FormatDate(rs("Addtime"),14)&"
  • "&VbCrLf 'Response.Write "
  • "&NewsName&"
  • "&VbCrLf rs.movenext wend else response.write "
    No Info
    " exit function end if rs.close set rs=nothing end function %>