📄 edit_ca.asp
字号:
<%
'*****简体中文版 by 资源搜罗站 [http://www.99ss.net]*****
ID=Request("ID")
If request("Request_Method")="POST" Then
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 ID="&ID
rs.open sqlstr,conn,3,2
rs("CaName")=Request("CaName")
rs("Canumber")=Request("Canumber")
rs.Update
rs.close
conn.close
response.redirect "list_ca.asp"
End If
If session("password")<>"test" Then
response.redirect "index.asp"
end if
Myself=Request.ServerVariables("PATH_INFO")
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 ID="&ID
rs.open sqlstr,conn,3,2
CaName=rs("CaName")
Canumber=rs("Canumber")
rs.close
conn.close
%>
<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>
<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR><Th valign=top bgcolor=CFE3F2 width=155>
<a href=../index.asp><img src=../img/chome.gif width=130 height=48 border=0></a><br><br>
<b>目录管理</b><br>
<table border=1 bordercolor=FFA000 cellspacing=4 cellpadding=2 width=130 bgcolor=FFFFCC>
<tr><td width=100% bgcolor=FFF000 align=center><a href=add_ca.asp>新增目录</a></td></tr>
<tr><td width=100% bgcolor=FFF000 align=center><a href=list_ca.asp>列出目录</a></td></tr>
<tr><td width=100% bgcolor=FFF000 align=center>修改目录</td></tr>
</table><br>
<b>拍卖品管理</b><br>
<table border=1 bordercolor=FFA000 cellspacing=4 cellpadding=2 width=130 bgcolor=FFFFCC>
<tr><td width=100% bgcolor=FFF000 align=center><a href=list_bid.asp>列出拍卖品</a></td></tr>
</table><br>
<b>会员管理</b><br>
<table border=1 bordercolor=FFA000 cellspacing=4 cellpadding=2 width=130 bgcolor=FFFFCC>
<tr><td width=100% bgcolor=FFF000 align=center><a href=list_user.asp>列出会员</a></td></tr></table><br>
<form action="search_user.asp" method="post"><input type="text" name="key" size="14" maxlength="50"><br>
<input type="submit" value="会员搜索"></form><br><br><br>
</TH>
<Td align=center width=620 valign=top align=center>
<img src=../img/chome.jpg width=298 height=86><br><br>
<font size=4><big>修改目录内容：</big></font><br><br>
<FORM METHOD=POST ACTION=<%=Myself%>>
<input type="hidden" name="ID" value="<%=ID%>">
<table border=0 width=85%>
<tr><td width=130 bgcolor=fff000>目录编号</td><td><big><%=ID%></big></td></tr>
<tr><td bgcolor=fff000>目录名称</td><td><INPUT TYPE="text" NAME="CaName" SIZE="22" value="<%=CaName%>" MAXLENGTH="20"></td></tr>
<tr><td bgcolor=fff000>拍卖品数</td><td><INPUT TYPE="text" NAME="Canumber" SIZE="5" value="<%=Canumber%>"></td></tr>
<tr><td align=center colspan=2><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>
</TD></TR>
</TABLE>
</center>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -