📄 edit_cd.asp

📁 线上售货网管理模组
💻 ASP
字号:
<%
'*****简体中文版 by 资源搜罗站 [http://www.99ss.net]*****
datano=request("datano")
'  开主资料表取部份资料
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 DATA where datano='" & datano & "'"
rs.open sqlstr,conn,3,2
'  写入资料
if request("Request_Method")="POST" then
  if request("content")="" then
    response.write "必须填入。。文章内容"
    response.end
  end if
  If Request("C_Areana")="Y" Then
    rs("Areana")=request("areana")
  End If 
  rs("datana")=request("datana")
  rs("ordprice")=request("ordprice")
  content=request("content")
  content=Replace(content, chr(10)&chr(13), "<br>")
  content=Replace(content, chr(13), "<br>")
  rs("content")=content
  rs.Update
  rs.close
  conn.close
  response.redirect "show_cd.asp?datano=" & datano
end if

'  读取资料表资料作删改
if rs.Recordcount<>0 then
  datano=rs("datano")
  datana=rs("datana")
  ordprice=rs("ordprice")
  content=rs("content")
  content=Replace(content, "<br><br>", chr(10)&chr(13))
  content=Replace(content, "<br>", chr(13))
end if
rs.close
%>
<html>
<head>
<link REL="stylesheet" HREF="../style.css" TYPE="text/css">
<title><%=datano%></title>
</HEAD>
<body bgcolor=cfe3f2 text=000000 link=000088 vlink=ff0000 alink=00ff00 marginheight=0 topmargin=10>
<center>
<font size=5 color=000099 face=宋体>修改编号<%=datano%></font>
<form action="edit_cd.asp" method="POST">
<input type="hidden" name="datano" value="<%=datano%>">
<table border=0>
<tr><td valign="top" bgcolor="9BB1FF">目录</td>
<td><select name=areana size=1>
<% 
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from area"
rs.open sqlstr,conn,3,2
  Do While Not rs.EOF
    Response.Write "<option value="&rs("areana")&">"&rs("areana")
    rs.MoveNext
  Loop
rs.close
conn.close
%>
</Select><font color=red>欲更改售品目录时，请先选妥目录并把Y打勾！</font><Input Type=Radio Name=C_Areana Value=Y>Y<Input Type=Radio Name=C_Areana Value=N Checked>N</td></tr>
<tr><td valign="top" bgcolor="9BB1FF">名称</td>
<td><input type="text" size="63" name="datana" maxlength="70" value="<%=datana%>"></td></tr>
<tr><td valign="top" bgcolor="9BB1FF">价钱</td>
<td><input type="text" size="8" name="ordprice" maxlength="8" value="<%=ordprice%>"></td></tr>
<tr><td valign="top" bgcolor="9BB1FF">内容</td><td><font color=red>支援自动与自行断行，每段加一空白行可让版面美观</font></td></tr>
<tr><td colspan="2"><textarea name="content" rows="8" cols="66"><%=content%></textarea></td></tr>
<tr><td colspan=2 align=center>
<input type="submit" value="确定送出">　
<input type="button" value="返回目录" onclick="location.href='index.asp'">
</td></tr></table>
</center>
</form>
</body>
</html>
⌨️ 快捷键说明

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