index.asp

鲁门网站系统

<!--=================================================网站访问统计===============================================-->
<%
Sub visitcount()
  strsql="update tblvisitcount set count=count+1"
  conn3.execute(strsql)
  set rs=Server.CreateObject("ADODB.RecordSet")
  strsql=""
  strsql="Select * From tblvisitcount"
  rs.open strsql,conn3,1,1
  rs.movefirst
  response.Write rs("count")
  rs.close
  set rs=nothing
End Sub
%>
<!--=================================================网站注册人数==============================================-->
<%
Sub regcount()
  set rs=Server.CreateObject("ADODB.RecordSet")
  strsql=""
  strsql="Select * From tblMemberInfo"
  rs.open strsql,conn3,1,1
  rs.movefirst
  response.Write rs.recordcount
  rs.close
  set rs=nothing
End Sub
%>
<!--=================================================最新网站公告==============================================-->
<%
Sub newgonggao()
  response.write "<table width='100%' border='0' cellpadding='0' cellspacing='3' class='css'>"
  strsql=""
  strsql="Select top 6 id,Title From TblAnnouncement Order By datetime DESC"
  set rs=Server.CreateObject("ADODB.RecordSet")
  rs.open strsql,conn3,1,1
  Do While not rs.EOF			  
     response.write "<tr><td class='by148'>·<a href=javascript:dic1('include/new.asp?id="&rs("id")&");>"&left(rs("Title"),10)&"</a></td></tr>"
     rs.movenext
  loop
  rs.close
  response.write "</table>"
End Sub
%>
<!--=================================================推荐商品开始==============================================-->
<%
Sub tujianproduct()
  Set rs=Server.CreateObject("ADODB.RecordSet") 
  strsql="Select Top 4 * From tblProductInfo Where ProductPhoto<>'' and shenhe='1' and picshenhe='1' Order By ProductID DESC"	
  rs.Open strsql,conn3,1,1
  rs.movefirst
  if rs.eof or rs.bof then
     response.write "目前没有任何推荐商品"
  else
  response.Write("<table align='center' cellspacing='5'>")
  response.Write("<tr>")
  do while not rs.eof
    response.Write("<td height=112 align='center' valign='top'>")
	   response.Write("<table width=90 height=90 border=0 cellpadding=1 cellspacing=0 bgcolor='#CCCCCC'>")
         response.Write("<tr>")
           response.Write("<td><a href='../../../shopping/html/shop/ProductInfo.asp?ProductID="&rs("ProductID")&"'><img src='"&rs("ProductPhoto")&"' width=90 height=90 border=0 valign='top'></a></td>")
         response.Write("</tr>")
       response.Write("</table>")
       response.Write("<a href='../../../shopping/html/shop/ProductInfo.asp?ProductID="&rs("ProductID")&"'>"&left((rs("ProductName")),6)&"</a></td>")
    rs.movenext
    loop
	rs.close
	set rs=nothing
  response.Write("</tr>")
  response.Write("</table>")
  end if
End Sub
%>
<!--=================================================最新消费驿站==============================================-->
<%Sub tuijianconsume()%>
<!--#Include File="../consume/html/connconsume.asp"-->
<%
    dim i
	i=1
    Set cmdconsume=Server.CreateObject("ADODB.Command")
	cmdconsume.ActiveConnection=connconsume
    cmdconsume.CommandType=1
    cmdconsume.Prepared=true
    cmdconsume.CommandText="Select Top 12 id,name,url,istb From tblconsume Where istj=1 Order By id DESC"
	Set rs=cmdconsume.execute
	
	If not (rs.Bof and rs.Eof) Then
	
    response.Write("<table width='100%' border='0' align='left' cellpadding='0' cellspacing='0'>")
	response.Write("<tr>")
	
	response.Write "<td align='left' valign='top' width='50%'>"
	Do While (not rs.eof and i<7)
	   i=i+1
	   If rs("istb")=True Then
		  link="<a href='"&rs("url")&"' target='_blank'>"&rs("name")&"</a>"
	   Else
		  link="<a href='../../consume/html/cust.asp?id="&rs("id")&"'>"&left((rs("name")),7)&"</a>"
	   End If
	   response.Write("&nbsp;"&link&"<br>")
	   rs.movenext
	loop
	response.Write "</td>"
	
	response.Write "<td align='left' valign='top' width='50%'>"
	Do While (not rs.eof and i<13)
	   i=i+1
	   If rs("istb")=True Then
		  link="<a href='"&rs("url")&"' target='_blank'>"&rs("name")&"</a>"
	   Else
		  link="<a href='../../consume/html/cust.asp?id="&rs("id")&"'>"&left((rs("name")),7)&"</a>"
	   End If
	   response.Write("&nbsp;"&link&"<br>")
	   rs.movenext
	loop
	response.Write "</td>"
	
	response.Write("</tr>")
	response.Write("</table>")
	
	End If
	
	cmdconsume.close
	set cmdconsume=nothing
	rs.close
	set rs=nothing
	connconsume.close
	set connconsume=nothing
  End Sub
%>
<!--=================================================最新购物频道==============================================-->
<%
  Sub tuijianshopping()
    response.Write("<table width='94%' border='0' align='right' cellpadding='0' cellspacing='0'>")
	set rs=Server.CreateObject("ADODB.RecordSet")
	strsql=""
	strsql="Select top 6 * From vwmycounter order by counterid desc"
	rs.open strsql,conn3,1,1
	Do while not rs.Eof
    response.Write("<tr>")
    response.Write("<td width='12' height='18'><span class='l21'><IMG height=7 src='images/fang.gif' width=7></span></td>")
    response.Write("<td height='20' align='left' valign='top'><a href='../../../shopping/html/shop/CounterInfo.asp?UserName="&rs("UserName")&"' class='a2'>"&left((rs("CounterName")),10)&"</a></td>")
    response.Write("</tr>")
    rs.movenext
    loop
    rs.close
    set rs=nothing
    response.Write("</table>")
  End Sub
%>
<!--=================================================最新房产信息==============================================-->
<%
  Sub tuijianhouse()
  response.Write("<table width='94%' height='125' border='0' cellpadding='0' cellspacing='0' class='css'>")
  response.Write("<tr>")
      response.Write("<td width='12'><span class='l21'><IMG height=7 src='images/fang.gif' width=7></span></td>")
      response.Write("<td><span class='by12'>寒玉楼茶坊</span></td>")
  response.Write("</tr>")
  response.Write("<tr>")
      response.Write("<td><span class='l21'><IMG height=7 src='images/fang.gif' width=7></span></td>")
      response.Write("<td><span class='by12'>江都视听保健按摩中心</span></td>")
  response.Write("</tr>")
  response.Write("<tr>")
      response.Write("<td><span class='l21'><IMG height=7 src='images/fang.gif' width=7></span></td>")
      response.Write("<td><span class='by12'>力宝健美中心</span></td>")
  response.Write("</tr>")
  response.Write("<tr>")
      response.Write("<td><span class='l21'><IMG height=7 src='images/fang.gif' width=7></span></td>")
      response.Write("<td><span class='by12'>树一派</span></td>")
  response.Write("</tr>")
  response.Write("<tr>") 
      response.Write("<td><span class='l21'><IMG height=7 src='images/fang.gif' width=7></span></td>")
      response.Write("<td class='by12'>江都夏雪儿服装</td>")
  response.Write("</tr>")
  response.Write("<tr>")
      response.Write("<td><span class='l21'><IMG height=7 src='images/fang.gif' width=7></span></td>")
      response.Write("<td class='by12'>缘木专卖店</td>")
  response.Write("</tr>")
  response.Write("</table>")
  End Sub
%>
<!--=================================================最新教育咨询==============================================-->
<!--#Include File="../edu/conn.asp"-->
<%
  Sub education()
  response.Write("<table width='94%' height='125' border='0' cellpadding='0' cellspacing='0' class='css'>")
  set rs=Server.CreateObject("ADODB.Recordset")
  strsql=""
  strsql="select top 3 id,tname,kemu2,duixiang from tblteacher where shenhe=1 order by id desc"
  rs.open strsql,educonn,1,1
  do while not rs.eof
     response.Write("<tr>")
      response.Write("<td width='12'><span class='l21'><IMG height=7 src='images/fang.gif' width=7></span></td>")
      response.Write("<td><span class='by12'><a href='#' onClick=open('../edu/html/teainfo.asp?id="&rs("id")&"','news','toolbar=no,menubar=no,width=555,height=500');>"&left(rs("tname"),1)&"某 教授")
      temp=left(rs("duixiang"),2)
	  tq=split(rs("kemu2"),",")
	  tmpsql="select id from tblkemu where kemu='"&tq(0)&"'"
	  set rss=educonn.execute(tmpsql)
	  if ((not(rss.eof and rss.bof)) and id<7 ) then
           temp=temp&tq(0)
	  else
		   temp=tq(0)
	  end if
	  response.Write(left(temp,4)&"</a></span></td>")
     response.Write("</tr>")
     rs.movenext
  loop
  set rs=nothing
  strsql=""
  strsql="SELECT TOP 3 tblstudent.id, tblstudent.sname, tblkemu.kemu, tblstudent.kemuys FROM tblstudent INNER JOIN tblkemu ON tblstudent.kemu = tblkemu.id where shenhe=1 ORDER BY tblstudent.id DESC"
  set rss=educonn.execute(strsql)
  do while not rss.eof
     response.Write("<tr>")
      response.Write("<td width='12'><span class='l21'><IMG height=7 src='images/fang.gif' width=7></span></td>")
      response.Write("<td><span class='by12'><a href='#' onClick=open('../edu/html/studinfo.asp?id="&rss("id")&"','news','toolbar=no,menubar=no,width=555,height=500');>"&left(rss("sname"),1)&"某 求教")
	  response.Write(rss("kemuys")&rss("kemu")&"</a></span></td>")
     response.Write("</tr>")
     rss.movenext
  loop
  set rss=nothing
  response.Write("</table>")
  End Sub
%>
<!--=================================================最新旅游天地==============================================-->
<%
  Sub travel()
  response.Write("<table width='94%' height='125' border='0' cellpadding='0' cellspacing='0' class='css'>")
  response.Write("<tr>")
      response.Write("<td width='12'><span class='l21'><IMG height=7 src='images/fang.gif' width=7></span></td>")
      response.Write("<td><span class='by12'>寒玉楼茶坊</span></td>")
  response.Write("</tr>")
  response.Write("<tr>")
      response.Write("<td><span class='l21'><IMG height=7 src='images/fang.gif' width=7></span></td>")
      response.Write("<td><span class='by12'>江都视听保健按摩中心</span></td>")
  response.Write("</tr>")
  response.Write("<tr>")
      response.Write("<td><span class='l21'><IMG height=7 src='images/fang.gif' width=7></span></td>")
      response.Write("<td><span class='by12'>力宝健美中心</span></td>")
  response.Write("</tr>")
  response.Write("<tr>")
      response.Write("<td><span class='l21'><IMG height=7 src='images/fang.gif' width=7></span></td>")
      response.Write("<td><span class='by12'>树一派</span></td>")
  response.Write("</tr>")
  response.Write("<tr>") 
      response.Write("<td><span class='l21'><IMG height=7 src='images/fang.gif' width=7></span></td>")
      response.Write("<td class='by12'>江都夏雪儿服装</td>")
  response.Write("</tr>")
  response.Write("<tr>")
      response.Write("<td><span class='l21'><IMG height=7 src='images/fang.gif' width=7></span></td>")
      response.Write("<td class='by12'>缘木专卖店</td>")
  response.Write("</tr>")
  response.Write("</table>")
  End Sub
%>
<!--=================================================最新企业商务==============================================-->
<%
  Sub tuijianqishang()
    response.Write("<table width='94%' border='0' align='right' cellpadding='0' cellspacing='0' class='css'>")
	set rs=Server.CreateObject("ADODB.RecordSet")
	strsql=""
	strsql="Select top 6 * From Enterprise_Members Order By CorpID DESC"
	rs.open strsql,conn2,1,1
	rs.movefirst
	Do while not rs.eof
    response.Write("<tr>")
	response.Write("<td width='12' height='18'><span class='css'><IMG height=7 src='images/fang.gif' width=7></span></td>")
    response.Write("<td height='20' align='left' valign='top'><a href='../qishang/Enterprise/Company.asp?CorpID="&rs("CorpID")&"' target='_blank'>"&left((rs("CorpName")),13)&"</a></td>")
    response.Write("</tr>")
    rs.movenext
    loop
    rs.close
    set rs=nothing
    response.Write("</table>")
  End Sub
%>
<!--=================================================最新供应信息==============================================-->
<%
  Sub newsupply()
    response.Write("<table width='100%' border='0' cellpadding='2' cellspacing='0' class='text'>")
	set rs=Server.CreateObject("ADODB.RecordSet")
	strsql="Select Top 6 Title,OpportunitiesID,IssueTime,TypeName From Opportunities_All_Info Where ParentID=0 and IsOpen=1 and IsAllow=1 AND TypeID=1 Order By OpportunitiesID DESC"
	rs.open strsql,conn2,1,1
	rs.movefirst
	Do while not rs.eof
    response.Write("<tr>")
    response.Write("<td width='26' align='middle'><IMG height=17 src='images/main_m08.gif' width=26></td>")
    response.Write("<td width='131'><a href='../pingdao/Opportunities/Opportunities_View.asp?OpportunitiesID="&rs("OpportunitiesID")&"' target='_blank'>"&left((rs("Title")),10)&"</a></td>")
    response.Write("<td width='118' align='right'>"&rs("IssueTime")&"</td>")
	rs.movenext
	loop
	rs.close
	set rs=nothing
    response.Write("</tr>")
    response.Write("</table>")
  End Sub
%>
<!--=================================================最新求购信息==============================================-->
<%
  Sub newqiugou()
    response.Write("<table width='100%' border='0' cellpadding='2' cellspacing='0' class='text'>")
	set rs=Server.CreateObject("ADODB.RecordSet")
	strsql="Select Top 6 Title,OpportunitiesID,IssueTime,TypeName From Opportunities_All_Info Where ParentID=0 and IsOpen=1 and IsAllow=1 AND TypeID=2 Order By OpportunitiesID DESC"
	rs.open strsql,conn2,1,1
	rs.movefirst
	Do while not rs.eof
    response.Write("<tr>")
    response.Write("<td width='26' align='middle'><IMG height=17 src='images/main_m08.gif' width=26></td>")
    response.Write("<td width='154'><a href='../pingdao/Opportunities/Opportunities_View.asp?OpportunitiesID="&rs("OpportunitiesID")&"' target='_blank'>"&left((rs("Title")),10)&"</a></td>")
    response.Write("<td width='114' align='right'>"&rs("IssueTime")&"</td>")
	rs.movenext
	loop
	rs.close
	set rs=nothing
    response.Write("</tr>")
    response.Write("</table>")
  End Sub
%>
<!--程序设计：江苏省徐州师范大学 2003 陈伟兵 信息及通讯网络应用技术-->
<!--=================================================本地导航信息==============================================-->
<%
  Sub dhlink(n1,n2)
    set link=Server.CreateObject("MSWC.nextlink")
	sum=link.GetlistCount("include/link.txt")
	For i=n1 To n2
	response.Write("<a href='http://"&link.GetNthURL("include/link.txt",i)&"' target='_blank'>"&link.GetNthDescription("include/link.txt",i)&"</a>&nbsp;")
	next
  End Sub
%>