ly.asp

ASP编写的刷ALEXA的平台

<!--#include file="conn.Asp"-->
<%
dim username,usertext,biaoti
username=request("username")
usertext=request("usertext")
biaoti=request("biaoti")
if biaoti="" then
Call Msgs("标题不能为空！","manage1.asp?action=ly")
else
if usertext="" then
Call Msgs("留言内容不能为空！","manage1.asp?action=ly")
else
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open "select * from ly",conn,1,3
rs.addnew
rs("username")=username
rs("biaoti")=biaoti
rs("usertext")=usertext
rs.update
rs.close
Call Msgs("留言成功！","manage1.asp?action=ly")
end if
end if
%>