⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 allreply.asp

📁 在线考试系统的设计与实现
💻 ASP
字号:
<html>
<head>
<title>回复主题</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<BODY vLink=#333333 aLink=#333333 link=#333333 bgColor=#ffffff leftMargin=0 
topMargin=0><LINK href="forum.css" type=text/css 
rel=stylesheet>
<Script language="VBScript">

Sub datacheck()
dim username,title,content
username=trim(answer.username.value)
title=trim(answer.title.value)
content=trim(answer.content.value)
If username = Empty Then
     MsgBox "「用户名」不得为空白!", 64, "Oh no!"
     answer.username.focus
     Exit Sub
End if

If answer.password.value = Empty Then
     MsgBox "「密码」不得为空白!", 64, "Oh no!"
     answer.password.focus
     Exit Sub
End if

If title = Empty Then
     MsgBox "「文章主题」不得为空白!", 64, "Oh no!"
     answer.title.focus
     Exit Sub
End if

If content = Empty Then
     MsgBox "「文章内容」不得为空白!", 64, "Oh no!"
     answer.content.focus
     Exit Sub
End if

answer.Submit
End Sub

</Script>
<TABLE cellSpacing=0 cellPadding=1 width="95%" align=center bgColor=#777777 
border=0>
  <TBODY> 
  <TR>
    <TD height="10"> 
      <TABLE style="COLOR: #000000" cellSpacing=0 cellPadding=4 width="100%" 
      border=0 bgcolor="#a9d46d">
        <TBODY>
<tr> 
          <td width="27%" height="2"><font color="#FF0000">&gt;&gt;</font>欢迎您,<b><%if session("loginname")="" then %>请先登录!<%end if%><%=session("loginname")%></b></td>
          <td width="62%" height="2"><img src="images/reg.gif" width="16" height="16" align="absmiddle"><a href="reg.asp">用户注册</a>|<img src="images/login.gif" width="16" height="16"><a href="login.asp">用户登录</a>|<img src="images/update.gif" width="16" height="16"><a href="usermodify.asp">修改资料</a>|<img src="images/message.gif" width="21" height="14">现在时间:<%=now()%></td>
          <td width="11%" height="2"> 
            <div align="right"><img src="images/home.gif" width="14" height="14" align="absmiddle">返回首页</div>
          </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<!--#include file="replybody.asp"-->
<%artid=request.querystring("titleid")%>
<form name="answer" method="post" action="reply.asp?titleid=<%=artid%>">
  <table width="95%" border="0" align="center" bgcolor="#777777" cellpadding="1" cellspacing="1" height="185">
    <tr bgcolor="#a9d46d"> 
      <td colspan="2" height="21"> 
        <div align="center"><b>回复主题</b></div>
      </td>
    </tr>
    <tr bgcolor="#f4faed"> 
      <td width="24%" height="19"><b>用户名</b></td>
      <td width="76%" height="19" bgcolor="#f4faed"> 
        <input type="text" name="username" value=<%=Session("loginname")%> size="20" maxlength="20">
      </td>
    </tr>
    <tr bgcolor="#f4faed"> 
      <td width="24%"><b>密码</b></td>
      <td width="76%"> 
        <input type="password" name="password" value=<%=Session("password")%> size="20" maxlength="20">
      </td>
    </tr>
    <tr bgcolor="#f4faed"> 
      <td width="24%"><b>文章主题</b></td>
      <td width="76%"> 
        <input type="text" name="title" maxlength="60" size="35">
        <font color="#FF0000">(不要超过30个字)</font>
        <input type="hidden" name="posttype" value="true">
      </td>
    </tr>
    <tr bgcolor="#f4faed"> 
      <td width="24%"><b>表情</b></td>
      <td width="76%"> 
        <% for i=1 to 18
		if i=1 then	%>
        <input type="radio" name="face" value="<%=i%>" checked>
        <img src="images/<%=i%>.gif" width="15" height="15"> 
        <%else%>
        <input type="radio" name="face" value="<%=i%>">
        <img src="images/<%=i%>.gif" width="15" height="15"> 
        <%
		if i mod 9=0 then response.write "<br>"
			end if
	   next%>
      </td>
    </tr>
    <tr bgcolor="#f4faed"> 
      <td width="24%" height="21"><b>内容</b></td>
      <td width="76%" height="21"> 
        <textarea name="content" cols="80" rows="10" ></textarea>
      </td>
    </tr>
    <tr bgcolor="#f4faed"> 
      <td colspan="2" height="21">
        <div align="center"> 
          <input type="button" value="提交" onclick="datacheck">
          <input type="reset"  value="重填">
        </div>
      </td>
    </tr>
  </table>
</form>
<!--#include file="footer.asp"-->
</body>
</html>

⌨️ 快捷键说明

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