www.gusucode.com > 艺帆全站DIV+CSS体育用品公司网站源码 1.7.5源码程序 > qz08txt.asp
<%function OneF_news(m,n)'首页文章列表%> <%
set right_news=server.createobject("adodb.recordset")
exec="select top "&n&" * from [news] where ssfl="&m&" order by data desc "
right_news.open exec,conn,1,1
if right_news.eof and right_news.bof then
response.Write(" 暂无新闻 !")
end if
%>
<%
i=1
do while not right_news.eof
dim right_url,right_color
if IsNull(right_news("url")) or trim(right_news("url")&"")="" then
right_url="/ShowNews/?"&right_news("id")&"-1.html"
else
right_url=""&right_news("url")&""
end if
if IsNull(right_news("color")) or trim(right_news("color")&"")="" then
right_color="#fff"
else
right_color=""&right_news("color")&""
end if
%>
<li><a href="<%=right_url%>" style="color:<%=right_color%>;"><%=i5808(right_news("title"),26)%></a></li>
<%
if i mod 1 =0 then
end if
i=i+1
right_news.movenext
loop
right_news.close
set right_news=nothing
%>
<%end function%>
<%function OneF_news_tuijian(m,n)'首页文章列表%> <%
set right_news=server.createobject("adodb.recordset")
exec="select top "&n&" * from [news] where ssfl="&m&" and tuijian=1 order by data desc "
right_news.open exec,conn,1,1
if right_news.eof and right_news.bof then
response.Write(" 暂无新闻 !")
end if
%>
<%
i=1
do while not right_news.eof
dim right_url,right_color
if IsNull(right_news("url")) or trim(right_news("url")&"")="" then
right_url="/ShowNews/?"&right_news("id")&"-1.html"
else
right_url=""&right_news("url")&""
end if
if IsNull(right_news("color")) or trim(right_news("color")&"")="" then
right_color="#00a0e9"
else
right_color=""&right_news("color")&""
end if
%>
<h2 class="title"><img src="<%=right_news("img")%>" alt="<%=right_news("title")%>" width="60" height="60" /><strong><%=i5808(right_news("title"),28)%></strong></h2>
<p><%=i5808(right_news("body"),126)%></p>
<p class="readmore"><a href="<%=right_url%>" style="color:<%=right_color%>;"><%=i5808(right_news("title"),26)%></a></p>
<%
if i mod 1 =0 then
end if
i=i+1
right_news.movenext
loop
right_news.close
set right_news=nothing
%>
<%end function%>
<%function OneF_Product(m,n,w,h)'首页产品显示%>
<%
set new_products=server.createobject("adodb.recordset")
exec="select top "&n&" * from [products] where BigClassID="&m&" order by data desc "
new_products.open exec,conn,1,1
if new_products.eof and new_products.bof then
response.Write(" 暂无新产品 !")
end if
%>
<%
dim np
np=1
do while not new_products.eof
%>
<li><a href="/ShowProducts/?<%=new_products("id")%>-1.html" title="<%=new_products("title")%>"><img src="<%=new_products("img")%>" width="<%=w%>" height="<%=h%>" alt="<%=new_products("title")%>"/></a><br><%=i5808(new_products("title"),15)%></li>
<%
if np mod 2 =0 then
end if
np=np+1
new_products.movenext
loop
new_products.close
set new_products=nothing
%>
<%end function%>
<%function OneF_Product_tuijian(m,n,w,h)'首页产品推荐显示%>
<%
set tuijian=server.createobject("adodb.recordset")
exec="select top "&n&" * from [products] where tuijian="&m&" order by data desc "
tuijian.open exec,conn,1,1
if tuijian.eof and tuijian.bof then
response.Write(" 暂无推荐产品 !")
end if
%>
<%
dim ii
ii=1
do while not tuijian.eof
%>
<a href="/ShowProducts/?<%=tuijian("id")%>-1.html" title="<%=tuijian("title")%>"><img src="<%=tuijian("img")%>" width="<%=w%>" height="<%=h%>" alt="<%=tuijian("title")%>"/></a> <%
if ii mod 2 =0 then
end if
ii=ii+1
tuijian.movenext
loop
tuijian.close
set tuijian=nothing
%>
<%end function%>
<%function ShowNews_next()'文章上一页下一页调用文件%>
<%
dim rstmp, nexttitle, prevtitle
set rstmp=server.CreateObject("adodb.recordset")
rstmp.open "select top 1 id, title from news where id>" & ad & " order by id asc",conn,1,1
if not rstmp.eof then
nexttitle="<a href=""/ShowNews/?" & rstmp(0) & "-1.html"">" & InterceptString(rstmp(1),60) & "</a>"
else
nexttitle = "无"
end if
rstmp.close
rstmp.open "select top 1 id, title from news where id<" & ad & " order by id desc"
if not rstmp.eof then
prevtitle="<a href=""/ShowNews/?" & rstmp(0) & "-1.html"">" & InterceptString(rstmp(1),60) & "</a>"
else
prevtitle = "无"
end if
rstmp.close
set rstmp=nothing
%>
上条新闻：<%=prevtitle%><br />
下条新闻：<%=nexttitle%>
<%end function%>
<%function job_left'人才招聘导航%>
<%
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select top 10 * from job order by id desc",conn,1,1
if rs2.eof and rs2.bof then
response.Write(" 暂无记录 !")
end if
while not rs2.eof
response.Write("<li><a href=""/yp/?" & rs2("id") & "-1.html"" title=""" & rs2("title") &""">" & InterceptString(rs2("title"),26) & "</a></li>")
rs2.movenext
wend
rs2.close
set rs2=nothing
%>
<%end function%>
<%function Yifan_about_key'单页关键词%>
<%if rs("keywords")="" then %><%=rs("title")%>,<%=TD_keywords%><%else%><%=rs("keywords")%><%end if%>
<%end function%>
<%function Yifan_about_des'单页描述%>
<%if rs("description")="" then %><%=i5808(rs("body"),200)%><%else%><%=rs("description")%><%end if%>
<%end function%>
<%function Yifan_news_key'新闻关键词%>
<%if daohang("keywords")="" then %><%=daohang("title")%>,<%=TD_keywords%><%else%><%=daohang("keywords")%><%end if%>
<%end function%>
<%function Yifan_news_des'新闻描述%>
<%if daohang("description")="" then %><%=daohang("title")%>,<%=TD_home%><%else%><%=daohang("description")%><%end if%>
<%end function%>
<%function Yifan_shownews_key'新闻内容关键词%>
<%if rs("keywords")="" then %><%=rs("title")%>,<%=TD_keywords%><%else%><%=rs("keywords")%><%end if%>
<%end function%>
<%function Yifan_shownews_des'新闻内容描述%>
<%if rs("description")="" then %><%=i5808(rs("body"),200)%><%else%><%=rs("description")%><%end if%>
<%end function%>
<%function Yifan_BigClass_key'产品大类关键词%>
<%if daohan("keywords")="" then %><%=daohan("BigClassName")%>,<%=TD_keywords%><%else%><%=daohan("keywords")%><%end if%>
<%end function%>
<%function Yifan_BigClass_des'产品大类描述%>
<%if daohan("description")="" then %><%=daohan("BigClassName")%>,<%=TD_home%><%else%><%=daohan("description")%><%end if%>
<%end function%>
<%function Yifan_SmallClass_key'产品小类关键词%>
<%if daohan("keywords")="" then %><%=daohan("SmallClassName")%>,<%=TD_keywords%><%else%><%=daohan("keywords")%><%end if%>
<%end function%>
<%function Yifan_SmallClass_des'产品小类描述%>
<%if daohan("description")="" then %><%=daohan("SmallClassName")%>,<%=TD_home%><%else%><%=daohan("description")%><%end if%>
<%end function%>
<%function Yifan_showProducts_key'产品内容关键词%>
<%if rs("keywords")="" then %><%=rs("title")%>,<%=bigClass("BigClassName")%>,<%=smallclass("SmallClassName")%><%else%><%=rs("keywords")%><%end if%>
<%end function%>
<%function Yifan_showProducts_des'产品内容描述%>
<%if rs("description")="" then %><%=i5808(rs("body"),200)%><%else%><%=rs("description")%><%end if%>
<%end function%>
<%function Yifan_Download_key'下载分类关键词%>
<%if daohang("keywords")="" then %><%=daohang("title")%>,<%=TD_keywords%><%else%><%=daohang("keywords")%><%end if%>
<%end function%>
<%function Yifan_Download_des'下载分类描述%>
<%if daohang("description")="" then %><%=daohang("title")%>,<%=TD_home%><%else%><%=daohang("description")%><%end if%>
<%end function%>
<%function Yifan_ShowDownload_key'下载内容关键词%>
<%if rs("keywords")="" then %><%=rs("title")%>,<%=TD_keywords%><%else%><%=rs("keywords")%><%end if%>
<%end function%>
<%function Yifan_ShowDownload_des'下载内容描述%>
<%if rs("description")="" then %><%=i5808(rs("body"),200)%><%else%><%=rs("description")%><%end if%>
<%end function%>
<%function Yifan_yp_key'人才招聘关键词%>
<%if rs("keywords")="" then %><%=rs("title")%>,<%=TD_keywords%><%else%><%=rs("keywords")%><%end if%>
<%end function%>
<%function Yifan_yp_des'人才招聘描述%>
<%if rs("description")="" then %><%=TD_home%>招聘<%=rs("title")%>职位人才<%else%><%=rs("description")%><%end if%>
<%end function%>
<%function Yifan_yzm'验证码标签%>
<script language="javascript">
<!--//
var show_VerifyCode = false;
function get_VerifyCode() {
var chkCodeFile = "/getcode.asp";
if(!show_VerifyCode){
if(document.getElementById("img_VerifyCode"))
document.getElementById("img_VerifyCode").innerHTML = '<img id="VerifyCodeimg" src="'+chkCodeFile+'?t='+Math.random()+'" alt="点击刷新验证码" style="cursor:pointer;border:0;vertical-align:middle;height:18px;" onclick="this.src=\''+chkCodeFile+'?t=\'+Math.random()" />'
show_VerifyCode = true;
if(document.getElementById("isok_VerifyCode"))
document.getElementById("isok_VerifyCode");
}
}
//-->
</script><table width="162" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="46"> <input name="VerifyCode" type="text" class="yifancms" id="VerifyCode" size="5" maxlength="4" onFocus="get_VerifyCode();this.onfocus=null;" onKeyUp="ajaxVerifyCode('check_code','VerifyCode');" /></td>
<td width="220"><span id="img_VerifyCode">
<label style="cursor:pointer;" onClick="get_VerifyCode();">获取验证码</label></span><span id="isok_VerifyCode"></span></td>
</tr>
</table>
<%end function%><!--#include file="qz081.7.5.asp" -->