replyform.asp

留言 留言本采用asp+access数据结构

<%face="face/"%>
<% 
		id=request.QueryString("id")
		set rs=server.CreateObject("adodb.recordset")
        sql="select * from message where id="&id
        rs.open sql,conn,1,3 
        if rs.eof then
        response.write("")
        response.end
        end if%>
<div id="submit">
      <form action="post.asp?id=<%=rs("id")%>&action=reply" method="post" name="form" id="form" onSubmit="return FrontPage_Form1_Validator(this)">
        <p><img src="images/i1.gif" /><img src="images/add.gif" /><br />
		<% if system("face")=1 then %>
        <div class="submitright"><script>
        function showimage(){document.images.showimages.src="<%=face%>"+document.form.face.options[document.form.face.selectedIndex].value+".gif";}
        </script>
        <div class="faceselect"><select name="face" size="1" onChange="showimage()">
        <%for i=1 to 51
        g=""
        g=i
        %>
        <option value='<%=g%>'>头像<%=g%></option>
        <% next %> 
        </select></div>
        <div class="faceimg"><img src="<%=face%>9.gif" name="showimages" id="showimages" height="60" width="60"  /></div>
        </div>
        <%end if%>
        <br />
        </p>
        <div class="submitleft">

        <label for="user">用户昵称：</label>
        <input type="text" id="user" name="user" value="<%=rs("user")%>" />
        <span class="STYLE2">*</span><br />
         <% if system("email")=1 then %>
        <label for="qq">Email：</label>
        <input type="text" id="email" name="email" value="<%=rs("email")%>" />
        <span class="STYLE2">*</span><br />
        <%end if%>
        <% if system("qq")=1 then %>
        <label for="qq">联系QQ：</label>
        <input type="text" id="qq" name="qq" value="<%=rs("qq")%>" />
        <span class="STYLE2">*</span><br />
        <%end if%>
        <% if system("web")=1 then %>
        <label for="web">个人网站：</label>
        <input type="text" id="web" name="web" value="<%=rs("web")%>" />
        <span class="STYLE2">*</span><br />
        <%end if%>
        <label for="content">留言内容：</label>
        <textarea id="content" name="content" ><%=rs("content")%></textarea>
        <span class="STYLE2">*</span><br /><br />
        
        
        <label for="reply"><font color="#FF0000">回复内容：</font></label>
        <textarea id="reply" name="reply"><%=rs("reply")%></textarea>
        <span class="STYLE2">*</span><br />
        <label for="comment">　</label>
        <span>提交前请按Ctrl+C保存留言内容，以免程序出错而丢失！ </span><br />
         <label for="show"><font color="#FF0000">通过：</font></label>
        <input name="show" type="checkbox" id="show" value="1" checked="checked" />
        <span>当选中时，此留言修改为可见状态</span><br />
        <input type="submit" id="sbutton" value="确  定" />
        <br />
        <input name="ac" type="hidden" id="ac" value="add" />
        </div>
      
      </form>
    </div>