index.asp

一个简单留言本源代码(附数据库)

          <TD width="2%"></TD>
        </TR>
      </TBODY>
</TABLE>



  <TABLE width=700 height=51 border=2 align=center cellPadding=3 cellSpacing=0 bordercolor="#333399" style="border-collapse:collapse" >
    <TBODY>
      <TR >
        <TD colSpan=2 height=25><table width="686"  border="0" class="unnamed1">
          <tr>
            <td width="28%" height="21">留言者:<b><%=rs("name")%></b></td>
            <td width="60%"> <div align="right">发表于:<%=year(Rs("date"))%>年<%=month(Rs("date"))%>月<%=day(Rs("date"))%>日
			    
				<% if len(trim(rs("email")))>6  then %>
             	<a href="mailto:<%=rs("email")%>">Email</a> 
				<% end if %>
                
				<% If Session("Admin") = "Login" Then %>
                
                <font color="#666666"><a href="<%=indexfilename%>?action=Edit&id=<%=Rs("id")%>">回复</a> 
                <a href="<%=indexfilename%>?action=Delete&id=<%=Rs("id")%>" onClick="return confirm('确定要删除吗？\n\n该操作不可恢复！')"> 
                删除该留言</a></font>
                <% end if %>
              </div></td>
            
          </tr>
        </table>          </TD>
      </TR>
      <TR>
        <TD width="1" height="21" align=middle valign="top">&nbsp;</TD>
        <TD width="681" height="21" valign="top" class=unnamed2  style="word-break:break-all">
		<table width="582" border="0" style="TABLE-LAYOUT: fixed" class=unnamed2>
          <tr>
            <td width="576" style="word-break:break-all">

              <% if webyn=1 and rs("view")=1 then %>
              <%=Ubb(unHtml(words))%> 
                  <% if len(trim(reply))>1 then%>
                      <hr size="1"> <span class="style1">管理员回复:</span><br><font color="#990000"> <%=Ubb(unHtml(reply))%> </font>
                  <%end if %>
              <%end if %>
			  
              <% if webyn<>1 then %>
              <%=Ubb(unHtml(words))%> 
                  <% if len(trim(reply))>1 then%>
            <hr size="1"> <p><span class="style1">管理员回复:</span><br>
              <font color="#990000"><%=Ubb(unHtml(reply))%> </font>
              <%end if %>
              <%end if %>
              <% if webyn=1 and rs("view")=0 then%>

<%end if %>
</p></td>
          </tr>
        </table> 
        
      </TD>
      </TR>
    </TBODY>
</TABLE>
 
      <TABLE width=700 border=0 align="center" 
cellPadding=0 cellSpacing=0 borderColor=#111111 style="BORDER-COLLAPSE:collapse">
        <TBODY>
          <TR>
            <TD width="1%"></TD>
            <TD width="97%" background=<%=imdeximg%>T_bottombg.gif></TD>
            <TD width="2%"></TD>
          </TR>
        </TBODY>
</TABLE>

  
  <br>

<%
	    lou=lou-1	 
		rs.movenext
    	loop
		Rs.Close
		Set Rs = Nothing
		%>
<table width="700" border="0" cellspacing="1" cellpadding="4" align="center">
  <tr>
    <td height="20" align="right" class="unnamed1"> 
    
    有<%=gbcount %>条留言  <%=page %>/<%=y %>页 分页
                <a href="?page=1"><<</a>
                <% if page2>1 then %>
                <a href="<%=indexfilename%>?page=<%=page2*x-x%>"><</a>
                <% end if %>
                <% For m =page2*x-(x-1) To k %>
      [<a href="<%=indexfilename%>?page=<%=m%>"><%=m%></a>]
      <%
    Next
    %>
      <% if page2*x < y then %>
      <a href="<%=indexfilename%>?page=<%=m%>">></a>
      <% end if %>
	  <a href="?page=<%=y %>">>></a>

	</td>
  </tr>
</table>
		<% End Sub %>
		<%
'''''''''管理员登陆接口
		%>
		<% Sub Admin_Login() 
			dim num1
			dim rndnum
			Randomize
			Do While Len(rndnum)<4
			num1=CStr(Chr((57-48)*rnd+48))
			rndnum=rndnum&num1
			loop
			session("jd100_rn")=rndnum
			
			%>
		<br>
		
<table width="499" border="0" align="center" cellpadding="4" cellspacing="1" class="unnamed1">
  <form name="reply" method="post" action="<%=indexfilename%>">
    <tr> 
      <td colspan="2" align="center"> 管理登陆 </td>
    </tr>
    <tr> 
      <td width="122"> <div align="right">用户名： </div></td>
      <td width="358"> <input name="username" type="text" class="input1" maxlength="25"> </td>
    </tr>
    <tr> 
      <td width="122"> <div align="right">密 码： </div></td>
      <td width="358"> <input name="password" type="password" class="input1" maxlength="25"> 
        <input type="hidden" name="action_e" value="admin"> </td>
    </tr>
    
    <tr> 
      <td colspan="2" align="center"> 
        <input type="submit" name="Submit32" value="登陆" class="input1"> 
      </td>
    </tr>
    <tr> 
      <td height="49" colspan="2" align="center">&nbsp;</td>
    </tr>
  </form>
</table>
		<br>
<% End Sub%>
        <%
            '''''''''''
		%>
<%Sub UbbHelp()%>
<div align="left">
  <%End Sub%>
</div>
<%Sub EditPWD()%>
<%End Sub%>


<% Sub Edit() %>
<%

Sql="Select * From words Where id="&Request.QueryString("id")
set rs=conn.execute(sql)
view2=""
if rs("view")=1 then
view2="checked"
end if
%>
<table width="690" border="0" align="center" cellpadding="4" cellspacing="1" class="unnamed1">
  <form name="reply" method="post" action="<%=indexfilename%>">
    <tr> 
      <td colspan="2" align="center"> 编辑留言内容及回复</td>
    </tr>
    <tr> 
      <td align="right" valign="top">留言者：</td>
      <td>网名:<font color="#ff0000"><%=Rs("name")%></font>&nbsp;性别:
        <font color="#ff0000"><%if Rs("sex")=1 then Response.Write "男" else Response.Write "女" end if%>
        </font> &nbsp;时间:<font color="#ff0000"><%=Rs("date")%></font>&nbsp;</td>
    </tr>
    <tr> 
      <td align="right" valign="top">邮箱：</td>
      <td>&nbsp;<b><%=Rs("email")%></b></td>
    </tr>
    <tr> 
      <td width="139" align="right" valign="top"> 留言内容：<br> 
	  
      <td width="532"> <textarea name="reply" cols="60" rows="8" class="input1" id="reply"><%=Rs("words")%></textarea> 
      </td>
    </tr>
    <tr align="center">
      <td align="right">&nbsp;</td>
      <td align="left"><% call ubb_jd100() %></td>
    </tr>
    <tr align="center"> 
      <td align="right">回复：</td>
      <td align="left"> <textarea name="words" cols="60" rows="8" class="input1" id="words"><%=Rs("reply")%></textarea> 
        <br> 
		<% if webyn=1 then%>
		<br> 
		<input name="view" type="checkbox" id="view" value="1" <%=view2%>>
        
		<% end if %>
		
	</td>
    </tr>
    <tr align="center"> 
      <td colspan="2"> <input type="hidden" name="action_e" value="Edit"> <input type="hidden" name="id" value="<%=Request.QueryString("id")%>"> 
        <input type="submit" name="Submit" value="回复" id="Submit" class="input1">
        &nbsp; 
        <input type="reset" name="reset" value="取 消" id="Submit2" class="input1">
        　　<a href="<%=indexfilename%>?action=View_Words">返回</a></td>
    </tr>
  </form>
</table>

<% 
rs.close
set rs=nothing

End Sub %>
<br>
<% Sub Edit_web() %>
<% 

if Request.Form("submit")="修改" then
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From admin"
Rs.Open Sql,Conn,2,3
   rs("title")=Request.Form("webtitle")
   rs("gl")=Request.Form("webggg")
   rs("gbyn")=cint(Request.Form("webyn"))
   rs("webname")=Request.Form("webname")
   rs.update
rs.close
set rs=nothing
response.redirect indexfilename &"?action=Edit_web"
response.end
end if
webyn2=""
if webyn=1 then
webyn2="checked"
end if
%>
<% End Sub %>
</body>
</html>

<%  if jd100_fla=1 then
if Request("action")="View_Words" or Request("action")=""  then %>
<div id="Layer1" style="position:absolute; right:1px; top:250px;z-index:1" width="680" height="350">
  <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="680" height="350">
    <param name="movie" value="<%=imdeximg%>fly.swf">
    <param name="quality" value="high">
    <param name="wmode" value="transparent">
    <embed src="<%=imdeximg%>fly.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="680" height="350"></embed></object>
</div>
<% End if 
   end if
%>

<% sub ubb_jd100()%>

<script language="JavaScript">
//UBB
function Cbold() {
fontbegin="[B]";
fontend="[/B]";
fontchuli();
}
function Citalic() {
fontbegin="[I]";
fontend="[/I]";
fontchuli();
}
function Cunder() {
fontbegin="[U]";
fontend="[/U]";
fontchuli();
}
function Ccenter() {
fontbegin="[center]";
fontend="[/center]";
fontchuli();
}

function showsize(size){
fontbegin="[size="+size+"]";
fontend="[/size]";
fontchuli();
}
function showcolor(color){
fontbegin="[color="+color+"]";
fontend="[/color]";
fontchuli();
}

function fontchuli(){
if ((document.selection)&&(document.selection.type == "Text")) {
var range = document.selection.createRange();
var ch_text=range.text;
range.text = fontbegin + ch_text + fontend;
} 
else {
document.form1.words.value=fontbegin+document.form1.words.value+fontend;
document.form1.words.focus();
}
}
</script>

	  
	  <% end sub %>

<%

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'添加新留言到数据库
Sub Add_New_Execute()

   
	
	
	If trim(Request.Form("name"))="" Then
	Response.Write("<script>alert(""姓名不能为空"");history.go(-1);</script>")
	Response.End
	End If
	If Len(Request.Form("name"))>20 Then
	Response.Write("<script>alert(""姓名太长"");history.go(-1);</script>")
	Response.End
	End If
	If Request.Form("email")<>"" Then
	If instr(Request.Form("email"),"@")=0 or instr(Request.Form("email"),"@")=1 or instr(Request.Form("email"),"@")=len(email) then