站内搜索
您的位置：首页 > 咨询投诉
咨询投诉
-
小李
notitle
留言时间：2007年07月17日 | IP：192.168.0.*
这家伙很懒什么也没留下!
-
admin author
留言时间：2007年07月11日 | IP：192.168.0.*
成功!
请注意留言字数! -
1123 123333333
留言时间：2006年05月30日 | IP：192.168.0.*
12312312313213
管理员2007年07月11日
留言内容查看! -
dfsf dsfdsf
留言时间：2006年05月26日 | IP：192.168.0.*
sfs
<%
Dim ClassID,CheckCode
Dim ID,Title,Flag,Detail,EditPerson,EditDate,Address,Email,Tel,WebUrl,IP
Dim Temp_Sql,Temp_Rs
Set Temp_Rs=Server.CreateObject("ADODB.RecordSet")
CheckCode=GetParameter("CheckCode")
IF(Trim(CheckCode)=Trim(Session("CheckCode")))THEN
ClassID=GetParameter("ClassID")
Title=Trim(GetParameter("Title"))
Flag=Trim(GetParameter("Flag"))
Detail=Trim(Request("Detail"))
EditPerson=Trim(GetParameter("UserName"))
EditDate=Now()
Address=Trim(GetParameter("UserAddress"))
Email=Trim(GetParameter("UserEmail"))
Tel=Trim(GetParameter("UserTel"))
WebUrl="about:blank"
IP=Request.ServerVariables("REMOTE_ADDR")
Temp_Sql="Select * From Ly"
Temp_Rs.Open Temp_Sql,Conn,1,3
Temp_Rs.AddNew()
Temp_Rs.Fields("ID")=GetNextID("LY")
Temp_Rs.Fields("PDID")=Trim(ClassID)
Temp_Rs.Fields("LMID")=Trim(0)
Temp_Rs.Fields("Title")=Trim(Title)
'debug Flag&"|"&Trim(GetParameter("Flag"))
Temp_Rs.Fields("Flag")=Trim(Flag)
Temp_Rs.Fields("Detail")=Trim(Detail)
Temp_Rs.Fields("EditPerson")=Trim(EditPerson)
Temp_Rs.Fields("EditDate")=Trim(EditDate)
Temp_Rs.Fields("Address")=Trim(Address)
Temp_Rs.Fields("Email")=Trim(Email)
Temp_Rs.Fields("Tel")=Trim(Tel)
Temp_Rs.Fields("WebUrl")=Trim(WebUrl)
Temp_Rs.Fields("IP")=Trim(IP)
Temp_Rs.Fields("BackCount")=CInt(0)
Temp_Rs.Fields("State")="P"
Temp_Rs.Update()
Temp_Rs.Close()
'//
Response.Write("")
Response.end()
ELSE
Response.Write("")
Response.end()
END IF
'//释放资源
Close()
'//
Set PDID=Nothing
Set LMID=Nothing
Set CheckCode=Nothing
Set ID=Nothing
Set Title=Nothing
Set Flag=Nothing
Set Detail=Nothing
Set EditPerson=Nothing
Set EditDate=Nothing
Set Address=Nothing
Set Email=Nothing
Set Tel=Nothing
Set WebUrl=Nothing
Set IP=Nothing
Set Temp_Sql=Nothing
Set Temp_Rs=Nothing
%> 管理员2006年05月26日
<%
Dim ClassID,CheckCode
Dim ID,Title,Flag,Detail,EditPerson,EditDate,Address,Email,Tel,WebUrl,IP
Dim Temp_Sql,Temp_Rs
Set Temp_Rs=Server.CreateObject("ADODB.RecordSet")
CheckCode=GetParameter("CheckCode")
IF(Trim(CheckCode)=Trim(Session("CheckCode")))THEN
ClassID=GetParameter("ClassID")
Title=Trim(GetParameter("Title"))
Flag=Trim(GetParameter("Flag"))
Detail=Trim(Request("Detail"))
EditPerson=Trim(GetParameter("UserName"))
EditDate=Now()
Address=Trim(GetParameter("UserAddress"))
Email=Trim(GetParameter("UserEmail"))
Tel=Trim(GetParameter("UserTel"))
WebUrl="about:blank"
IP=Request.ServerVariables("REMOTE_ADDR")
Temp_Sql="Select * From Ly"
Temp_Rs.Open Temp_Sql,Conn,1,3
Temp_Rs.AddNew()
Temp_Rs.Fields("ID")=GetNextID("LY")
Temp_Rs.Fields("PDID")=Trim(ClassID)
Temp_Rs.Fields("LMID")=Trim(0)
Temp_Rs.Fields("Title")=Trim(Title)
'debug Flag&"|"&Trim(GetParameter("Flag"))
Temp_Rs.Fields("Flag")=Trim(Flag)
Temp_Rs.Fields("Detail")=Trim(Detail)
Temp_Rs.Fields("EditPerson")=Trim(EditPerson)
Temp_Rs.Fields("EditDate")=Trim(EditDate)
Temp_Rs.Fields("Address")=Trim(Address)
Temp_Rs.Fields("Email")=Trim(Email)
Temp_Rs.Fields("Tel")=Trim(Tel)
Temp_Rs.Fields("WebUrl")=Trim(WebUrl)
Temp_Rs.Fields("IP")=Trim(IP)
Temp_Rs.Fields("BackCount")=CInt(0)
Temp_Rs.Fields("State")="P"
Temp_Rs.Update()
Temp_Rs.Close()
'//
Response.Write("")
Response.end()
ELSE
Response.Write("")
Response.end()
END IF
'//释放资源
Close()
'//
Set PDID=Nothing
Set LMID=Nothing
Set CheckCode=Nothing
Set ID=Nothing
Set Title=Nothing
Set Flag=Nothing
Set Detail=Nothing
Set EditPerson=Nothing
Set EditDate=Nothing
Set Address=Nothing
Set Email=Nothing
Set Tel=Nothing
Set WebUrl=Nothing
Set IP=Nothing
Set Temp_Sql=Nothing
Set Temp_Rs=Nothing
%> -
tt ergeg
留言时间：2006年05月25日 | IP：192.168.0.*
egergegeg...
-
第1页 / 共2页 (共7条记录)
