insert.asp

来自「用asp写的关于亚运会的网页」· ASP 代码 · 共 50 行

ASP
50 行
字号 
<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<title>添加留言</title>
<%
function HTMLcode(fString)
if not isnull(fString) then
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "<P>")
    fString = Replace(fString, CHR(10), "<BR>")
    HTMLcode = fString
end if
end function
xm=trim(request.Form("Name"))
bq=trim(request.Form("Facefile"))
tm=trim(request.Form("Title"))
nr=HTMLcode(request.form("Content"))
sj=date()
if xm="" or bq="" or nr="" or tm="" then
%>
	<script language="vbscript">
	msgbox "请把表单填完整!",vbonlyok+vbinformation,"提示"
</script>
<% 
server.transfer "fill.asp"
else
set cn1 = server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
cn1.ConnectionString="dsn=asp"
cn1.Open 
rs.LockType=3
sql1= "SELECT * FROM table_liuyan"
rs.Open sql1,cn1
rs.addnew
rs(1)=xm
rs(2)=bq
rs(3)=tm
rs(4)=nr
rs(6)=sj
rs.update
cn1.close
set cn1=nothing
response.redirect "index.asp"
end if
%>
</head>
<body>
</body>
</html>

insert.asp - 源码说明

本页面展示了「用asp写的关于亚运会的网页」中的 insert.asp 源码文件，采用 ASP 编程语言编写，共 50 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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