📄 lygg.asp

📁 asp程序,自动投稿系统,也可以用来学生交作业,原创程序.
💻 ASP
字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<!--#include file="conn.asp"-->
<%
a=request.QueryString("a")
yj=request.QueryString("yj")
title=request.Form("title")
authorname=request.Form("authorname")
username=request.Form("username")
zt=request.Form("zt")
result=request.Form("result")
fdate=request.Form("date")

if title<>"" then
if zt="" or authorname="" or fdate="" then
     response.write "<SCRIPT language=JavaScript>alert('带 * 号的为必填内容！');"
     Response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
     Response.End
end if
sql="select * from result"
rs.open sql,conn,1,3
rs.addnew
rs("result")=result
rs("zt")=zt
if username<>"" then rs("username")=username
rs("authorname")=authorname
rs("title")=title
rs("date")=fdate

rs.update
	response.Write "<script langurage=javascript> alert('操作成功！')</script>"
 rs.close
 set rs=nothing
 conn.close
 set conn=nothing 
 response.Redirect "admin.asp"
 
else

%>
<html>
<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<style type="text/css">
<!--
body,td,th {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 16px;
}
a {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 16px;
}
-->
</style><title>修改意见</title>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_goToURL() { //v3.0
  var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
  for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
</head>
<body>


<form name="form1" method="post" action="lygg.asp">
  <table width="600"  border="0">
    <tr>
      <td ><div align="center">处理意见</div></td>
      <td align="left" valign="middle" ><p>
          <label>
          <input <%if yj=1 then response.Write "checked"%> name="zt" type="radio"  onclick="MM_goToURL('parent','lygg.asp?a=0&yj=1');return document.MM_returnValue" value="录用">
      录用</label>
          &nbsp;&nbsp;
          <label>
          <input <%if yj=2 then response.Write "checked"%> type="radio" name="zt" value="退稿" onclick="MM_goToURL('parent','lygg.asp?a=0&yj=2');return document.MM_returnValue">
      退稿</label>
         &nbsp;&nbsp;
          <label>
          <input <%if yj=3 then response.Write "checked"%> type="radio" name="zt" value="修改意见" onclick="MM_goToURL('parent','lygg.asp?a=1&yj=3');return document.MM_returnValue">
      修改意见</label>
          <br>
      </p></td>
    </tr>
    <tr>
      <td height="26"><div align="center">文章题目</div></td>
      <td height="26">
      <input type="text" name="title"></td>
    </tr>
    <tr>
      <td width="25%" height="26"><div align="center">第一作者</div></td>
      <td width="75%" height="26"><input type="text" name="authorname"></td>
    </tr>
    <tr>
      <td height="26"><div align="center">联系人</div></td>
      <td height="26"><input type="text" name="username"></td>
    </tr>
    <tr>
      <td height="26"><div align="center">投稿时间</div></td>
      <td height="26"><div align="left">
        <input type="text" name="date">
      </div></td>
    </tr>
    <% if a=1 then%>
	<tr>
      <td ><div align="center">修改意见</div></td>
      <td ><textarea name="result" cols="50" rows="15"></textarea></td>
    </tr>
    <%end if%>
	<tr>
      <td height="26" colspan="2"><div align="center"></div>        <div align="left"><input name="id" type="hidden" value="<%=id%>">
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
        <input name="Submit" type="submit" class="bt" value="确定">
        &nbsp;&nbsp;&nbsp;&nbsp;
        <input name="Submit2" type="button" onclick="history.go(-1);" class="bt" value="返回">
      </div></td>
    </tr>
  </table>
 <%
end if
 
 conn.close
 set conn=nothing 
 %>
</form>
</body>
</html>
⌨️ 快捷键说明

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