📄 p.asp
字号:
<option style="background-color:#800080;color: #800080" value="#800080">#800080</option>
<option style="background-color:#FF0000;color: #FF0000" value="#FF0000">#FF0000</option>
<option style="background-color:#BC8F8F;color: #BC8F8F" value="#BC8F8F">#BC8F8F</option>
<option style="background-color:#4169E1;color: #4169E1" value="#4169E1">#4169E1</option>
<option style="background-color:#8B4513;color: #8B4513" value="#8B4513">#8B4513</option>
<option style="background-color:#FA8072;color: #FA8072" value="#FA8072">#FA8072</option>
<option style="background-color:#F4A460;color: #F4A460" value="#F4A460">#F4A460</option>
<option style="background-color:#2E8B57;color: #2E8B57" value="#2E8B57">#2E8B57</option>
<option style="background-color:#FFF5EE;color: #FFF5EE" value="#FFF5EE">#FFF5EE</option>
<option style="background-color:#A0522D;color: #A0522D" value="#A0522D">#A0522D</option>
<option style="background-color:#C0C0C0;color: #C0C0C0" value="#C0C0C0">#C0C0C0</option>
<option style="background-color:#87CEEB;color: #87CEEB" value="#87CEEB">#87CEEB</option>
<option style="background-color:#6A5ACD;color: #6A5ACD" value="#6A5ACD">#6A5ACD</option>
<option style="background-color:#708090;color: #708090" value="#708090">#708090</option>
<option style="background-color:#FFFAFA;color: #FFFAFA" value="#FFFAFA">#FFFAFA</option>
<option style="background-color:#00FF7F;color: #00FF7F" value="#00FF7F">#00FF7F</option>
<option style="background-color:#4682B4;color: #4682B4" value="#4682B4">#4682B4</option>
<option style="background-color:#D2B48C;color: #D2B48C" value="#D2B48C">#D2B48C</option>
<option style="background-color:#008080;color: #008080" value="#008080">#008080</option>
<option style="background-color:#D8BFD8;color: #D8BFD8" value="#D8BFD8">#D8BFD8</option>
<option style="background-color:#FF6347;color: #FF6347" value="#FF6347">#FF6347</option>
<option style="background-color:#40E0D0;color: #40E0D0" value="#40E0D0">#40E0D0</option>
<option style="background-color:#EE82EE;color: #EE82EE" value="#EE82EE">#EE82EE</option>
<option style="background-color:#F5DEB3;color: #F5DEB3" value="#F5DEB3">#F5DEB3</option>
<option style="background-color:#FFFFFF;color: #FFFFFF" value="#FFFFFF">#FFFFFF</option>
<option style="background-color:#F5F5F5;color: #F5F5F5" value="#F5F5F5">#F5F5F5</option>
<option style="background-color:#FFFF00;color: #FFFF00" value="#FFFF00">#FFFF00</option>
<option style="background-color:#9ACD32;color: #9ACD32" value="#9ACD32">#9ACD32</option>
</select></TD>
<TD width="1%" height="25"></TD></TR>
<TR>
<TD width="4%" height="25"></TD>
<TD class=INDEX_XMALL width="5%" height="25"></TD>
<TD class=INDEX_XMALL width="90%" height="25">
<img onclick=Bold() align=absmiddle src="ubbimg/bold.gif" alt="粗体" border="0">
<img onclick=Italicize() align=absmiddle src="ubbimg/italic.gif" alt="斜体" border="0">
<img onclick=Underline() align=absmiddle src="ubbimg/underline.gif" alt="下划线" border="0">
<img onclick=Left() align=absmiddle src="ubbimg/left.gif" alt="左对齐" border="0">
<img onclick=Center() align=absmiddle src="ubbimg/center.gif" alt="居中" border="0">
<img onclick=Right() align=absmiddle src="ubbimg/right.gif" alt="右对齐" border="0">
<img onclick=Link() align=absmiddle src="ubbimg/url.gif" alt="超级连接" border="0">
<img onclick=Mail() align=absmiddle src="ubbimg/mail.gif" alt="email连接" border="0">
<img onclick=Image() align=absmiddle src="ubbimg/img.gif" alt="插入图片" border="0">
<img onclick=Flash() align=absmiddle src="ubbimg/flash.gif" alt="flash动画" border="0">
<img onclick=Code() align=absmiddle src="ubbimg/code.gif" alt="插入代码" border="0">
<img onclick=Quote() align=absmiddle src="ubbimg/quote.gif" alt="引用内容" border="0"></TD>
<TD width="1%" height="25"></TD></TR>
<%End If%>
<TR>
<TD width="4%" height="25"></TD>
<TD class=INDEX_XMALL width="5%" height="25">内 容:</TD>
<TD class=INDEX_XMALL width="90%" height="25"><TEXTAREA name="Content" rows="10" cols="80" id="content"></TEXTAREA> *</TD>
<TD width="1%" height="25"></TD></TR>
<% If HOST_UP=0 then %>
<% If Integral>HOST_INTEGRAL then %>
<% If UserGroupID=1 or UserGroupID=2 or UserGroupID=3 then %>
<TR>
<TD width="4%" height="25"></TD>
<TD class=INDEX_XMALL width="5%" height="25"></TD>
<TD class=INDEX_XMALL width="90%" height="25"><iframe frameborder="0" marginheight="0" marginwidth="0" scrolling="no" height="25" width="100%" name="upfile" src="up.asp"></iframe></TD>
<TD width="1%" height="25"></TD></TR>
<% end if %>
<% end if %>
<% end if %>
<TR>
<TD width="4%" height="25"></TD>
<TD class=INDEX_XMALL width="5%" height="25">图 片:</TD>
<TD class=INDEX_XMALL width="90%" height="25"><INPUT id="Img" name="Img" size="60"> （<A href="a.asp" target="_blank">教您外部贴图</A>）</TD>
<TD width="1%" height="25"></TD></TR>
<% If UserGroupID=1 or UserGroupID=2 or UserGroupID=3 then %>
<TR>
<TD width="4%" height="25"></TD>
<TD class=INDEX_XMALL width="5%" height="25"></TD>
<TD class=INDEX_XMALL width="90%" height="25"><input type="radio" value="<%=UserName%>" name="UserName" checked><%=HTMLCode(UserName)%> <input type="radio" value="" name="UserName"><%=Request.ServerVariables("REMOTE_HOST")%></TD>
<TD width="1%" height="25"></TD></TR>
<% else %>
<TR>
<TD width="4%" height="25"></TD>
<TD class=INDEX_XMALL width="5%" height="25"></TD>
<TD class=INDEX_XMALL width="90%" height="25"><input type="radio" value="" name="UserName" checked><%=request.serverVariables("remote_host")%> <a href="i.asp" target="_blank">登录</a> | <a href="r.asp" target="_blank">注册</a> | <a href="w.asp" target="_blank">忘记密码</a></TD>
<TD width="1%" height="25"></TD></TR>
<% end if %>
<TR>
<TD width="4%" height="30"></TD>
<TD class=INDEX_XMALL width="5%" height="30"></TD>
<TD class=INDEX_XMALL width="90%" height="30"><INPUT type=submit name="SUBMIT" value=" 回复帖子 "></TD>
<TD width="1%" height="30"></TD></TR></form>
<% else %>
<%
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style=font:9pt Verdana>"
response.write "<center><font face=Georgia,Tahoma size=2><u>友情提示：服务器禁止非法操作...</u></font></center>"
response.write "</td></tr></table></center>"
response.end
end if
%>
<%
fqys=request.servervariables("query_string")
dim nothis(18)
nothis(0)="net user"
nothis(1)="xp_cmdshell"
nothis(2)="/add"
nothis(3)="exec%20master.dbo.xp_cmdshell"
nothis(4)="net localgroup administrators"
nothis(5)="select"
nothis(6)="count"
nothis(7)="asc"
nothis(8)="char"
nothis(9)="mid"
nothis(10)="'"
nothis(11)=":"
nothis(12)=""""
nothis(13)="insert"
nothis(14)="delete"
nothis(15)="drop"
nothis(16)="truncate"
nothis(17)="from"
nothis(18)="%"
errc=false
for i= 0 to ubound(nothis)
if instr(FQYs,nothis(i))<>0 then
errc=true
end if
next
if errc then
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style=font:9pt Verdana>"
response.write "<center><font face=Georgia,Tahoma size=2><u>友情提示：服务器禁止非法操作...</u></font></center>"
response.write "</td></tr></table></center>"
response.end
end if
%>
<%
If HOST_VIP=1 then
If UserGroupID<1 then
Response.Write ("<script>alert('友情提示!\n\n非会员不能回复帖子!');history.back();</script>")
Response.end
End If
End If
if Status<>3 then
Dim MaxTopicID,Img,Content,Ip
BoardNlass=CInt(Request.QueryString("//"))
BoardClass=CInt(Request.QueryString("///"))
BoardChild=CInt(Request.QueryString("////"))
If BoardChild="" or BoardChild=0 or not IsNumeric(BoardChild) Then
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style=font:9pt Verdana>"
response.write "<center><font face=Georgia,Tahoma size=2><u>友情提示：服务器禁止非法操作...</u></font></center>"
response.write "</td></tr></table></center>"
Response.End
End If
Sql="select Max(TopicID) from QiQiBoy_Topic_Disp"
Set Rs=Conn.execute(Sql)
MaxTopicID=Rs(0)
if isnull(MaxTopicID) then MaxTopicID=0
UserName=Request.Form("UserName")
UserName=PostString(UserName)
Title=Request.Form("Title")
Title=PostString(Title)
Content=PostString(Request.Form("Content"))
Img=Request.Form("Img")
Img=PostString(Img)
Ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If Ip = "" Then Ip = Request.ServerVariables("REMOTE_ADDR")
Sql="Insert into QiQiBoy_Topic_Disp (TopicID,ParentID,RootID,BoardNlass,BoardClass,BoardChild,UserName,LastPost,Title,Content,Img,DateAndTime,UpdateTime,Reads,Replys,Status,TopicIp) values ("&MaxTopicID+1&","&RootID&","&RootID&","&BoardNlass&","&BoardClass&","&BoardChild&",'"&UserName&"',' ','"&Title&"','"&Content&"','"&Img&"',#"&Now()&"#,#"&Now()&"#,0,0,1,'"&Ip&"')"
Set Rs=Conn.execute(Sql)
Sql="Update QiQiBoy_Topic_Disp set LastPost='"&UserName&"',UpdateTime=#"&Now()&"#,Replys=Replys+1 where BoardNlass="&Cint(BoardNlass)&" and BoardClass="&Cint(BoardClass)&" and BoardChild="&BoardChild&" and ParentID=0 and RootID="&RootID
Set Rs=Conn.execute(Sql)
Sql="Update QiQiBoy_Topic_Disp set ReplyIp='"&Ip&"' where BoardNlass="&Cint(BoardNlass)&" and BoardClass="&Cint(BoardClass)&" and BoardChild="&BoardChild&" and ParentID=0 and RootID="&RootID
Set Rs=Conn.execute(Sql)
Sql="Update QiQiBoy_Board_Disp set LastModify=#"&now()&"# where BoardNlass="&Cint(BoardNlass)&" and BoardClass="&Cint(BoardClass)&" and BoardChild="&BoardChild
Set Rs=Conn.execute(Sql)
Sql="Update QiQiBoy_Board_Disp set BoardReplys=BoardReplys+1 where BoardNlass="&Cint(BoardNlass)&" and BoardClass="&Cint(BoardClass)&" and BoardChild="&BoardChild
Set Rs=Conn.execute(Sql)
Sql="Update QiQiBoy_Status_Disp set TotalReplys=TotalReplys+1 where StatusID=1"
Set Rs=Conn.execute(Sql)
Sql="Update QiQiBoy_User_Disp set Replys=Replys+1 where UserName='"&UserName&"'"
Set Rs=Conn.execute(Sql)
Sql="Update QiQiBoy_User_Disp set Integral=Integral+1 where UserName='"&UserName&"'"
set Rs=conn.execute(sql)
end if
%>
<%If HOST_COPY=0 then%>
<%
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath("upload_file/"&Img&"")
Jpeg.Canvas.Font.Color = &HFF0000
Jpeg.Canvas.Font.Family = "宋体"
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Print 10, 10, ""&HOST_COPYTXT&""
Jpeg.Save Server.MapPath("upload_file/"&Img&"")
Set Jpeg = Nothing
%>
<%End If%>
<script language="JavaScript" src="js/not_js.asp"></script>
<% end if %>
<% if Action = 1 then %>
<TR>
<TD width="5%" height="20"></TD>
<TD colspan="2" width="90%" height="20"></TD>
<TD width="5%" height="20"></TD></TR>
<TR>
<TD colspan="4" background="IMAGES/betle_img_line.gif"></TD></TR>
<TR>
<TD width="5%" height="20"></TD>
<TD class=INDEX_XMALL width="90%" height="50" align=center><img src="Images/loading.gif" border="0"></TD>
<TD width="5%" height="20"></TD></TR>
<TR>
<TD width="5%" height="20"></TD>
<TD colspan="2" width="90%" height="20"></TD>
<TD width="5%" height="20"></TD></TR>
<TR>
<TD colspan="4" background="IMAGES/betle_img_line.gif"></TD></TR>
<meta http-equiv="refresh" content="0;URL=p.asp?/=<%=RootID%>">
<% end if %>
<%
rs.close
Set rs=NOTHING
conn.Close
set conn=nothing
%>
</TBODY></TABLE>
<!--#include file="end.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -