这个简单！！！
Function WriteData
IF Request("content")="" or Request("content")="请填写日记内容" Then
Response.Write "<font color=red size=1>您没有填写任何内容，请返回填写</font> <a href=write.asp>返回</a>"
response.end
Else
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From *** "
Rs.Open Sql,conn,1,3
Rs.AddNew 如何改成 弹出提示框，点确定后仍在此输入页面。。或者到一个指定提示页，然后过几秒自动返回。
|