📄 guestbook.asp

📁 网站代码
💻 ASP
📖 第 1 页 / 共 4 页
字号:
12 3 4 下一页
<!--#include file="head.asp" -->
<%
'* 个人版价格：500元 商业版价格：700元
'* 演示：http://Demo.wenday.com
'* 版本：Engine_WenDay网站信息系统 Ver 2.0 演示版
'* 版权所有: 一奔网络工作室(Wenday.Com)
'* 联系QQ: 42367091
'* Email :wenday@21cn.com
'* 程序开发: Wenday
%>
<TABLE width=778 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
        <TR> 
          <TD width="100%"> <TABLE cellSpacing=0 cellPadding=0 width=778 align=center border=0>
              <TBODY>
                <TR bgColor=#ffffff> 
                  <TD colSpan=3 height=2></TD>
                </TR>
                <TR> 
                  <TD width="19" height=22 align=right><img src="Img/02_1.gif" width="12" height="9"></TD>
                  
<TD width="748"><FONT color=#333333>&nbsp;您的位置：&nbsp;</FONT>网站的首页 &gt;&gt; 网 站 
留 言</TD>
                  <TD width="11">&nbsp;</TD>
                </TR>
              </TBODY>
            </TABLE>
            <TABLE cellSpacing=0 cellPadding=0 width=778 border=0>
        <TBODY>
        <TR>
          <TD vAlign=top colSpan=2>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center 
            border=0>
                      <TBODY>
                        <TR bgColor=#cccccc> 
                          <TD colSpan=2 height=1></TD>
                        </TR>
                        <TR> 
                          <TD colSpan=2 height=2></TD>
                        </TR>
                        <TR> 
                          <TD width=62 bgColor=#eeeeee height=22></TD>
                          <TD bgColor=#eeeeee> <% Call Marquee()%></TD>
                        </TR>
                        <TR> 
                          <TD bgColor=#cccccc colSpan=2 
        height=3></TD>
                        </TR>
                      </TBODY>
                </TABLE></TD></TR>
        
<TR> 
<TD style="BORDER-RIGHT: #d8d8d8 1px solid;BORDER-left: #d8d8d8 1px solid" vAlign=top width=185 
          bgColor=#f6f6f6><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR> 
<TD background=""> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR> 
<TD height=34 background="Img/homedhbg.gif"><IMG 
                    src="Img/hydl.gif"></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR> 
                      <TD height=40><TABLE width=95% height="100" border=0  align=center cellPadding=0 cellSpacing=1 bgColor=#e8e8e8>
                          <TBODY>
                            <TR> 
                              <TD height="53" bgColor=#f9f9f9> 
                                <% Call UserLogin() %>
                              </TD>
                            </TR>
                        </TABLE></TD>
</TR>
<TR> 
<TD></TD>
</TR>
<TR> 
<TD></TD>
</TR>
<TR> 
<TD background=Img/homedhbg.gif> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR> 
<TD height=34><div align="center"><strong>留 言 菜 单</strong></div></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR> 
<TD vAlign=top><TABLE cellSpacing=0 cellPadding=5 width=99% align=center bgColor=#e8e8e8 border=0>
<TBODY>
<TR> 
<TD width="100%" bgColor=#f9f9f9 align="center"><a href="<%=indexfilename%>?action=Add_New"><img src="Img/post.gif" width="99" height="25" border="0"></a> 
<br>
<a href="<%=indexfilename%>?action=View_Words"><img src="Img/back.gif" width="99" height="25" border="0"></a> 
</TD>
</TR>
</TABLE></TD>
</TR>
<TR> 
<TD></TD>
</TR>
<TR> 
<TD background=Img/homedhbg.gif> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR> 
<TD height=34><div align="center"><strong>网 站 调 查</strong></div></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR> 
<TD vAlign=top><TABLE style="WORD-BREAK: break-all" height="100%" cellPadding=4 width="100%" border=0>
<TBODY>
<TR> 
<TD vAlign=top height=80> <TABLE width=99% height="100%" border=0 align=center cellPadding=0 cellSpacing=1 bgColor=#e8e8e8>
<TBODY>
<TR> 
<TD width="100%" height="52" bgColor=#f9f9f9>
<% Call Ew_FlashVote() %>
</TD>
</TR>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR> 
<TD></TD>
</TR>
<TR> 
<TD height="32" background=Img/homedhbg.gif>&nbsp; </TD>
</TR>
<TR> 
<TD></TD>
</TR>
<TR> 
<TD height="7"></TD>
</TR>
</TBODY>
</TABLE></TD>         
<TD vAlign=top align=left style="BORDER-RIGHT: #d8d8d8 1px solid"> <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR> 
<TD align=middle width=55 background=Img/homedhbg.gif height=34><img src="Img/tp.gif" width="55" height="34"></TD>
<TD width="414" background=Img/homedhbg.gif>&nbsp;网 站 留 言</TD>
<TD width="123" background=Img/homedhbg.gif>&nbsp;</TD>
</TR>
</TBODY>
</TABLE> 
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR> 
<TD height=56>
  <%
'dim time1,time2
' time1=timer
dim indexfilename,indeximg,n,x
indexfilename=right(Request.ServerVariables("PATH_TRANSLATED"),(len(Request.ServerVariables("PATH_TRANSLATED"))-instrRev(Request.ServerVariables("PATH_TRANSLATED"),"\"))) 
imdeximg="Images/gb/" '图片文件夹
'db="db/guestbook.mdb" '数据库
'set Conn=Server.CreateObject("ADODB.Connection")
'Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)

n=6 '每页显示留言数
x=5  '每页显示的页数
m=10 '留言头像可选个数,男101-199.gif 女001-099.gif,各可增加到99个
bookbg=""  '背景图片,当不使用背景图时,保持为空 ""
txt=1000  '留言的最大字数
           dim webtitle,webname,webyn,webgl,webyn2,view2
           set rs1 = conn.execute("select * From adminwords")
           webtitle=rs1("title")
           if rs1("webname")<>"" then webname=rs1("webname")
           if rs1("gbyn")<>"" then webyn=rs1("gbyn")
           webgl=rs1("gl")
           rs1.close
           set rs1=nothing

'设置页脚信息,这里可以加入你的地址
page =Request.QueryString("page")
if page="" or page=0 then page=1

action = Request.QueryString("action")
action_e = Request.Form("action_e")
if action_e <>"" then
  server_v1=Cstr(Request.ServerVariables("HTTP_REFERER")) 
  server_v2=Cstr(Request.ServerVariables("SERVER_NAME")) 
   if mid(server_v1,8,len(server_v2))<>server_v2 then 
    response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>" 
    response.write "<tr><td style='font:9pt Verdana'>" 
    response.write "你提交的路径有误，禁止从站点外部提交数据请不要乱该参数！" 
    response.write "</td></tr></table></center>" 
    response.end 
   end if 
end if

%>
<script language="JavaScript">
function gbcount(message,total,used,remain)
{
	var max;
	max = total.value;
	if (message.value.length > max) {
	message.value = message.value.substring(0,max);
	used.value = max;
	remain.value = 0;
	alert("留言不能超过 <%=txt%> 个字!");
	}
	else {
	used.value = message.value.length;
	remain.value = max - used.value;
	}
}
</script>

  <% if len(bookbg)<3 then
  bookbg=""
  else
  bookbg="background="& imdeximg & bookbg
  end if %>
  <table width="530" height="18" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" >
    <tr>
      <td width="100%" height="18" align="center" valign="top" <%=bookbg%>>
        <%
'主程序 
Select Case action_e
	Case ""

	Case "Add_New"
		Call Add_New_Execute()
	Case "reply"
		Call Reply_Execute()
	Case "admin"
		Call Admin_Login_Execute()
	Case "EditPWD"
		Call EditPWD_Execute()
	Case "Edit"
		Call Edit_Execute()
		
    Case "Edit_web"
		Call Edit_web()
		
End Select
Call Main_Menu()
Select Case action
    Case "UbbHelp"
        Call UbbHelp()
	Case "Admin_Login"
		Call Admin_Login()
	Case "Exit"
		Call Exit_Admin()
		
		Call View_Words()
		
	Case ""
		
		Call View_Words()
		
	Case "Add_New"
		Call Add_New()
	Case "reply"
		Call Reply()
	Case "View_Words"
		
		Call View_Words()
		
	Case "Delete"
		Call Delete()
		Call View_Words()
	Case "EditPWD"
		Call EditPWD()
	Case "Edit"
		Call Edit()
		
	Case "Edit_web"
		Call Edit_web()
				
End Select
%>
      </td>
    </tr>
  </table>
  <% 
'添加一条新留言
Sub Add_New() %>
<table width="550" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
<form name="form" method="post" action="<%=indexfilename%>">
<tr bgcolor="#EAEAEA"> 
<td height="23" colspan="3" align="center"> <div align="center"><strong>签 写 留 
言</strong></div></td>
</tr>
<tr bgcolor="#FFFFFF"> 
<td width="13%" height="20"  > <div align="right">姓名：</div></td>
<td width="53%" height="20"> <input type="text" name="name" class="write" size="20" maxLength=10>
*10个字内</td>
<script>
function showimage(){document.images.showimages.src="<%=imdeximg%>"+document.form.sex.options[document.form.sex.selectedIndex].value+""+document.form.img.options[document.form.img.selectedIndex].value+".gif";}
</script>
<td width="34%" height="20">选择头像: 
<select name="img" size="1" onChange="showimage()">
  <% if m>99 then m=99
		for i=1 to m 
		g=""
		g=i
		if len(i)<2 then g="0"&i
		%>
  <option value='<%=g%>'><%=g%></option>
  <% next %>
</select> </td>
</tr>
<tr bgcolor="#FFFFFF"> 
<td height="20" align="right"> 性别： </td>
<td height="20"> <select name="sex" size="1" onChange="showimage()">
<option value="1">男</option>
<option value="0">女</option>
</select> </td>
<td height="20" rowspan="6" align="center"> <img src="<%=imdeximg%>101.gif" name=showimages id="showimages"> 
</td>
</tr>
<tr bgcolor="#FFFFFF"> 
<td height="20" align="right">QQ：</td>
<td height="20"> <input name="qq" type="text" id="qq" size="35" maxLength=25 class="write"></td>
</tr>
<tr bgcolor="#FFFFFF"> 
<td height="20" align="right">主页： </td>
<td height="20"> <input name="web" type="text" value="http://" size="35" maxLength=50 class="write"> 
</td>
</tr>
<tr bgcolor="#FFFFFF"> 
<td height="20" align="right">来自：</td>
<td height="20"> <input name="come" type="text" id="come" size="35" class="write"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20" align="right">电子邮箱：</td>
<td height="20"><input name="email" type="text" value="@" size="35" maxlength=50 class="write">
* </td>
</tr>
<tr bgcolor="#FFFFFF"> 
<td height="20" align="right">主题：</td>
12 3 4 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -