📄 editlist.asp
字号:
<!-- #include file="config.asp" -->
<%
RecordId=request("RecordId")
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("aspupload.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from list where RecordId=" & RecordId
rs.open sqlstr,conn,3,2
rs("description")=Left(request("description"), 16)
rs("Cname")=Left(request("Cname"), 20)
rs("picurl")=Left(request("picurl"), 80)
rs("Picno")=request("Picno")
rs("Width")=request("Width")
rs("Height")=request("Height")
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 "list.asp?areana=" & areana
else
Set conn=Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("aspupload.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from list where RecordId=" & RecordId
rs.open sqlstr,conn,3,2
if rs.Recordcount<>0 then
areana=rs("areana")
description=rs("description")
Cname=rs("Cname")
Picno=rs("Picno")
Picurl=rs("Picurl")
Width=rs("Width")
Height=rs("Height")
content=rs("content")
content1=content
IF content<>"" Then
content=Replace(content, "<br><br>", chr(10)&chr(13))
content=Replace(content, "<br>", chr(13))
End If
end if
rs.close
conn.close
end if
%>
<html>
<head>
<title>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -