📄 leavemessage.asp

📁 集合了学习asp的100个实例

💻 ASP

字号:

<% @language=vbscript%>

<html>

<head>

</head>

<body bgcolor=#c1f7d8>

<center>

<%

dim strName,strEmail,strHomepage,strContent,strTable,strDsn

strName=Request.Form("name")

strEmail=Request.Form("email")

strHomepage=request.form("homepage")

strcontent=request.form("content")

strtoname=request.form("toname")

if trim(strname)="" or trim(strcontent)="" then

   response.write "<br><br>姓名及内容不能为空"

%>

<br><b><a href=javascript:hisory.back()>上一页</a><br>

<%

   response.end

end if

strtable="message"

strDsn="dsn=bbs;uid=feng;pwd=feng"

set rs=server.createobject("adodb.recordset")

rs.open strtable,strdsn,1,3

rs.addnew

rs("messagename")=srname

rs("messageemail")=stremail

rs("messagehomepage")=strhomepage

rs("messagecontent")=strcontent

rs("messagetoname")=strtoname

rs.update

rs.close

set rs=nothing

response.write "祝贺你，你的信息成功地发给了管理员"

%>

</center>

</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -