ycms_pl.asp

安全性好,适用于展示和进行资源下载的个人和大型网站使用!

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/YCMS.asp"-->
<%
YCMS_Open()
If Trim(Request.Form("content"))<>"" Then
checkgetcode()
set rs=server.createobject("Adodb.RecordSet")
	rs.open "YCMS_pl",conn,1,3
	rs.addnew   
	rs("pltab")=Request.Form("pltab")
	rs("plid")=CInt(Request.Form("plid"))
	rs("ip")=Request.Servervariables("remote_addr")
	rs("content")=Request.Form("content")
	rs("addtime")=Now()
	rs("adduser")=username
	rs.update
	rs.close
set rs=Nothing
response.redirect Request.ServerVariables("HTTP_REFERER")
Else
response.redirect Request.ServerVariables("HTTP_REFERER")
End if
YCMS_Close()
%>