bbsindex1.asp

教师教学质量评价系统 教师教学质量评价系统 asp 源代码

      <td align="right" valign="middle" width="105" height="38">新用户名：</td>
      <td width="226" height="38" align="left"> 
        <input type="text" name="username" class="input1">
      </td>
    </tr>
    <tr> 
      <td align="right" valign="middle" width="105" height="38">确认新用户名：</td>
      <td width="226" height="38" align="left"> 
        <input type="text" name="username_c" class="input1">
      </td>
    </tr>
    <tr> 
      <td align="right" valign="middle" width="105" height="38"> 旧 密 码： </td>
      <td width="226" height="38" align="left"> 
        <input type="password" name="oldpwd" class="input1">
      </td>
    </tr>
    <tr>
      <td align="right" valign="middle" width="105">新 密 码： </td>
      <td width="226" align="left">
        <input type="password" name="newpwd" class="input1">
      </td>
    </tr>
    <tr> 
      <td align="right" valign="middle" width="105" height="38">确认新密码：</td>
      <td width="226" align="left" height="38"> 
        <input type="password" name="newpwd_c" class="input1">
        <input type="hidden" name="action_e" value="EditPWD">
      </td>
    </tr>
    <tr align="center"> 
      <td colspan="2"> 
        <input type="submit" name="EditPWD" value="修改密码" class="input1">
      </td>
    </tr>
  </form>
</table></TD>
    </TR>
  </TBODY>
</TABLE>

<%End Sub%>

<% Sub Edit() %>
<%
if jd_membercls<>1 then call adminonline()

Sql="Select * From topics Where id="&reStr(Request.QueryString("id"))
set rs=conn.execute(sql)
		   if rs.eof then call msg_List("错误","非法的数据操作",3,indexfilename)  
view2=""
view3=""
view4=""
view=rs("jd_view")
if view=1 then
view2="checked"
end if
if view=2 then
view3="checked"
end if
if view=3 then
view4="checked"
end if

%>
<TABLE width="<%=jd_table_w%>" height=51 border=1 align=center cellPadding=0 cellSpacing=0 class="jd_tab" style="border-collapse:collapse" >
  <TBODY>
    <TR > 
      <TD height=25 class="jd_title" ><div align="center"><font size="3"><strong>编辑留言内容及回复</strong></font></div></TD>
    </TR>
    <TR> 
      <TD height="21" align=middle valign="top" class="jd_tab" ><table width="631" border="0" align="center" cellpadding="4" cellspacing="1" class="unnamed1">
          <form name="form" method="post" action="<%=indexfilename%>">
            <tr> 
              <td colspan="2" align="center">&nbsp; </td>
            </tr>
            <tr> 
              <td align="right" valign="top">留言者：</td>
              <td><font color="#ff0000"><%=unHtml(Rs("jd_name"))%></font>&nbsp;性别: <font color="#ff0000"> 
                <%if Rs("jd_sex")=1 then Response.Write "男" else Response.Write "女" end if%>
                </font> &nbsp;来自:<font color="#ff0000"><%=Rs("jd_come")%></font> 时间:<font color="#ff0000"><%=Rs("jd_date")%></font>&nbsp;ip:<font color="#ff0000"><%=Rs("jd_ip")%></font></td>
            </tr>
            <tr> 
             </tr>
            <tr>
              <td align="right" valign="top">主题：</td>
              <td><input name="title" type="text" id="title" value="<%=Rs("jd_title")%>" size="45" maxlength="50"></td>
            </tr>
            <tr> 
              <td width="139" align="right" valign="top"> 留言内容：<br> <br> </td>
              <td width="473"> <textarea name="reply" cols="60" rows="6" class="input1" id="textarea"><%=Rs("jd_words")%></textarea></td>
            </tr>
            <tr align="center"> 
              <td align="right">&nbsp;</td>
              <td align="left"><input name="replyedit" id="replyedit" type="checkbox" value="1"> 
                <font color="#FF0000">修改原文 <font color="#999999">(如果要修改以上内容,必须选择此项)</font></font></td>
            </tr>
            <tr align="center"> 
              <td align="right">&nbsp;</td>
              <td align="left"></td>
            </tr>
            <tr align="center"> 
              <td align="right">&nbsp;</td>
              <td align="left"> <br> 
                <% 	if  webyn=1 then%> <br> <input name="view" type="checkbox" id="view" value="1" <%=view2%>> 
                <font color="#666666">通过审批</font> <%  end if  %> <font color="#666666">
               
               
              </font></td>
            </tr>
            <tr align="center"> 
              <td colspan="2"> <input type="hidden" name="action_e" value="Edit"> 
                <input type="hidden" name="id" value="<%=reStr(Request.QueryString("id"))%>"> 
                <input type="submit" name="Submit" value=" 提 交 " id="Submit" class="input1"> 
                &nbsp; <input type="reset" name="reset" value=" 取 消 " id="Submit2" class="input1"> 
              </td>
            </tr>
          </form>
        </table></TD>
    </TR>
  </TBODY>
</TABLE>
<% call rsClose()
End Sub %>
<br>
<% Sub Edit_web() %>
<%
call adminonline()
'call allsystem(0)
if Request.Form("submit")="修改" then
Response.Cookies("JD100_net_gb_sys"&jd_sys)=""
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From admin"
Rs.Open Sql,Conn,2,3
   rs("jd_title")=Request.Form("webtitle")
   rs("jd_gl")=Request.Form("webggg")
   rs("jd_gbyn")=cint(Request.Form("webyn"))
   if lentrue(Request.Form("webname"))>50 then call backerr("字数太多")
   if Not IsNumeric(Request.Form("jd_n")) then call backerr("只能输入数字")
   rs("jd_webname")=Request.Form("webname")
   rs("jd_imgpath")=Request.Form("jd_imgpath")
   rs("jd_n")=Request.Form("jd_n")
   if Not IsNumeric(Request.Form("jd_x"))  then call backerr("只能输入数字")
   if Not IsNumeric(Request.Form("jd_txt"))  then call backerr("只能输入数字")
    rs("jd_x")=Request.Form("jd_x")
    rs("jd_txt")=Request.Form("jd_txt")
   rs("jd_fla")=lefttrue(Request.Form("jd_fla"),50)
   rs("jd_table_w")=lefttrue(Request.Form("jd_table_w"),4)
   if cint(Request.Form("jd_mm"))=1 then
    rs("jd_mm")=1
   else
    rs("jd_mm")=0
   end if
   rs("jd_bg")=lefttrue(Request.Form("jd_bg"),50)
   rs("jd_top_addr")=lefttrue(Request.Form("jd_top_addr"),50)
   rs("jd_top_h")=Request.Form("jd_top_h")
   rs("jd_foot_addr")=lefttrue(Request.Form("jd_foot_addr"),50)
   rs("jd_foot_h")=Request.Form("jd_foot_h")
   rs("jd_sty")=Request.Form("jd_sty")
   rs("jd_repyn")=Request.Form("jd_repyn")
   if Not IsNumeric(Request.Form("jd_repn"))  then call backerr("只能输入数字")
   rs("jd_repn")=Request.Form("jd_repn")
   rs("jd_memyn")=Request.Form("jd_memyn")
   rs("jd_http")=lefttrue(Request.Form("http"),200)
   rs.update
   conn.execute("update a set jd_sys=jd_sys+1")
   rs.close
call msg_List("修改成功","",3,indexfilename&"?action=Edit_web")
end if
set rs=conn.execute("select hits,hots from a")
d="&nbsp (浏览统计: " & rs(0) &" 人次,刷新量: "& rs(1) &" 次)"
call rsClose()
%>
<TABLE width="<%=jd_table_w%>" height=51 border=1 align=center cellPadding=0 cellSpacing=0 class="jd_tab" style="border-collapse:collapse" >
  <TBODY>
    <TR > 
      <TD height=25 class="jd_title" ><div align="center"><font size="3"><strong>反馈本设置</strong></font><%=d%></div></TD>
    </TR>
    <TR> 
      <TD height="21" align=middle valign="top" class="jd_tab" ><table width="628" border="0" align="center" cellpadding="4" cellspacing="1" class="unnamed1">
          <form name="reply" method="post" action="<%=indexfilename%>">
            <tr> 
              <td colspan="2" align="center">&nbsp; </td>
            </tr>
            <tr> 
              <td width="202" align="right" valign="top"> 反馈名称</td>
              <td width="399"><input name="webname" type="text" id="webname" value="<%=webname%>" size="50" maxLength=25> 
              </td>
            </tr>
            <tr align="center"> 
              <td align="right">公告内容：</td>
              <td align="left"><textarea name="webtitle" cols="50" rows="5" id="webtitle"><%=webtitle%></textarea></td>
            </tr>
            <tr align="center"> 
              <td align="right">词语过滤：</td>
              <td align="left"><input name="webggg" type="text" id="webggg" value="<%=webgl%>" size="50"> 
              </td>
            </tr>
            <tr align="center"> 
              <td align="right">正常/审批：</td>
              <td align="left"><input name="webyn" type="checkbox" id="webyn" value="1" <%if webyn=1 then Response.Write("checked")%>>
                是 (打上勾则访客的留言必须经过版主同意方显示)</td>
            </tr>
            <tr align="center"> 
              <td align="right">开放秘密留言：</td>
              <td align="left"><input name="jd_mm" type="checkbox" id="jd_mm" value="1" <%if jd_mm=1 then Response.Write("checked")%>>
                是 </td>
            </tr>
            <tr align="center"> 
              <td align="right">最大字数：</td>
              <td align="left"><input name="jd_txt" type="text" id="jd_txt" value="<%=txt%>" size="20" maxlength="10"> 
                <font color="#666666">0 则不限制</font></td>
            </tr>
            <tr align="center"> 
              <td align="right">每页显示留言数：</td>
              <td align="left"><input name="jd_n" type="text" id="jd_n" value="<%=jd100_page_n%>" size="20" maxlength="2"></td>
            </tr>
            <tr align="center"> 
              <td align="right">每页显示页数：</td>
              <td align="left"><input name="jd_x" type="text" id="jd_x" value="<%=jd100_page_x%>" size="20" maxlength="2"></td>
            </tr>
            <tr align="center"> 
              <td align="right">图片相对路径：</td>
              <td align="left"><input name="jd_imgpath" type="text" id="jd_imgpath" value="<%=indeximg%>" size="20" maxlength="50"> 
                <font color="#666666">默认 img/</font></td>
            </tr>
            <tr align="center"> 
              <td align="right">版主信箱：</td>
              <td align="left"><input name="jd_fla" type="text" id="jd_fla" value="<%=jd_fla%>" size="20" maxlength="50"> 
              </td>
            </tr>
            <tr align="center"> 
              <td align="right">背景图片：</td>
              <td align="left"><input name="jd_bg" type="text" id="jd_bg" value="<%=jd_bg%>" size="20" maxlength="50"> 
                <font color="#666666"> 默认 img/1/bookbg.gif </font></td>
            </tr>
            <tr align="center"> 
              <td align="right">表格宽度：</td>
              <td align="left"><input name="jd_table_w" type="text" id="jd_table_w" value="<%=jd_table_w%>" size="20" maxlength="6"></td>
            </tr>
            <tr align="center"> 
              <td align="right">外接框架页眉：</td>
              <td align="left"><input name="jd_top_addr" type="text" id="jd_top_addr" value="<%=jd_top_addr%>" size="20" maxlength="50">                </td>
            </tr>
            <tr align="center"> 
              <td align="right">外接框架页眉高度：</td>
              <td align="left"><input name="jd_top_h" type="text" id="jd_top_h" value="<%=jd_top_h%>" size="20" maxlength="6"></td>
            </tr>
            <tr align="center"> 
              <td align="right">外接框架页脚：</td>
              <td align="left"><input name="jd_foot_addr" type="text" id="jd_foot_addr" value="<%=jd_foot_addr%>" size="20" maxlength="50">                </td>
            </tr>
            <tr align="center"> 
              <td align="right">外接框架页脚高度：</td>
              <td align="left"><input name="jd_foot_h" type="text" id="jd_foot_h" value="<%=jd_foot_h%>" size="20" maxlength="6"></td>
            </tr>
            <tr align="center"> 
              <td align="right">开放回复：</td>
              <td align="left"><input name="jd_repyn" type="radio" value="0" <%if jd_repyn=0 then Response.Write("checked")%>>
                否 
                <input type="radio" name="jd_repyn" value="1" <%if jd_repyn=1 then Response.Write("checked")%>>
                是 </td>
            </tr>
            <tr align="center"> 
              <td align="right">每页显示回复数：</td>
              <td align="left"><input name="jd_repn" type="text" id="jd_repn" value="<%=jd_repn%>" size="20" maxlength="6"></td>
            </tr>
            <tr align="center"> 
              <td align="right">发表反馈功能：</td>
              <td align="left"><input type="radio" name="jd_memyn" value="1" <%if jd_memyn=1 then Response.Write("checked")%>>
                关闭发表 
                  <input type="radio" name="jd_memyn" value="2" <%if jd_memyn=2 then Response.Write("checked")%>>
                可以发表</td>
            </tr>
            <tr align="center"> 
              <td align="right">留言板样式：</td>
              <td align="left"><input name="jd_sty" type="radio" value="0" <%if jd_sty=0 then Response.Write("checked")%>>
                平板式 
                <input type="radio" name="jd_sty" value="1" <%if jd_sty=1 then Response.Write("checked")%>>
                列表式</td>
            </tr>
            <tr align="center">
              <td align="right">主页地址：</td>
              <td align="left"><input name="http" type="text" id="http" value="<%=jd_http%>" size="20"></td>
            </tr>
            <tr align="center"> 
              <td colspan="2"> <font color=#ff0000>注: 设置中请不要用 {} ,大括号字符为系统设置的保留符号!</font><br> 
                <input type="hidden" name="action_e" value="Edit_web"> <input type="submit" name="Submit" value="修改" id="Submit" class="input1"> 
              </td>
            </tr>
          </form>
        </table></TD>
    </TR>
  </TBODY>