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

📄 xiangmu.asp

📁 报名系统。带源代码的asp 可以自动在实现网上报名]
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!-- #include file=check.asp -->
<html>
<head>
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<STYLE type=text/css>
.inputs{border-left:0px;border-right:0px;border-top:0px;border-bottom:1px groove #aa9977;width:310px;font-size:9pt;BACKGROUND-COLOR: #000000;}
</STYLE>
<title>报名项目管理</title>
</head>
<body text=ffffff leftmargin="0" bgcolor=000000 style="background-color: #FFFFFF">
<%
	Dim baoming,shuoming,id
	baoming=Request("baoming")
	shuoming=Request("shuoming")
	id=int(Request("id"))
	
If Request.QueryString("action")="save" Then
   set Rs=server.CreateObject("ADODB.Recordset")
   Rs.open "select * from xiangmu",con,1,3
   rs.addnew                 
   rs("baoming")=baoming
   rs("shuoming")=shuoming
   rs.update                   
   rs.close              
   set rs=nothing
   Response.Redirect "xiangmu.asp"
end if
If Request.QueryString("action")="gai" Then
   set Rs=server.CreateObject("ADODB.Recordset")
   Rs.open "select * from xiangmu where id="&id&"",con,1,3        
   rs("baoming")=baoming
   rs("shuoming")=shuoming
   rs.update                   
   rs.close              
   set rs=nothing
   Response.Redirect "xiangmu.asp"
end if

%>
<br>
<center>
    <div align="left">
      <table align="center">
      	        <tr> 
          <td> </td>
          <td align="right" valign=top><span class="p9"><font color="#000000">已有项目</font></span></td>
          <td align="left"> 
            <font color="#000000"> 
  		<%set Rs1=server.CreateObject("ADODB.Recordset")
   Rs1.open "select * from xiangmu",con,1,1
   if Rs1.eof or Rs1.bof then
      response.write "数据库错误,数据库中汇款项目不存在,请添加汇款项目后再操作!"
      Rs1.close
      set Rs1=nothing
      con.close
      set con=nothing
      response.end
   end if
rs1.movefirst
while not rs1.eof
response.write("<a href=guanli.asp?fenlei="&rs1("id")&">"&rs1("paixu")&":"&rs1("baoming")&"</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href=guanli.asp?fenlei="&rs1("id")&">查看报名表</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href=?baoming="&rs1("baoming")&"&shuoming="&rs1("shuoming")&"&id="&rs1("id")&">修改项目</a><br>")
rs1.movenext
wend

   Rs1.close
   set Rs1=nothing
   con.close
   set con=nothing
  		%>
</font></td>
        </tr>
<%If baoming="" Then%>
<form method="POST" action="?action=save" style="color: #000000; border: 1px solid #FFFFFF">
        <tr> 
          <td align="right"> </td>
          <td align="right"><font color="#000000"><span class="p9">项目名称</span></font></td>
          <td align="center"> 
            <font color="#000000"> 
            <input name="baoming" value="<%=baoming%>" size="50" class="inputs" maxlength="50" style="border: 1px dotted #C0C0C0; ; color:#000000; background-color:#FFFFFF">
            </font>
          </td>
        </tr>
        <tr>
          <td align="right"> </td>
          <td align="right" valign=top><font color="#000000"><span class="p9">其他说明</span></font></td>
          <td align="center">
            <font color="#000000">
            <textarea name="shuoming" cols="48" rows="9" class="smallarea" style="color: #000000; border: 1px solid #C0C0C0; background-color: #FFFFFF"><%=shuoming%></textarea>
            </font>
          </td>
        </tr>
        <tr> 
          <td align="right"> </td>
          <td align="right"></td>
          <td align="center">
            <dl> 
              <font color="#000000"> 
              <input type="submit" value="   完 成 提 交   " class="buttonface" style="color: #000000; background-color: #C0C0C0">
              <input type="reset" value="   重 新 再 写   " class="buttonface" style="color: #000000; background-color: #C0C0C0">
              </font>
            </dl>
          </td>
        </tr>
</form>
<%else%>
<form method="POST" action="?action=gai" style="color: #000000; border: 1px solid #FFFFFF">
        <tr> 
          <td align="right"> </td>
          <td align="right"><font color="#000000"><span class="p9">项目名称</span></font></td>
          <td align="center"> 
            <font color="#000000"> 
            <input name="baoming" value="<%=baoming%>" size="50" class="inputs" maxlength="50" style="border: 1px dotted #C0C0C0; ; color:#000000; background-color:#FFFFFF">
            <input name="id" type=hidden value="<%=id%>" size="50" class="inputs" maxlength="50" style="border: 1px dotted #C0C0C0; ; color:#000000; background-color:#FFFFFF">
            </font>
          </td>
        </tr>
        <tr>
          <td align="right"> </td>
          <td align="right" valign=top><font color="#000000"><span class="p9">其他说明</span></font></td>
          <td align="center">
            <font color="#000000">
            <textarea name="shuoming" cols="48" rows="9" class="smallarea" style="color: #000000; border: 1px solid #C0C0C0; background-color: #FFFFFF"><%=shuoming%></textarea>
            </font>
          </td>
        </tr>
        <tr> 
          <td align="right"> </td>
          <td align="right"></td>
          <td align="center">
            <dl> 
              <font color="#000000"> 
              <input type="submit" value="   完 成 提 交   " class="buttonface" style="color: #000000; background-color: #C0C0C0">
              <input type="reset" value="   重 新 再 写   " class="buttonface" style="color: #000000; background-color: #C0C0C0">
              </font>
            </dl>
          </td>
        </tr>
</form>
<%end if%>
        <tr> 
          <td align="right"> </td>
          <td align="right"></td>
          <td align="center">  </td>
        </tr>
      </table>
</div>

<table width=350 align="center">
<td align="left">
</td>
</table>
</center>
</body>
</html>

⌨️ 快捷键说明

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