addpinglun.asp

FlashPicViewer电子相册 v2.6 繁体中文版

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><!--#INCLUDE FILE="conn.asp"-->
<%

fenlei=request("fenlei")
url=request("url")
ptitle=request("ptitle")
ptxt=request("ptxt")
pname=request("pname")
if (trim(pname)="") then 
response.write("&SendOK=3")
response.end
end if 

set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_hs_STRING
rs.Source = "SELECT * FROM pinglun"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 2
rs.Open()
rs_numRows = 0

if (request("fenlei")<>"") and  (request("url")<>"") And (trim(request("ptxt"))<>"") And (len(request("ptxt"))>3) then 
rs.Addnew
rs("fenlei")=fenlei
rs("url")=url
rs("ptitle")=pname
rs("ptxt")=ptxt
response.write("&SendOK=1")
rs.update()
else
response.write("&SendOK=2")
end if 



rs.Close()
set rs=nothing 
%>