home.asp

不错的ASP整站源代码。在IIS环境下运行都没有问题

<%
   if isempty(request("youid")) or request("youid")="" then
      addtion=""
   else
      addtion="&youid=" & request("youid")
   end if
%> 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tbody> 
  <tr> 
    <td align="center" height="25" bgcolor="#FFD9EC" valign="bottom" background="/makefriends/IMAGES/lift-1.gif"><font color="#E32D3F" class="fontshadow">卡片分类</font></td>
  </tr>
  </tbody> 
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bordercolor="#E32D3F">
  <tr>
    <td bordercolor="#ffe8f0">
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tbody> 
        <tr> 
          <td height="2"></td>
        </tr>
        <%
    dim rst
	set rst=server.CreateObject("ADODB.RecordSet")
	rst.open "select * from type",conn,1
    if rst.EOF then
	   response.write "<tr><td>还没有任何贺卡</td></tr>"
	else
%>
        <tr> 
          <td align="center" onMouseOver="this.className='menuover';" onMouseOut="this.className='menuout';"><a href="index.asp?typeid=0" class="a02">全部贺卡</a></td>
        </tr>
        <%do while NOT rst.EOF%>
        <tr> 
          <td background="../images/hline.gif" height="1"></td>
        </tr>
        <tr> 
          <td align="center" onMouseOver="this.className='menuover';" onMouseOut="this.className='menuout';"><a href="index.asp?typeid=<%=rst("typeid")%>" class="a02"><%=rst("type")%></a></td>
        </tr>
        <%
	    rst.MoveNext
	    loop
	end if
    rst.close
%>
        <tr> 
          <td height="2"></td>
        </tr>
        </tbody> 
      </table>
      <!------------search--------------->
    </td>
  </tr>
</table>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tbody> 
  <tr> 
    <td align="center" height="25" bgcolor="#FFD9EC" valign="bottom" background="/makefriends/IMAGES/lift-1.gif"><font color="#E32D3F" class="fontshadow">贺卡搜索</font></td>
  </tr>
  </tbody> 
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="4" bordercolor="#E32D3F">
  <tr> 
    <td bordercolor="#ffe8f0" valign="middle"> 
      <form action="search.asp" method="post" name="search" onSubmit="return checkinput()">
        <input type="text" name="keyword" size="20" maxlength="30" value="关键字搜索" onFocus=this.value='' class="put">
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tbody> 
          <tr> 
            <td height="3"></td>
          </tr>
          </tbody> 
        </table>
        <select name="typeid" class="put">
          <option selected value="0">全部卡片</option>
          <%
    rst.open "select * from type",conn,1
    do while NOT rst.EOF
%>
          <option value="<%=rst("typeid")%>"><%=rst("type")%></option>
          <%
	    rst.MoveNext
	    loop
    rst.close
%>
        </select>
        <input type="Image" src="../images/search2.gif" align="absmiddle" width="51" height="20" title="查询" id=Image1 name=Image1>
      </form>
      <!--------Top--------->
    </td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tbody> 
  <tr> 
    <td align="center" height="25" bgcolor="#FFD9EC" valign="bottom" background="/makefriends/IMAGES/lift-1.gif"><font color="#E32D3F" class="fontshadow">热门贺卡排行</font></td>
  </tr>
  </tbody> 
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bordercolor="#E32D3F">
  <tr> 
    <td bordercolor="#ffe8f0">
      <table cellpadding="1" cellspacing="0" border="0" width="100%">
        <tr>
          <td height="6"></td>
        </tr>
        <tbody> 
        <%
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 "<tr><td>还没有贺卡</td></tr>"
else
    do while not rs.eof
%>
        <tr>
          <td> ·<a href="write.asp?id=<%response.write rs("articleid") & addtion %>" class="a03"><%=strvalue(rs("title"),19)%></a> 
          </td>
        </tr>
        <%
        rs.movenext
    loop
end if
rs.close
%>
        <tr>
          <td height="6"></td>
        </tr>
        </tbody> 
      </table>
      <!--------New--------->
    </td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tbody> 
  <tr> 
    <td align="center" height="22" bgcolor="#FFD9EC" valign="bottom" background="/makefriends/IMAGES/lift-1.gif"><font color="#E32D3F" class="fontshadow">最近加入贺卡</font></td>
  </tr>
  </tbody> 
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bordercolor="#E32D3F">
  <tr> 
    <td bordercolor="#ffe8f0">
      <table cellpadding="1" cellspacing="0" border="0" width="100%">
        <tbody> 
        <tr>
          <td height="6"></td>
        </tr>
        <%
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 "<tr><td>还没有贺卡</td></tr>"
else
    do while not rs.eof
%>
        <tr>
          <td> ·<a href="write.asp?id=<%response.write rs("articleid") & addtion %>" class="a03"><%=strvalue(rs("title"),19)%></a> 
          </td>
        </tr>
        <%
        rs.movenext
    loop
end if
rs.close
%>
        <tr>
          <td height="6"></td>
        </tr>
        </tbody> 
      </table>
      <%

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))<0 then
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)<=lennum then
strvalue=str
else
p_num=0
x=0
do while not p_num > lennum-2
x=x+1
if asc(mid(str,x,1))<0 then
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

%>
    </td>
  </tr>
</table>