📄 sendmessage.asp

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

💻 ASP

字号:

<% @language=vbscript%>

<html>

<head>

</head>

<body bgcolor=#c1f7d8>

<center>

<%

dim strname,strcontent,strtable,strdsn

strname=request.form("name")

strcontent=request.form("content")

strtoname=request.form("toname")

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

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

%>

<br><br><a href=javascript:history.bakc()>上一页</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")=strname

rs("messagecontent")=strcontent

rs("messagetoname")=strtoname

rs.update

rs.close

set rs=nothing

response.write "祝贺你，你的信息成功地发给" & strtoname

%>

</center>

</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -