📄 admin_addsystem.asp

📁 直接解压即可都是asp源码超经典的啊
💻 ASP
字号:
<!--#include file="conn.asp"-->
<% 
id=session("userid")
username=session("username")
if id="" or username="" then
response.Redirect("adminloginerror.asp")
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from adminuser where username='"& username &"' and id=" & id &""
rs.open sql,conn,3,3
if rs.eof then
response.Redirect("adminloginerror.asp")
else
%>
<html>

<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" type="text/css">

<body bgcolor="#FFFFFF" text="#000000" style="background-color: #D6DFF7">
<%
if request.querystring("cmd")="add" then
sysname=server.htmlencode(request.form("sysname"))
zz=server.htmlencode(request.form("zz"))
design=server.htmlencode(request.form("design"))
activex=server.htmlencode(request.form("activex"))
pagecounts=server.htmlencode(request.form("pagecounts"))
model=server.htmlencode(request.form("model"))
free=server.htmlencode(request.form("free"))
opendate=server.htmlencode(request.form("opendate"))
money=server.htmlencode(request.form("money"))
moneyshouming=server.htmlencode(request.form("moneyshouming"))
wf=server.htmlencode(request.form("wf"))
if sysname="" or zz="" or money="" or activex="" or pagecounts="" or wf="" then
response.write"<tr<td><div align=center> 请 完 整 填 写 每 一 项 !</div></td></tr>"
else
set rs=server.createobject("adodb.recordset")
sql="select * from systems"
rs.open sql,conn,3,3
rs.addnew
rs("sysname")=sysname
rs("zz")=zz
rs("design")=design
rs("activex")=activex
rs("pagecounts")=pagecounts
rs("model")=model
rs("free")=free
rs("opendate")=opendate
rs("money")=money
rs("moneyshouming")=moneyshouming
rs("wf")=wf
rs.update
end if
end if
%>
<div align="center">
  <center>
<table width="98%" border="1" cellpadding="5" cellspacing="0" bordercolor="#6687BA" style="border-collapse: collapse">
  <tr> 
    <td height="17" background="images/admin/admin_bg_1.gif"> 
      <div align="center" class="f1" >现 有 系 统 集 成 类 型 </div>
    </td>
  </tr>
  <tr>
    <td height="17">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from systems order by id desc"
rs.open sql,conn,3,3
if rs.eof then 
response.write"<tr<td><div align=center> 暂 时 没 有 系 统 集 成 类 型</div></td></tr>"
else
response.Write"<table width=100% border=0 cellspacing=0 cellpadding=0>"
response.Write"<tr>"
do while not rs.eof
response.Write"<td align=center height=20>"
response.Write"<a href=admin_upsystem.asp?id="& rs("id") &">"& rs("sysname") &"</a>"         
response.Write"</td>"
a=a+1
if a=4 then
response.Write"</tr><tr>"
a=0
end if
rs.movenext
   loop
response.Write"</table>"
end if
%> 
	  </td>
  </tr> 
</table> 
  </center>
</div>
<div align="center"><br>
</div>
<div align="center">
  <center>
<table width="98%" border="1" cellpadding="5" cellspacing="0" bordercolor="#6687BA" style="border-collapse: collapse">
  <form name="form1" method="post" action="admin_addsystem.asp?cmd=add">
    <tr> 
      <td colspan="2" background="images/admin/admin_bg_1.gif"><div align="center" class="f1">系 统 集 成 
          类 型 添 加 </div></td>
    </tr>
	<tr bordercolor="#FFFFFF"> 
      <td width="30%">产品名称：</td>
      <td><input name="sysname" type="text" id="sysname" size="20"></td>
    </tr>
    <tr bordercolor="#FFFFFF"> 
      <td width="30%">创作主旨：</td>
      <td><input name="zz" type="text" id="zz" size="46"></td>
    </tr>
    <tr bordercolor="#FFFFFF"> 
      <td>创意设计：</td>
      <td><input name="design" type="text" id="design" size="20"></td>
    </tr>
    <tr bordercolor="#FFFFFF"> 
      <td>动态效果：</td>
      <td><input name="activex" type="text" id="activex" size="20"></td>
    </tr>
    <tr bordercolor="#FFFFFF"> 
      <td>页面数量：</td>
      <td><input name="pagecounts" type="text" id="pagecounts" size="20">
      </td>
    </tr>
    <tr bordercolor="#FFFFFF"> 
      <td>功能模块：</td>
      <td><input name="model" type="text" id="model" size="20">
      </td>
    </tr>
    <tr bordercolor="#FFFFFF"> 
      <td>免费赠送：</td>
      <td><input name="free" type="text" id="free" value="" size="47">
      </td>
    </tr>
    <tr bordercolor="#FFFFFF"> 
      <td bordercolor="#FFFFFF"> 开发周期： </td>
      <td><input name="opendate" type="text" id="opendate" value="" size="20"></td>
    </tr>
    <tr bordercolor="#FFFFFF"> 
      <td>价格：</td>
      <td>
<input name="money" type="text" id="money" size="10"> 元</td>
        </tr>
        <tr bordercolor="#FFFFFF"><td>
        价格说明：</td><td>
        <input name="moneyshouming" type="text" id="moneyshouming" size="20"></td>
    </tr>
    <tr bordercolor="#FFFFFF">
      <td>后期维护：</td>
      <td><textarea name="wf" wrap="VIRTUAL" id="wf" rows="5" cols="45"></textarea></td>
    </tr>
    <tr bordercolor="#FFFFFF">
      <td>　</td>
      <td><input type="submit" name="Submit" value="提交"></td>
    </tr>
  </form>
</table>
  </center>
</div>
</body>
</html>
<% rs.close
set rs=nothing
set conn=nothing
%>
<% end if %>
⌨️ 快捷键说明

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