guestbook.asp

网站代码

<table width="530" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
<form name="editpwd" method="post" action="<%=indexfilename%>">
    
<tr> 
<td height="23" colspan="2" align="center" bgcolor="#EAEAEA"> <b>修改密码</b></td>
    </tr>
    
<tr bgcolor="#FFFFFF"> 
<td width="105" height="21" align="right" valign="middle">旧用户名：</td>
      
<td width="226" height="21" align="left"> 
<input type="text" name="oldusername" class="write">
      </td>
    </tr>
    
<tr bgcolor="#FFFFFF"> 
<td width="105" height="21" align="right" valign="middle">新用户名：</td>
      
<td width="226" height="21" align="left"> 
<input type="text" name="username" class="write">
      </td>
    </tr>
    
<tr bgcolor="#FFFFFF"> 
<td width="105" height="21" align="right" valign="middle">确认新用户名：</td>
      
<td width="226" height="21" align="left"> 
<input type="text" name="username_c" class="write">
      </td>
    </tr>
    
<tr bgcolor="#FFFFFF"> 
<td width="105" height="21" align="right" valign="middle"> 旧 密 码： </td>
      
<td width="226" height="21" align="left"> 
<input type="password" name="oldpwd" class="write">
      </td>
    </tr>
    
<tr bgcolor="#FFFFFF"> 
<td width="105" height="21" align="right" valign="middle">新 密 码： </td>
      
<td width="226" height="21" align="left"> 
<input type="password" name="newpwd" class="write">
      </td>
    </tr>
    
<tr bgcolor="#FFFFFF"> 
<td width="105" height="21" align="right" valign="middle">确认新密码：</td>
      
<td width="226" height="21" align="left"> 
<input type="password" name="newpwd_c" class="write">
        <input type="hidden" name="action_e" value="EditPWD">
      </td>
    </tr>
    
<tr align="center"> 
<td colspan="2" bgcolor="#EAEAEA"> 
<input type="submit" name="EditPWD" value="修改密码">
</td>
    </tr>
  </form>
</table>
<%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="530" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
<form name="reply" method="post" action="<%=indexfilename%>">
<tr> 
<td colspan="2" align="center" bgcolor="#EAEAEA"> 编辑留言内容及回复</td>
</tr>
<tr bgcolor="#FFFFFF"> 
<td align="right">留言者：</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("come")%></font> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" valign="top">&nbsp;</td>
<td>时间:<font color="#ff0000"><%=Rs("date")%></font>&nbsp;ip:<font color="#ff0000"><%=Rs("ip")%></font></td>
</tr>
<tr bgcolor="#FFFFFF"> 
<td align="right" valign="top">邮箱：</td>
<td>&nbsp;<b><%=Rs("email")%></b></td>
</tr>
<tr bgcolor="#FFFFFF"> 
<td width="78" align="right" valign="top"> 留言内容：<br> <br> <input name="replyedit" id="replyedit" type="checkbox" value="1" style="border:0px"> 
<font color="#FF0000">修改</font> </td>
<td width="433"> <textarea name="reply" cols="60" rows="8" class="input1" id="reply"><%=Rs("words")%></textarea> 
</td>
</tr>
<tr align="center" bgcolor="#FFFFFF"> 
<td height="26" align="right">&nbsp;</td>
<td align="left"> <% call ubb_jd100() %></td>
</tr>
<tr align="center" bgcolor="#FFFFFF"> 
<td align="right">回复：</td>
<td align="left"> <textarea name="words" cols="60" rows="8" class="input1" id="words"><%=Rs("reply")%></textarea> 
  <% if webyn=1 then%>
  <input name="view" type="checkbox" id="view" value="1" <%=view2%>>
通过审批 
<% end if %></td>
</tr>
<tr align="center"> 
<td colspan="2" bgcolor="#EAEAEA"> <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">
<input type="reset" name="reset" value="取 消" id="Submit2" class="input1">
<input type="button" name="back" value="返 回" onclick=location.href='<%=indexfilename%>?action=View_Words'></td>
</tr>
</form>
</table>

<% 
rs.close
set rs=nothing
End Sub 

Sub Edit_web()
if Request.Form("submit")="修改" then
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From adminwords"
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
%>
<table width="530" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC" >
<form name="reply" method="post" action="<%=indexfilename%>">
    
<tr> 
<td height="23" colspan="2" align="center" bgcolor="#EAEAEA"> 编辑留言板属性</td>
    </tr>
    
<tr bgcolor="#FFFFFF"> 
<td width="34%" align="right" valign="top"> 留言板名称</td>
      
<td width="66%"> 
<input name="webname" type="text" id="webname" value="<%=webname%>" size="45" maxLength=25> 
      </td>
    </tr>
    
<tr align="center" bgcolor="#FFFFFF"> 
<td align="right">公告内容：</td>
      
<td align="left"> 
<textarea name="webtitle" cols="50" rows="5" id="webtitle"><%=webtitle%></textarea></td>
    </tr>
    
<tr align="center" bgcolor="#FFFFFF"> 
<td align="right">词语过滤：</td>
      
<td align="left"> 
<input name="webggg" type="text" id="webggg" value="<%=webgl%>" size="45">
      </td>
    </tr>
    
<tr align="center" bgcolor="#FFFFFF"> 
<td align="right">经过审批才显示留言：</td>
      
<td align="left"> 
<input name="webyn" type="checkbox" id="webyn" value="1" <%=webyn2%> style="border:0px">
      是</td>
    </tr>
    
<tr align="center"> 
<td height="23" colspan="2" bgcolor="#EAEAEA"> 
<input type="hidden" name="action_e" value="Edit_web">
        <input type="submit" name="Submit" value="修改" id="Submit" class="input1">
　　<a href="<%=indexfilename%>?action=View_Words">返回</a></td>
    </tr>
  </form>
</table>
<% End Sub %>
<% 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>

	  <img onclick=Cbold() src="Images/UBB/BOLD.GIF" width="23" height="22" alt="粗体" border="0"> 
	  <img onclick=Citalic() src="Images/UBB/italicize.gif" width="23" height="22" alt="斜体" border="0"> 
	  <img onclick=Cunder() src="Images/UBB/underline.gif" width="23" height="22" alt="下划线" border="0"> 
	  <img onclick=Ccenter() src="Images/UBB/CENTER.GIF" width="23" height="22" alt="居中" border="0">	
	 
字体大小
<select name="size" onChange="showsize(this.options[this.selectedIndex].value)">
<option value="1">1</option>
<option value="2">2</option>
<option value="3" selected>3</option>
<option value="4">4</option>
</select>                    &nbsp;<font face="宋体" color=#333333>颜色：</font> 
                    <SELECT onchange=showcolor(this.options[this.selectedIndex].value) name=color>
                      <option style="background-color:#000000;color: #000000" value="#000000">#000000</option>
                      <option style="background-color:#FFEBCD;color: #FFEBCD" value="#FFEBCD">#FFEBCD</option>
                      <option style="background-color:#0000FF;color: #0000FF" value="#0000FF">#0000FF</option>
                      <option style="background-color:#8A2BE2;color: #8A2BE2" value="#8A2BE2">#8A2BE2</option>
                      <option style="background-color:#A52A2A;color: #A52A2A" value="#A52A2A">#A52A2A</option>
                      <option style="background-color:#DEB887;color: #DEB887" value="#DEB887">#DEB887</option>
                      <option style="background-color:#5F9EA0;color: #5F9EA0" value="#5F9EA0">#5F9EA0</option>
                      <option style="background-color:#7FFF00;color: #7FFF00" value="#7FFF00">#7FFF00</option>
                      <option style="background-color:#D2691E;color: #D2691E" value="#D2691E">#D2691E</option>
                      <option style="background-color:#FF7F50;color: #FF7F50" value="#FF7F50">#FF7F50</option>
                      <option style="background-color:#6495ED;color: #6495ED" value="#6495ED" selected>#6495ED</option>
                      <option style="background-color:#FFF8DC;color: #FFF8DC" value="#FFF8DC">#FFF8DC</option>
                      <option style="background-color:#DC143C;color: #DC143C" value="#DC143C">#DC143C</option>
                      <option style="background-color:#00FFFF;color: #00FFFF" value="#00FFFF">#00FFFF</option>
                      <option style="background-color:#00008B;color: #00008B" value="#00008B">#00008B</option>
                      <option style="background-color:#008B8B;color: #008B8B" value="#008B8B">#008B8B</option>
                      <option style="background-color:#B8860B;color: #B8860B" value="#B8860B">#B8860B</option>
                      <option style="background-color:#A9A9A9;color: #A9A9A9" value="#A9A9A9">#A9A9A9</option>
                      <option style="background-color:#006400;color: #006400" value="#006400">#006400</option>
</SELECT>
                    <% 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
	Response.Write("<script>alert(""电子邮件不正确"");history.go(-1);</script>")
	Response.End
	End If

	End If
	If trim(Request.Form("title"))="" Then
	Response.Write("<script>alert(""主题不能为空"");history.go(-1);</script>")
	Response.End
	End If
	
	If trim(Request.Form("words"))="" Then
	Response.Write("<script>alert(""留言不能为空"");history.go(-1);</script>")
	Response.End
	End If

	Set Rs = Server.CreateObject("ADODB.RecordSet")
	Sql="Select * From words"
	Rs.Open Sql,Conn,2,3
	Rs.AddNew
	Rs("name")=Server.HTMLEncode(Request.Form("name"))
	Rs("sex")=Server.HTMLEncode(Request.Form("sex"))
	Rs("head")=Server.HTMLEncode(Request.Form("head"))
	Rs("web")=Server.HTMLEncode(Request.Form("web"))
	Rs("email")=Server.HTMLEncode(Request.Form("email"))
	Rs("title")=Server.HTMLEncode(Request.Form("title"))
	Rs("words")=Server.HTMLEncode(Request.Form("words"))
	Rs("qq")=Server.HTMLEncode(Request.Form("qq"))
	Rs("head")=Server.HTMLEncode(Request.Form("Img"))
	
	Rs("date")=Now()
    Rs("ip")=request.servervariables("remote_addr")
    Rs("come")=Server.HTMLEncode(Request.Form("come"))
	Rs.Update
	Rs.Close
	Set Rs = Nothing
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'验证管理员登陆

Sub Admin_Login_Execute()
	username = Server.HTMLEncode(Request.Form("username"))
	password = Server.HTMLEncode(Request.Form("password"))
	if trim(Server.HTMLEncode(Request.Form("jd100rz")))<>session("jd100_rn") then
	Response.Write("<script>alert(""验证码错误"");history.go(-1);</script>")
	Response.End
	end if
	
	session("jd100_rn")=""