相关代码 |
|
if isempty(request("youid")) or request("youid")="" then
addtion=""
else
addtion="&youid=" & request("youid")
end if
%>
卡片分类
dim rst
set rst=server.CreateObject("ADODB.RecordSet")
rst.open "select * from type",conn,1
if rst.EOF then
response.write "还没有任何贺卡"
else
%>
全部贺卡
rst.MoveNext
loop
end if
rst.close
%>
贺卡搜索
全部卡片
rst.open "select * from type",conn,1
do while NOT rst.EOF
%>
rst.MoveNext
loop
rst.close
%>
热门贺卡排行
if typeid="" or IsEmpty(typeid) or typeid=0 then
sql="select top 10 * from learning order by hits desc"
else
sql="select top 10 * from learning where typeid=" & typeid & " order by hits desc"
end if
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof then
response.write "还没有贺卡"
else
do while not rs.eof
%>
·
rs.movenext
loop
end if
rs.close
%>
最近加入贺卡
if typeid="" or IsEmpty(typeid) or typeid=0 then
sql="select top 10 * from learning order by articleid desc"
else
sql="select top 10 * from learning where typeid=" & typeid & " order by articleid desc"
end if
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof then
response.write "还没有贺卡"
else
do while not rs.eof
%>
·
rs.movenext
loop
end if
rs.close
%>
function strlen(str)
dim p_len,xx
p_len=0
strlen=0
if trim(str)"" then
p_len=len(trim(str))
for xx=1 to p_len
if asc(mid(str,xx,1)) strlen=int(strlen) + 2
else
strlen=int(strlen) + 1
end if
next
end if
end function
function strvalue(str,lennum)
dim p_num,x
dim i
if strlen(str) strvalue=str
else
p_num=0
x=0
do while not p_num > lennum-2
x=x+1
if asc(mid(str,x,1)) p_num=int(p_num) + 2
else
p_num=int(p_num) + 1
end if
strvalue=left(trim(str),x)&".."
loop
end if
end function
%>
相关资源 |
|