index.asp

个人网站模板

                          <input type="submit" name="Submit4" value="回信息">
                          &nbsp;&nbsp; 
                          <input type="reset" name="Submit5" value="不写了">
                        </center>
                      </form>
                      <br>
                    </td>
                  </tr>
                </table>
                <%
else
%>
                <!--回复留言-->
                <%
  if request.querystring("action")="addreply"then
  if session("admin")="admin"then
  replyid=request.querystring("id")
  set rs=server.createobject("adodb.recordset")
  sql="select reply From gbook where id= "+CStr(replyid)
  rs.open sql,conn,1,3
  reply=request.form("reply")
  rs("reply")=deal(reply)
  rs.update
  rs.close
  set rs=nothing
  conn.close
  response.redirect"index.asp"
  else
  response.redirect"index.asp?action=admin"
  end if
  %>
                <%else%>
                <!--删除留言-->
                <%
  if request.querystring("action")="del"then
  if session("admin")="admin"then
  delid=request.querystring("id")
  set rs=server.createobject("adodb.recordset")
  sql="delete * From gbook where id= "+CStr(delid)
  rs.open sql,conn,1,3
  rs.close
  set rs=nothing
  conn.close
   response.redirect"index.asp"
  else
  response.redirect"index.asp?action=admin"
  end if

  %>
                <a href=index.asp class="cm">返回</a> 
                <%
  else
  %>
                <!--添加新留言-->
                <%
 if request.querystring("action")="new"then
tit=request.form("tit")
com=request.form("com")
name=request.form("name")
from=request.form("from")
tel=request.form("tel")
mobile=request.form("mobile")
if tit="" or name=""then%>
                <span class="cm">您好！主题或昵称不可以为空的，请<a href="javascript:history.go(-1)">返回</a>重写！</span><br>
                <a href="javascript:history.go(-1)" class="cm">返回</a> 
                <%else
mail=request.form("mail")
 set rs=server.createobject("adodb.recordset")
 sql="select * from gbook where (id is null)"
 rs.open sql,conn,1,3
 rs.addnew
 
rs("tit")=deal(tit)
rs("com")=deal(com)
rs("name")=deal(name)
rs("from")=deal(from)
rs("tel")=deal(tel)
rs("mail")=deal(mail)
rs("mobile")=deal(mobile)
if request.form("r1")=0 then
rs("sex")=0
else
rs("sex")=1
end if
rs("ip")=Request("REMOTE_ADDR")
rs("date")=now
rs.update
rs.close
set rs=nothing
conn.close
response.redirect "index.asp"%>
                <%end if%>
                
                <%
 else
if request.querystring("action")=""or request.querystring("action")="view"then
page=request.querystring("page")
set rs=server.createobject("adodb.recordset")
sql="select * from gbook order by id desc"
rs.open sql,conn,1,3
maxjilu=rs.recordcount
t=page*6
rs.absoluteposition=t+1
f=t+6
for i=t+1 to f
idd=rs("id")
%>
                <div align="center"> 
                  <center>
                    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="96%" id="AutoNumber5" height="69">
                      <tr> 
                        <td height="20" colspan="4"><b><font color="#333366">&gt;&gt;主题：</font><%=rs("tit")%> <strong><font color="#CC9900">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
                          &nbsp;&nbsp; <font color="#333333"><font color="#333366">来自:</font></font></font></strong> 
                          <%=rs("from")%>&nbsp;<strong><font color="#333366">时间:</font></strong><%=rs("date")%></b></td>
                      </tr>
                      <tr> 
                        <td width="85" height="41" > <font color="#006699" face="Verdana, Arial, Helvetica, sans-serif">昵称：</font><font color="#006600" face="Verdana, Arial, Helvetica, sans-serif"><%=rs("name")%> </font> <center>
                            <% if rs("sex")=0 then
                 response.write("<img src=image/boy.gif>")
                 else
                 response.write("<img src=image/girl.gif>")
                 end if
                 %>
                            <br>
                          </center></td>
                        <td height="41" colspan="3"> <%=rs("com")%><br> <%
                 if rs("reply")<>""then
                 %> 
                          <p> <span class="cm"><font color="#FF0000">公司回复:</font></span><%=rs("reply")%><br>
                            <%end if%>
                        </td>
                      </tr>
                      <tr> 
                        <td height="3"><div align="center"><a href="index.asp?action=reply&id=<%=rs("id")%>"><font color="#FF0000">中营回复</font></a></div></td>
                        <td width="313" height="3" style="font-family: Arial" >&nbsp;</td>
                        <td width="118" height="3" style="font-family: Arial" ><div align="center"><a href="#" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image131','','image/oicq.gif',1)"><img name="Image131" border="0" src="image/oicq.gif" width="16" height="16" alt="<%=rs("tel")%> ">&nbsp;&nbsp;</a><a href="#"><img name="Image101" border="0" src="image/email.gif" width="16" height="16" alt="<%=rs("mail")%>"></a>&nbsp; 
                            <a href="#"><img name="Image111" border="0" src="image/homepage.gif" width="16" height="16" alt="<%=rs("mobile")%>"></a>&nbsp; 
                            <a href="index.asp?action=del&id=<%=rs("id")%>"><img src="image/del.gif" alt="删除" name="Image81" width="16" height="16" border="0"></a></div></td>
                        <td width="10" style="font-family: Arial" >&nbsp;</td>
                      </tr>
                      <tr bgcolor="#003366"> 
                        <td height="1" colspan="4"> 
                          </td>
                      </tr>
                    </table>
                  </center>
                </div>
                <%
             rs.movenext      
          if rs.eof then
exit for
rs.close 
conn.close
end if
next
tt=page*6
    if page<0 then
   page=0
   end if
   if tt>=maxjilu then
   ttt=page-1
   end if
   if maxjilu-tt<6 then
   ttt=page-1
      else
   ttt=page
   end if
   u=1
   do while u*6<maxjilu
   u=u+1
   loop
session("page")=ttt

             %>
                <div align="center"> 
                  <center>
                    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="96%" id="AutoNumber5">
                      <tr> 
                        <td  height="56"> <p align="right"><font color="#663300">总共 
                            <font color="#ff0000"><%=u%></font><font color="#663300"><span class="cm"> 
                            页 第</span></font> <font color="#FF0000"><%=(page+1)%> </font>页| <span class="cm"><font color="#003366"><a href="index.asp?page=0">首页</a></font></span>-<span class="cm"><a href=index.asp?page=<%=(ttt-1)%>>前一页</a>-<a href="index.asp?page=<%=(ttt+1)%>">下一页</a>-<a href=index.asp?page=<%=(u-1)%>>尾页</a> 
                            <%
  if ttt<=6 then
  uu=0
  while uu<u 
   %>
                            <a href=index.asp?page=<%=(uu)%>>[<%=(uu+1)%>]</a> 
                            <%uu=uu+1
 wend
  else%>
                            <a href=index.asp?page=<%=(ttt-2)%>>[<%=(ttt-3)%>]</a> <a href=index.asp?page=<%=(ttt-1)%>>[<%=(ttt-2)%>]</a> <a href=index.asp?page=<%=(ttt)%>>[<%=(ttt-1)%>]</a> <a href=index.asp?page=<%=(ttt+1)%>>[<%=(ttt)%>]</a> <a href=index.asp?page=<%=(ttt+2)%>>[<%=(ttt+1)%>]</a></span></font> 
                            <%end if%>
                            <%
      end if
      end if
      end if
      end if
      end if
      end if
      end if
      %>
                            <br>
                        </td>
                      </tr>
                    </table>
                  </center>
                </div>
              </td>
            </tr>
          </table>
          <div align="center"> 
            <center>
            </center>
          </div>
        </td>
      </tr>
    </table>
  </center>
</div>
</body>
</html>