editlist.asp

来自「使用ASP元件（請自行下載、安裝或登錄） AspUpload+AspJpeg+」· ASP 代码 · 共 55 行

ASP

55 行

<!-- #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>

editlist.asp - 源码说明

本页面展示了「使用ASP元件（請自行下載、安裝或登錄） AspUpload+AspJpeg+Jmail[或AspMail] 整合JS與FLASH套件 Highslide JS+SWFUpload+Titl」中的 editlist.asp 源码文件，采用 ASP 编程语言编写，共 55 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP组件相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?