📄 add_cd.asp
字号:
<%
'*****简体中文版 by 资源搜罗站 [http://www.99ss.net]*****
areana=request("areana")
Set conn=Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("../cd.mdb")
if request("Request_Method")="POST" then
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from data"
rs.open sqlstr,conn,3,2
rs.AddNew
rs("areana")=areana
rs("datano") =request("datano")
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
recordno = rs.Recordcount
rs.close
conn.close
response.redirect "list_cd.asp?areana=" & areana
response.end
end if
conn.close
%>
<HTML>
<HEAD><TITLE>增加新光碟</TITLE>
<link REL="stylesheet" HREF="../style.css" TYPE="text/css">
</HEAD>
<body bgcolor=cfe3f2 text=000000 link=000088 vlink=ff0000 alink=00ff00 marginheight=0 topmargin=10>
<center>
<img src=../img/<%=areana%>.gif width=225 height=58><br><br>
<FORM action="add_cd.asp" method="POST">
<input type="hidden" name="areana" value="<%=areana%>">
<table border=0 width=72% bordercolor=olive cellspacing=1 cellpadding=0>
<tr><td width=15% bgcolor=9BB1FF>CD编号</td><td width=85%><input type=text name=datano size=12 value="" maxlength=10></td></tr>
<tr><td width=15% bgcolor=9BB1FF>CD名称</td><td width=85%><input type=text name=datana size=56 value="" maxlength=50></td></tr>
<tr><td width=15% bgcolor=9BB1FF>CD价格</td><td width=85%><input type=text name=ordprice size=56 value="200" maxlength=5></td></tr>
<tr><td colspan=2>CD解说</td></tr>
<tr><td colspan=2><TEXTAREA name=content cols=65 rows=8><%=content%></TEXTAREA></td></tr>
</table><br>
<input type=submit value=填妥送出> <input type=button value=返回上页 onclick="location.href='list.asp?areana=<%=areana%>'">
</td></tr></table>
</form>
</center>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -