<%
dim sql,rs,rs1,rs2
If Request("Type") = "Save" then
Errmsg = ""
if trim(request("UserName")) = "" then Errmsg = Errmsg & "姓名不能为空！"
If trim(request("Content")) = "" then Errmsg = Errmsg & "留言内容不能为空！"
If Errmsg = "" Then
Set Rs=server.createobject("adodb.recordset")
Sql = "Select * From MK_Guest"
Rs.open Sql,conn,1,3
Rs.addnew
Rs("GuestUser") = Request("UserName")
Rs("UserID") = Request("UserID")
Rs("Content") = TxtCheck(Request("Content"),4,"")
Rs("ClassBID") = 20001
Rs.Update
Rs.close:Set Rs=Nothing
alertm("您的求购信息已入库，感谢您的使用!^ ^")
Else
alertmGo(Errmsg)
End if
End If
%>
求购信息山特|山特UPS|山特代理|山特产品|山特价格|山特销售-山特电子
