📄 add_ca.asp

📁 线上售货网管理模组
💻 ASP
字号:
<%
'*****简体中文版 by 资源搜罗站 [http://www.99ss.net]*****
If request("Request_Method")="POST" Then
  areana=Request("areana")
  Set conn=Server.CreateObject("ADODB.Connection")
  param = "driver={Microsoft Access Driver (*.mdb)}"
  conn.Open param & ";dbq=" & Server.MapPath("../cd.mdb")
  Set rs=Server.CreateObject("ADODB.Recordset")
  sqlstr="select * from area where areana='"&areana&"'"
  rs.open sqlstr,conn,3,2
  IF rs.Recordcount <> 0 Then
    Response.write "<center><font size=6>目录已存在</font><br><br>"
    Response.end
  End If
  rs.AddNew
  rs("areana")=areana
  rs.Update
  rs.close
  conn.close
  response.redirect "add_ca.asp"
  response.end
End If
Myself=Request.ServerVariables("PATH_INFO")
%>
<HTML>
<HEAD>
<TITLE>线上售货网管理模组</TITLE>
<link REL="stylesheet" HREF="../style.css" TYPE="text/css">
</HEAD>
<body bgcolor=ffffff marginheight=0 marginwidth=0 leftmargin=0 topmargin=0>
<center>
<a href=../index.asp><img src=../img/chome.jpg width=298 height=88 border=0></a><br><br>
<font size=4><big>新增CD目录：</big></font><br><br>
<FORM METHOD=POST ACTION=<%=Myself%>>
<TABLE WIDTH=560 BORDER=0 CELLSPACING=2 CELLPADDING=1>
<tr><td width=130 bgcolor=fff000>目前存在的目录</td><td><SELECT NAME=Canamenow SIZE=1>
<%
Set conn=Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("../cd.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from area"
rs.open sqlstr,conn,3,2
  If rs.EOF THEN
    Response.Write "<OPTION>没有存在的目录</OPTION>"
  Else
    Do While Not rs.EOF
      Response.Write "<option value="&rs("areano")&">"&rs("areana")
      rs.MoveNext
    Loop
  End If
rs.close
conn.close
%></Select></td></tr>
<tr><td bgcolor=fff000>新增的目录名称</td><td><INPUT TYPE="text" NAME="areana" SIZE="22" MAXLENGTH="20"><INPUT TYPE="submit" Value="新增"></td></tr></table>
</FORM>
<hr width=90%>
<font size=2><em>系统时间：<%=Now%></em>　程式设计 : <a href=http://chome.rich2000.com.tw>Chome</a></font>　<a href=mailto:chinimin@ms6.hinet.net>站长信箱</a><br>
</center>
</BODY>
</HTML>
⌨️ 快捷键说明

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