📄 edit.asp

📁 功能完备的留言板公告管理用户管理留言管理分页功能的实现 Access数据库
💻 ASP
字号:

<!--#include file="inc/char.asp"-->
<!--#include file="inc/email.asp"-->
<%  dim guestdate
    guestdate=request("time")
    
    Set conn = Server.CreateObject("ADODB.Connection")
	conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("book.asp")

    set rs=server.createobject("adodb.recordset")
    sql="select * from [guest] where guestdate='"&GuestDate&"'"
   	rs.open sql,conn,1,3
   	if request("update")="提交" and rs("ip")=Request.ServerVariables("REMOTE_ADDR") then
   	if request("guestname")="" or strLength(request("guestname"))>20 then
		errmsg=errmsg+"<br>"+"<li>请输入您的用户名(长度不能大于20)。"
		founderr=true
	else
		guestname=trim(request("guestname"))
	end if
	if request("face")="" then
		errmsg=errmsg+"<br>"+"<li>请选择您的头像。"
		founderr=true
else face=request("face")
	end if
	if  request("emai")<>"" and  IsValidEmail(trim(request("email")))=false then
   		errmsg=errmsg+"<br>"+"<li>您的Email有错误。"
   		founderr=true
	else
		useremail=trim(request("email"))
	end if
	if request("oicq")<>"" then
		if chkoicq(request("oicq"))=false then
			errmsg=errmsg+"<br>"+"<li>Oicq号码只能是4-10位数字，您可以选择不输入。"
			founderr=true
		end if
	end if
	if request("guestcontent")="" then
		errmsg=errmsg+"<br>"+"<li>请请填写留言内容。"
		founderr=true
else guestcontent=request("guestcontent")
	end if
   		rs("guestname")=guestname
		if request("from")<>"" then
		rs("from")=(request("from"))
		end if
		if request("email")<>"" then
		rs("email")=(request("email"))
		end if
		if request("homepage")<>"" then
		rs("homepage")=(request("homepage"))
		end if
		if request("oicq")<>"" then
		rs("oicq")=(request("oicq"))
		end if
        rs("guestdate")=NOW()
        rs("ip")=rs("ip")   
		rs("face")=face
        rs("guestcontent")=guestcontent
		rs.update
		rs.close
       set rs=nothing
       conn.close
       set conn=nothing
       response.redirect "index.asp"
		else
   	if rs("ip")=Request.ServerVariables("REMOTE_ADDR") then
%>
<html>
<head>
<title>编辑留言</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel=stylesheet type=text/css>
</head>

<body bgcolor="#F0AA06" text="#000000">

<form action=edit.asp method=post>
  <table cellpadding=0 cellspacing=0 border=0 width=600 bgcolor="#000000" align=center>
    <tr> 
      <td> 
        <table cellpadding=3 cellspacing=1 border=0 width=100%>
          <tr bgcolor=#F8B00A> 
            <td bgcolor="#896103" align=center height=22 colspan="2"><font color="#FFFFFF"><b>发表留言(有<font color="#FF0000">*</font><b>号的必填)</b></font></td>
          </tr>
          <tr bgcolor=#F8B00A> 
            <td width="30%" align="center" height="22"> 
              <div align="right">你的姓名：&nbsp;</div>
            </td>
            <td width="70%" height="22"> 
              &nbsp;
              <input type="text" name="guestname" maxlength="10" size="10" value="<%=rs("guestname")%>">
              <font color="#FF0000">*</font> </td>
          </tr><tr bgcolor=#F8B00A> 
            <td width="30%" align="center" height="22"> 
              <div align="left">来自哪里：&nbsp;</div>
            </td>
            <td width="70%" height="22">&nbsp;
              <input type="text" name="from" maxlength="10" size="10" value="<%=rs("from")%>">
            </td>
          </tr>
          <tr bgcolor=#F8B00A> 
            <td width="30%" align="center" height="22"> 
              <div align="left">主页地址：&nbsp;</div>
            </td>
            <td width="70%" height="22"> 
              &nbsp;
              <input type="text" name="email" value="<%=rs("homepage")%>">
            </td>
          </tr>
          <tr bgcolor=#F8B00A> 
            <td width="30%" align="center" height="22"> 
              <div align="left">Email地址：&nbsp;</div>
            </td>
            <td width="70%" height="22"> 
              &nbsp;
              <input type="text" name="homepage" value="<%=rs("email")%>">
            </td>
          </tr>
          <tr bgcolor=#F8B00A> 
            <td width="30%" align="center" height="22"> 
              <div align="left">Oicq号码：&nbsp;</div>
            </td>
            <td width="70%" height="22"> 
              &nbsp;
              <input type="text" name="oicq" maxlength="8" value="<%=rs("oicq")%>">
            </td>
          </tr>
          <tr bgcolor=#F8B00A> 
            <td width="30%" align="center" height="39"> 
              <div align="left">选择头像：&nbsp;</div>
            </td>
            <td width="70%" height="39"> 
             &nbsp;
              <select name=face size=1>
                <% for i=1 to 60 %>
                <option value='Image<%=i%>.gif'>Image<%=i%></option>
                <%next%>
                <% for f=61 to 200 %>
                <option value='Image<%=f%>.jpg'>Image<%=f%></option>
                <%next%>
              </select>
              <font color="#FF0000">*</font> <a href="avatars.asp" target="_blank">查看所有头像</a> 
            </td>
          </tr>
          <tr bgcolor=#F8B00A> 
            <td width="30%" align="center" height="22" valign="middle"> 
              <div align="left">留言内容：&nbsp;</div>
            </td>
            <td width="70%" height="22"> 
              &nbsp;
              <textarea name="guestcontent" cols="30" rows="5" wrap="VIRTUAL"><%=rs("guestcontent")%></textarea>
              <font color="#FF0000">*</font> </td>
          </tr>
          <tr bgcolor=#F8B00A> 
            <td bgcolor="#896103" align=center height=22 colspan="2"> 
            <input type="hidden" name="time" value="<%=request("time")%>">
              <input type="submit" name="update" value="提交">
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
</form>
<br>
<!--#include file="bottom.asp"-->
</body>
</html>
<%else Response.Write "你无权编辑此留言。"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>
⌨️ 快捷键说明

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