📄 wz_xg.asp

📁 吻宇考试管理系统源码吻宇考试管理系统源码
💻 ASP
字号:
<!--#include file=conn.asp-->
<!--#include file=../inc/ubb.asp-->
<script src="../inc/Ubbcode.js"></script>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>吻宇考试管理系统</title>
<style type="text/css">
<!--
body {
	background-color: #EFF8FE;
}
body,td,th {
	font-size: 12px;
}
a:link {
	color: #000000;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #000000;
}
a:hover {
	text-decoration: none;
}
a:active {
	text-decoration: none;
	color: #000000;
}
-->
</style>
<script language="javascript">
function checkform()
{
if(document.cnwy.title.value=="")
{
alert("文章主题不能为空~!")
return false;
}
if(document.cnwy.zuozhe.value=="")
{
alert("文章的作者不能为空~!")
return false;
}
if(document.cnwy.neirong.value=="")
{
alert("文章的内容不能为空~!")
return false;
}
}
</script>
<%
dim wyrs,wysql
dim id
id=request.querystring("id")
wysql="select * from wz where id="&id
set wyrs=conn.execute(wysql)
%>


</head>

<body>
<form action="wz_save.asp?id=<%=wyrs("id")%>" method="post" name="cnwy" id="cnwy" onsubmit="return checkform()">
  <table align="center" cellpadding="1" cellspacing="1" bgcolor="#67B0ED">
    <tr>
      <td colspan="2" bgcolor="#EFF8FE"><div align="center">文章添加</div></td>
    </tr>
    <tr>
      <td width="65" bgcolor="#EFF8FE">文章主题:</td>
      <td width="285" bgcolor="#EFF8FE"><input name="title" type="text" id="title" value="<%=wyrs("title")%>"></td>
    </tr>
    <tr>
      <td bgcolor="#EFF8FE">文章作者:</td>
      <td bgcolor="#EFF8FE"><input name="zuozhe" type="text" id="zuozhe" value="<%=wyrs("zuozhe")%>"></td>
    </tr>
    <tr>
      <td bgcolor="#EFF8FE">发布时间:</td>
      <td bgcolor="#EFF8FE"><%=wyrs("date")%></td>
    </tr>

	<tr>
      <td bgcolor="#EFF8FE">所属科目:</td>
      <td bgcolor="#EFF8FE"><select name="kemu" id="kemu">
      <option value="<%=wyrs("kemu")%>"><%=wyrs("kemu")%></option>
	<%
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from kemu order by id desc"
rs.open sql,conn,1,1
if not rs.eof then
rs.movefirst
do while not rs.eof
%>    
		<option value="<%=rs("name")%>"><%=rs("name")%></option>
<%
rs.movenext
loop
else
%>
<option value="暂时没有科目">暂时没有科目</option>
<%
end if
rs.close
set rs=nothing
set conn=nothing
%>     
	  </select></td>
    </tr>
    <tr>
      <td bgcolor="#EFF8FE">文章内容:</td>
      <td bgcolor="#EFF8FE">以下可以调用ＵＵＢ代码</td>
    </tr>
    <tr>
      <td colspan="2" bgcolor="#EFF8FE"><%call ubb()%></td>
    </tr>
	    <tr>
      <td colspan="2" bgcolor="#EFF8FE"><div align="center">
        <textarea name="neirong" cols="80" rows="20" id="neirong"><%=wyrs("neirong")%></textarea>
      </div></td>
    </tr>
    <tr>
      <td colspan="2" bgcolor="#EFF8FE"><table width="230" align="center" cellpadding="1" cellspacing="1">
        <tr>
          <td width="101"><input type="submit" name="Submit" value="修改"></td>
          <td width="120"><div align="right">
            <input type="submit" name="Submit2" value="清除">
          </div></td>
        </tr>
      </table></td>
    </tr>
  </table>
</form>
</body>
</html>
⌨️ 快捷键说明

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