ly.asp

一对一校友录多班级而且非常漂亮http://free.cnyys.com/my/yhe/DEFAULT.ASP

<!--#include file="head.asp"-->
<!--#include file="UbbCode.asp"-->
<%Function showuserpic(picurl,picwidth,picheight) 
  Const	const_FaceHeight="20|160"
  Const	const_FaceWidth="20|160"
	dim width_xx,height_xx 
	If 	picwidth>160 Then  
		width_xx="width=160" 
	Elseif picwidth>0 then 
		width_xx="width="&picwidth 
	ElseIf picwidth=0 Then 
		width_xx="" 
	End If 
 
	If picheight>Int(Split(const_Faceheight,"|")(1)) Then 
		height_xx="height="&Split(const_FaceWidth,"|")(1) 
	ElseIf picheight>0  Then 
		height_xx="height="&picheight 
	ElseIf picheight=0 Then 
		height_xx="" 
	End If 
	IF lcase(Left(picurl,5))="http:" then 
		Response.Write "<img name='faceimg' border=0 src='" + picurl + "'"  & width_xx & " " & height_xx  & " onload=""javascript:if(this.width>160)   this.width=160"">" 
	ElseIf picurl<>"" and (not isnull(picurl)) Then 
		Response.Write("<img name='faceimg'  border=0 src='"&picurl + "' " & width_xx & " " & height_xx & " onload=""javascript:if(this.width>160)   this.width=160"">") 
	End If 
End Function %>
<TABLE style="BORDER-RIGHT: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid" 
cellSpacing=0 cellPadding=0 width=778 align=center bgColor=#ffffff>
  <TBODY>
  <TR vAlign=top>
    <TD bgColor=#cccccc><IMG height=1 alt="" src="image/stu.htm" width=1 
      name=""></TD>
    <TD>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center 
      bgColor=#ffffff border=0>
        <TBODY>
        <TR>
          <TD height=8 bgColor=#f4f4f4></TD></TR>
          <TD>
 <TABLE id=AutoNumber3 style="BORDER-COLLAPSE: collapse" 
            cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD vAlign=top height=52>
                  <TABLE id=AutoNumber5 style="BORDER-COLLAPSE: collapse" 
                  borderColor=#111111 cellSpacing=0 cellPadding=3 width="100%" 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD class=6 width=495 background=image/type_bg.gif 
                      height=30><IMG height=12 src="image/type01.gif" width=12 
                        align=absMiddle> <span style="color: #CC3300">当前位置:</span> <a href="index.asp"><font color="#FF6699">网站首页</font></a> - <a href="ly.asp"><font color="#FF6699">学校留言</font></a></TD>
                      <TD width=100 background=image/type_bg.gif>
                        <DIV align=center><IMG 
                        src="image/more.gif" 
                    border=0></DIV></TD></TR><TR>
                      <TD colSpan=2>
                        <DIV align=center>
<%dim username,sql,type2,ad,id,use,re
id =request.querystring("id")
username=Session("wzname")
use=request.querystring("use")
ad=request.querystring("ad")
type2=Request.QueryString("type2")
Select Case type2
	Case "show":
		 call show
 Case "edit":
		Call edit
	Case "del":
		Call del
	Case "add":
		Call add
		Case "add2":
		Call add2
	Case "cz":
		Call cz
	Case Else:
		 call show
End Select 
sub show
Dim rs,cur,rowcount,i,clas
 clas=Session("clas")
	set rs=Server.CreateObject("Adodb.Recordset")
	sql="select user.*, ly.* from ly,user where user.username=ly.username and class = '1' order by ly.date desc"
	rs.open sql,conn,1,3
if rs.eof then
response.write "没有信息"
else
cur=request.form("cur")
if cur="" then
cur=1
end if
rs.pagesize=10
rs.absolutepage=cint(cur)
rowcount=0%>
               <table width="100%"  cellspacing="0">
                            <tr> <form name="form1" method="post" action="?type2=cz">
                              <td>　<a href="#sd"><span class="style2">我要留言</span></a>　　　　　　　　　留言搜索　　条件：
                                <select name="type3" size="1">
                                  <option value="title" selected>标题</option>
                                  <option value="content">内容</option>
                                  <option value="username">作者</option>
                                </select>                                
                                　关键字：
                                    <input name="key" type="text" id="key">　
                                    <input type="submit" name="Submit" value="查找">
                                  （支持模糊查询） </td> 
                            </form>
                            </tr>
               <%do while not rs.eof and rowcount<rs.pagesize%>
			   <tr>
                              <td>
<table width="100%" border="1" cellpadding="1"  cellspacing="1" bordercolor="#EFDA9B">
                                <tr>
                                  <td width="26%"><div align="center">姓名：<%=rs("name")%></div></td>
                                  <td width="74%"><span style="color: #FF0000">标题：<%=rs("title")%>　</span>　　　　　　　　　　　<a href="mail.asp?type2=add&uer=<%=rs("username")%>"><font color="#000000">发短信</a>　<a href="datum.asp?username=<%=rs("username")%>"><font color="#000000">资料</font></a>　<a href="mailto:<%=rs("useremail")%>"><font color="#000000">邮件</font></a>　<a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=557563" target="_blank"><font color="#000000">QQ</font></a>　<a href="http://<%=rs("homepage")%>" target="_blank"><font color="#000000">主页</font></a></td>
                                </tr>
                                <tr>
                                  <td><p align="center"><a href="datum.asp?username=<%=rs("Username")%>" title="金钱：<%=rs("money")%>元 留言：<%=rs("lycount")%>条"><%=showuserpic(rs("userface"),rs("width"),rs("height"))%></a></p>
                                    </td>
                                  <td valign="top">内容：<%Response.Write	BadWords_Deal(UBBCode(rs("content"),2))%><BR>
                                    <br>
                                    <br>
                                    <span class="style2">个人座右铭：<font color="#FF0000"><%=rs("usersign")%></font></span></td>
                                </tr>
                                <tr>
                                  <td><div align="center">发表：<%=rs("date")%></div></td>
                                  <td>IP：<%=rs("ip")%>　　　　　　　　　　　　　　　　　　<a href="?type2=edit&ad=<%=rs("id")%>">编辑</a>　　<a href="?type2=del&ad=<%=rs("id")%>&use=<%=rs("username")%>" onClick="return confirm('真的要删除？')">删除</a></td>
                                </tr>
                              </table>
							  </td>
                            </tr>
<%rowcount=rowcount+1
				rs.movenext
      loop%>
                            <tr>
                              <td> <table width="100%"  border="0">
  <tr><form name="form2" method="post" action=""><TD align=left bgcolor="#FAF4E1"><span class="style2"><span style="color: #CC3300">共<%=rs.recordcount%>条　 分<%=rs.pagecount%>页</span>　　<span style="color: #CC3300">每页10条　　　当前页次：<%=cur%></span>/<%=rs.pagecount%>　　　　　　　　　　　　　　　　<span style="color: #CC3300">　
    转到: 
                      <select name="cur" size="1" onchange="javascript:submit()">
    <%for i = 1 to rs.pagecount%>              
      <option value="<%=i%>" <%if i=cint(cur) then%> selected <%end if%>>第<%=i%>页 </option>   
      <%next%>   
                      </select>
                      <%
  rs.close
	 set rs=nothing%>
            </span></span></td>
  </form>
  </tr>
</table></td>
                            </tr>
							<%end if%>
							 <tr>
                                 <td>&nbsp;</td>
                                </tr>
                            <tr>     <td><table width="100%" border="1" cellpadding="1"  cellspacing="1" bordercolor="#EFDA9B">
                                <form name="form3" method="post" action="?type2=add"><tr>
                                  <td width="26%"><B>留言主题<a name="sd"></a></B></td>
                                  <td width="74%">
                                    <input name="title" type="text" id="title" size="30" maxlength="17">
                                    <FONT color=red>　*</FONT>不得超过15个汉字                                  </td>
                                </tr>
                                <tr>
                                  <td valign="top"><p><b>留言内容</b><br>
  　现在的留言是不是简单多了？以后我们将走简约型的路子，不加那些无用的功能，将思索放在开发实用的部件上</p>
                                    </td>
                                  <td><textarea name="content" cols="50" rows="7" id="content"></textarea>                                    </td>
                                </tr>
                                <tr>
                                  <td>时间：<%=now()%></td>
                                  <td>　　　　
                                     <%  If session("wzname")="" Then%>
<font color=red>只有登录才能留言!</font>
<%else%>
 <input type="submit" name="Submit2" value="提交">　
                  <input type="reset" name="Submit3" value="重置">
<%End If%>
                                  </td>
                                </tr></form>
                              </table></td>
                            </tr>
                            <tr>
                              <td>&nbsp;</td>
                            </tr>
                          </table>
<%
end sub
sub del
Set rs = Server.CreateObject("ADODB.Recordset")
set rs=conn.execute ("select * from ly where id="&ad&" and username='"&session("wzname")&"'")
	IF rs.eof and Session("sitejob")<>3 then
	%>
                           你还没有这个权限呢！<br>
<a href='javascript:history.go(-1)'><font color="#FF0000">回去吧</font></a>
<%	
else