<% set rs= Server.CreateObject("adodb.recordset") sql="select top 6 * from board order by ID Desc" rs.open sql,conn,1,1 do while not rs.eof %> <%rs.movenext loop%>
', 'newwindow', 'height=300, width=460, top=200,left=280 toolbar=0, menubar=0, scrollbars=0, resizable=0, location=0, status=0,mode=0')" style='color:#000'><%=left(rs("title"),10)%>
<% keyno=request.QueryString("idstr") set rs=server.CreateObject("adodb.recordSet") sql="select * from news where bigclassid=142 order by newsId desc" rs.open sql,conn,1,1 if rs.bof or rs.eof then response.Write("暂无信息!") else %>
<%do while not rs.eof title=rs("title") UpdateTime=split(rs("UpdateTime")," ") times=UpdateTime(0) picname=rs("picname") %> <% rs.movenext loop end if %>
<% set rs=server.CreateObject("adodb.recordSet") sql="select top 14 * from news where bigclassid=155 order by NewsID desc" rs.open sql,conn,1,1 dim k k=1 do while not rs.eof titles=rs("title") idstr=rs("NewsID") %> <% if k mod 2=0 then response.Write("") end if rs.movenext k=k+1 loop %>
更多>>
 
<% set rs=server.CreateObject("adodb.recordSet") sql="select top 7 * from news where bigclassid=143 order by NewsID desc" rs.open sql,conn,1,1 if rs.bof or rs.eof then titles="暂时没有信息!" end if if rs.eof and rs.bof then response.Write("暂时没有记录") else do while not rs.eof titles=rs("title") dates=split(rs("UpdateTime")) da=dates(0) das=split(da,"-") dass=das(1) dasss=das(2) dassss=dass&"-"&dasss hits=rs("click") idstr=rs("NewsID") %>
<%=left(titles,10)%> <%=dassss%>
<% rs.movenext loop end if %>
更多>>
 
<%dim num1,rndnum Randomize Do While Len(rndnum)<4 num1=CStr(Chr((57-48)*rnd+48)) rndnum=rndnum&num1 loop session("verifycode")=rndnum %>
 黄河艺术品网 欢迎您!
 请您先 登录注册
用户名:
密  码:
验证码:  " style="border:0;width:30px;background: transparent;color:#000" />
 
新用户注册  取回登录密码
 
   
<% Set ClassRs=Server.CreateObject("Adodb.RecordSet") ClassSQL="Select Top 5 * from YiShuInfo Where TypeName='陶瓷类' And TuiJian=1 Order By ID Desc" ClassRs.Open ClassSQL,Conn,1,1 If ClassRs.Eof And ClassRs.Bof Then Response.Write("暂无信息!") Else Do While Not ClassRs.Eof Title=ClassRs("Title") TypeNameS=ClassRs("TypeName") ID=ClassRs("ID") TimeDate=FormAtDateTime(ClassRs("TimeS"),2) TimeArray=Split(TimeDate,"-") TimeS=TimeArray(1)&"-"&TimeArray(2) %>
<%=Left(Title,12)%> <%=TimeS%>
<% ClassRs.MoveNext Loop End If ClassRs.Close() %>
  更多>>
  <% ClassSQL="Select Top 5 * from YiShuInfo Where TypeName='玉石类' And TuiJian=1 Order By ID Desc" ClassRs.Open ClassSQL,Conn,1,1 If ClassRs.Eof And ClassRs.Bof Then Response.Write("暂无信息!") Else Do While Not ClassRs.Eof Title=ClassRs("Title") TypeNameS=ClassRs("TypeName") ID=ClassRs("ID") TimeDate=FormAtDateTime(ClassRs("TimeS"),2) TimeArray=Split(TimeDate,"-") TimeS=TimeArray(1)&"-"&TimeArray(2) %>
<%=Left(Title,12)%> <%=TimeS%>
<% ClassRs.MoveNext Loop End If ClassRs.Close() %>
  更多>>
  <% ClassSQL="Select Top 5 * from YiShuInfo Where TypeName='金属类' And TuiJian=1 Order By ID Desc" ClassRs.Open ClassSQL,Conn,1,1 If ClassRs.Eof And ClassRs.Bof Then Response.Write("暂无信息!") Else Do While Not ClassRs.Eof Title=ClassRs("Title") TypeNameS=ClassRs("TypeName") ID=ClassRs("ID") TimeDate=FormAtDateTime(ClassRs("TimeS"),2) TimeArray=Split(TimeDate,"-") TimeS=TimeArray(1)&"-"&TimeArray(2) %>
<%=Left(Title,12)%> <%=TimeS%>
<% ClassRs.MoveNext Loop End If ClassRs.Close() %>
  更多>>
   
<% ClassSQL="Select Top 5 * from YiShuInfo Where TypeName='工艺类' And TuiJian=1 Order By ID Desc" ClassRs.Open ClassSQL,Conn,1,1 If ClassRs.Eof And ClassRs.Bof Then Response.Write("暂无信息!") Else Do While Not ClassRs.Eof Title=ClassRs("Title") TypeNameS=ClassRs("TypeName") ID=ClassRs("ID") TimeDate=FormAtDateTime(ClassRs("TimeS"),2) TimeArray=Split(TimeDate,"-") TimeS=TimeArray(1)&"-"&TimeArray(2) %>
<%=Left(Title,12)%> <%=TimeS%>
<% ClassRs.MoveNext Loop End If ClassRs.Close() %>
  更多>>
  <% ClassSQL="Select Top 5 * from YiShuInfo Where TypeName='书画类' And TuiJian=1 Order By ID Desc" ClassRs.Open ClassSQL,Conn,1,1 If ClassRs.Eof And ClassRs.Bof Then Response.Write("暂无信息!") Else Do While Not ClassRs.Eof Title=ClassRs("Title") TypeNameS=ClassRs("TypeName") ID=ClassRs("ID") TimeDate=FormAtDateTime(ClassRs("TimeS"),2) TimeArray=Split(TimeDate,"-") TimeS=TimeArray(1)&"-"&TimeArray(2) %>
<%=Left(Title,12)%> <%=TimeS%>
<% ClassRs.MoveNext Loop End If ClassRs.Close() %>
  更多>>
  <% ClassSQL="Select Top 5 * from YiShuInfo Where TypeName='综合类' And TuiJian=1 Order By ID Desc" ClassRs.Open ClassSQL,Conn,1,1 If ClassRs.Eof And ClassRs.Bof Then Response.Write("暂无信息!") Else Do While Not ClassRs.Eof Title=ClassRs("Title") TypeNameS=ClassRs("TypeName") ID=ClassRs("ID") TimeDate=FormAtDateTime(ClassRs("TimeS"),2) TimeArray=Split(TimeDate,"-") TimeS=TimeArray(1)&"-"&TimeArray(2) %>
<%=Left(Title,12)%> <%=TimeS%>
<% ClassRs.MoveNext Loop End If ClassRs.Close() Set ClassRs=Nothing %>
  更多>>
 
     
<% set rs=server.CreateObject("adodb.recordSet") sql="select top 7 * from provide where info_class=1 and tuijian=1 order by chushouID desc" rs.open sql,conn,1,1 if rs.bof or rs.eof then titles="暂时没有信息!" end if if rs.eof and rs.bof then response.Write("暂时没有记录") else do while not rs.eof keyno=rs("chushouID") titles=rs("title") dates=split(rs("times")) da=dates(0) das=split(da,"-") dass=das(1) dasss=das(2) dassss=dass&"-"&dasss %>
<%=left(titles,15)%> <%=dassss%>
<% rs.movenext loop end if %>
<% set rs=server.CreateObject("adodb.recordSet") sql="select top 7 * from provide where info_class=2 and tuijian=1 order by chushouID desc" rs.open sql,conn,1,1 if rs.bof or rs.eof then titles="暂时没有信息!" end if if rs.eof and rs.bof then response.Write("暂时没有记录") else do while not rs.eof keyno=rs("chushouID") titles=rs("title") dates=split(rs("times")) da=dates(0) dass=das(1) dasss=das(2) dassss=dass&"-"&dasss %>
<%=left(titles,15)%> <%=dassss%>
<% rs.movenext loop end if %>
更多>>    更多>>   
 
<% set rs=server.CreateObject("adodb.recordSet") sql="select top 6 * from news where bigclassid=145 order by NewsID desc" rs.open sql,conn,1,1 if rs.bof or rs.eof then titles="暂时没有信息!" end if if rs.eof and rs.bof then response.Write("暂时没有记录") else do while not rs.eof titles=rs("title") dates=split(rs("UpdateTime")) da=dates(0) hits=rs("click") idstr=rs("NewsID") %>
<%=left(titles,12)%> <%=da%>
<% rs.movenext loop end if %>
  <% keyno=request.QueryString("idstr") set rs=server.CreateObject("adodb.recordSet") sql="select top 14 * from news where bigclassid=133 order by newsId desc" rs.open sql,conn,1,1 if rs.bof or rs.eof then response.Write("暂无信息!") else %>
<%do while not rs.eof title=rs("title") picname=rs("picname") %> <% rs.movenext loop end if %>
<% set rs=server.CreateObject("adodb.recordSet") sql="select top 1 * from tuijian where TuiJianID=3 order by TuiJianID desc" rs.open sql,conn,1,1 pic=rs("author_Pic") %> " target="_blank">
"> 姓名:<%=rs("name")%>  
 类别:<%=rs("type")%>  
 内容:<%=left(rs("content"),5)%>  
<% pic=rs("times_sub") If Pic<>"" Then Pic_=Split(Pic,"|||") For i=0 To Ubound(Pic_)-1 %> <% Next End If %>
 
<% set rs=server.CreateObject("adodb.recordSet") sql="select top 3 * from Photo where verify=1 order by times desc" rs.open sql,conn,1,1 if rs.eof and rs.bof then response.Write("暂无信息!") else do while not rs.eof %>
" target="_self">" width="120" height="100" border="0" />
标题:  <%=left(rs("Title"),5)%>
拥有人:  <%=left(rs("Name"),5)%>
浏览:  <%=rs("hist")%>次
发布时间  <%da=split(rs("times")," ") daa=da(0) das=split(daa,"-") dass=das(1) dasss=das(2) dassss=dass&"-"&dasss response.Write(dassss) %>
<% rs.movenext loop end if %>
     
<% set rs=server.CreateObject("adodb.recordSet") sql="select top 5 * from guest order by date desc" rs.open sql,conn,1,1 if rs.bof or rs.eof then titles="暂时没有信息!" end if do while not rs.eof dates=split(rs("date")) da=dates(0) %>
  " target="_blank"><%=cutstr(chkstr(rs("title"),1),10,0)%>
<% rs.movenext loop conn.close() set rs=nothing %>
  更多>>
     
天气预报浏览
IP地址查询
飞机票查询
实用工具
卖房租房
星座测试
 
<% set rs=server.CreateObject("adodb.recordSet") sql="select top 5 title,IdeaID,check from idea where check='1' order by IdeaID desc" rs.open sql,conn,1,1 if rs.eof and rs.bof then response.Write("暂无信息!") else do while not rs.eof title=rs("title") IdeaID=rs("IdeaID") %>
<%=title%>
<% rs.movenext loop end if %>