在线等,急啊

来源:百度知道 编辑:UC知道 时间:2024/07/01 05:58:10
<%
Sub SaveWrite()
Dim name
Dim email
Dim qq
Dim title
Dim content

name=Trim(Request.Form("name"))
email=Trim(Request.Form("email"))
qq=Trim(Request.Form("qq"))
title=Trim(Request.Form("title"))
content=Trim(Request.Form("content"))

If title=""Or content=""Then
Response.Write"<Script>alert('留言主题、留言内容不能为空!');
</script>"

Response.End
ElseIf qq<>""And IsNumeric(qq)=False Then
Response.Write"<Script>alert('QQ号码只能是数字!');</Script>"
Response.End
Else
Set Rs=Server.CreateObject("ADODB.Recordset")
sql="Select * from [info]"
Rs.Open Sql,conn,3,3

也许你是在问这此代码的意思
它是在开始定义了5个变量,用来接收填写的名子,email,qq号,留言主题,留言内容.
然后开始进判断,如果留言主题,留言内容为空(就是不填写
)就出现对话框,内容为"留言主题、留言内容不能为空!"
并结束整个过程
如果不为空,则进行下一层判断.
如果qq 号不为空,但不是数字则出现对话框,内容为"QQ号码只能是数字!"
如果qq号不为空,也是数字则在数据库中进行查找,(以记录集的方式查找)

不知道你对我的答案还能接受吧?

什么问题?

你这是qq空间错误信息代码