postpaint.asp
来自「前台及后台用户名密码都是：gz35gz35.com」· ASP 代码 · 共 808 行 · 第 1/3 页
ASP
808 行
<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/dv_clsother.asp"-->
<!--#include file="inc/dv_ubbcode.asp"-->
<!--#include file="paintCONN.asp"-->
<%
If Dvbbs.BoardID < 1 Then
Response.Write "参数错误"
Response.End
End If
Dim totalusetable,AnnounceID,ReplyID
Dim MyPost,UserName
Dim postbuyuser,bgcolor,Dvbbs_Mode
Dim ReplyID_a,AnnounceID_a,RootID_a,T_GetMoneyType
Dvbbs.Loadtemplates("post")
Set MyPost = New Dvbbs_Post
Dvbbs.Stats = MyPost.ActionName
Dvbbs.Nav()
Dvbbs.Head_var 1,Dvbbs.BoardNode.attributes.getNamedItem("depth").text,"",""
'babycat==============涂鸦
const paintpath="paint" '涂鸦板路径。不要加"/"
dim playaction,PaintType,AniName,P_picname,ProName,P_imgHeight,P_imgWidth,P_topic,isAni,yesImg,isPic,imgQueryString,draw_info,P_page,Qstring1,URL_ProName,S_HTML_ProName
dim P_rs,P_sql,P_imageID,PostStr,PBoardID
PBoardID=request.querystring("BoardID")
P_imageID=request.querystring("imageID")
set P_rs=Server.CreateObject("ADODB.RecordSet")
P_SQL="select * from [imgTopic] where BoardID="&PBoardID&" and imageID="&P_imageID&""
P_rs.open P_SQL,paintCONN,0,1
if not P_rs.eof then
paintCONN.execute("update [imgTopic] set hits=hits+1 where imageID="&P_imageID)
paintCONN.execute("update [board] set lastHitNum=lastHitNum+1 where BoardID="&PBoardID)
paintCONN.execute("update [Forums] set HitNum=HitNum+1")
end if
P_imageID=P_rs("imageID")
ProName=P_rs("UserName")
AniName=P_rs("AniName")
P_picname=P_rs("PicName")
P_imgWidth=P_rs("img_Width")
P_imgHeight=P_rs("img_height")
PaintType=P_rs("PaintType")
P_topic=P_rs("Topic")
draw_info=split(P_rs("draw_info"),",")
PBoardID=P_rs("BoardID")
isAni=true
yesImg=true
URL_ProName=ProName
S_HTML_ProName=Server.HTMLencode(ProName)
'URLencode(0,ProName)
imgQueryString=P_rs("imgQueryString")
Qstring1= "&BoardID="&PBoardID&"&imageID="&P_imageID&"&page="&P_page&"&ProName="&ProName&"&iQ="&imgQueryString
Select CASE right(AniName,4)
Case ".oeb" playaction="playOeb"':PaintType="OekakiBBS"
Case ".pch" playaction="playPch"':PaintType="PaintBBS"
Case "spch"
if draw_info(0)=0 then draw_info(0)=3
if draw_info(1)=0 then draw_info(1)=3
playaction="playSPch&layerNum="&draw_info(1) ':PaintType="Shi-Painter"
'Case "lsk" playaction="playlsk.asp"':PaintType="Lascaux Sketch" '预备为Lascaux画板，该画板的缩图和动画均未完工
Case ".gif"
isAni=false
if P_picname="isdelete.gif" then
playaction="noImg":yesImg=false
P_imgWidth=120
P_imgHeight=120
end if
Case "post" isAni=false:yesImg=false
case else isAni=false
end select
PostStr="<table width=100% border=""0""height=51><tr><td><img border=""1"" height="&P_imgHeight&" width="&P_imgWidth&" src="""&paintpath&"/picdata/"&P_picname&"""></td></tr><tr><td>"
PostStr=PostStr+"<A HREF="""&paintpath&"/PaintBlue.asp?action=Query&BoardID="&PBoardID&"&page="&P_page&"&SearchWords="&URL_ProName&"&sstype=1"" title="""&S_HTML_ProName&" 的所有作品""><B>作品集合</B></A>"
if isAni then
PostStr=PostStr+" | <A HREF ="&paintpath&"/playAni.asp?action="&playaction&Qstring1&"&PicWidth="&P_imgWidth&"&PicHeight="&P_imgHeight&"&thisfile="&AniName&"&PlayType="&PaintType&"><B>播放动画</B></A>"
PostStr=PostStr+" | <A HREF = """&paintpath&"/picData/"& AniName &"""><B>保存动画</B></A>"
end if
if yesImg then
PostStr=PostStr+" | <A HREF="""&paintpath&"/rPaint.asp?action=rPaint"&Qstring1&""" title=""续绘该图或编辑标题""><B>作品续绘</B></A>"
end if
PostStr=PostStr+"</td></tr></table>"
' response.write PostStr
'==============
Dim dv_ubb,abgcolor
Dim EmotPath
EmotPath=Split(Dvbbs.Forum_emot,"|||")(0) 'em心情路径
Set dv_ubb=new Dvbbs_UbbCode
dv_ubb.posttype=1
MyPost.Show_Post_Body
Set MyPost = Nothing
Dvbbs.ActiveOnline
Dvbbs.Footer
Class Dvbbs_Post
Public Action,ActionName,Star,Page,IsAudit,ToAction
Private ParentID,RootID,Topic,Content,char_changed,signflag,mailflag,iLayer,iOrders
Private TopTopic,IsTop,LastPost,LastPost_1,UpLoadPic_n,ihaveupfile,smsuserlist,upfileinfo
Private UserPassWord,UserPost,GroupID,UserClass,DateAndTime,DateTimeStr,Expression,MyLastPostTime,LastPostTimes
Private LockTopic,MyLockTopic,MyIsTop,MyIsTopAll,MyTopicMode
Private CanLockTopic,CanTopTopic,CanTopTopic_a,CanEditPost,Rs,SQL,i
Private vote,votetype,votenum,votetimeout,voteid,isvote
Private GetMoneyType
Private FoundUseMagic,iMagicFace,tMagicMoney,tMagicTicket
Private Sub Class_Initialize()
If Dvbbs.Board_Setting(0)="1" And Not Dvbbs.Master Then
Response.redirect "showerr.asp?action=lock&boardid="&dvbbs.boardID&""
End If
If Dvbbs.IsReadonly() And Not Dvbbs.Master Then Response.redirect "showerr.asp?action=readonly&boardid="&dvbbs.boardID&""
Action = Request("Action")
TotalUseTable = Dvbbs.NowUseBBS
Select Case Action
Case "new"
Action = 1
ActionName = template.Strings(0)
ToAction = "SavePost.asp?Action=snew&boardid="&Dvbbs.BoardID
If Dvbbs.GroupSetting(3)="0" Then Dvbbs.AddErrCode(70)
Case "re"
Action = 2
ActionName = template.Strings(2)
ToAction = "SavePost.asp?Action=sre&method=Topic&boardid="&Dvbbs.BoardID
If Dvbbs.GroupSetting(5)="0" then Dvbbs.AddErrCode(71)
Case "vote"
Action = 3
ActionName = template.Strings(4)
ToAction = "SavePost.asp?Action=svote&boardid="&Dvbbs.BoardID
If Dvbbs.GroupSetting(8)="0" then Dvbbs.AddErrCode(56)
Case "edit"
Action = 4
ActionName = template.Strings(6)
ToAction = "SavePost.asp?Action=sedit&boardid="&Dvbbs.BoardID
Case Else
Action = 1
ActionName = template.Strings(0)
End Select
Star = Request("star")
If Star = "" Or Not IsNumeric(Star) Then Star = 1
Star = Clng(Star)
Page = Request("page")
If Page = "" Or Not IsNumeric(Page) Then Page = 1
Page = Clng(Page)
IsAudit = Cint(Dvbbs.Board_Setting(3))
FoundUseMagic = 0
End Sub
'Action 1=发贴、2=回帖、3=投票、4=编辑 主体部分
Public Function Show_Post_Body()
Chk_Post()
Dim TempStr,TempArray,TempStr1,TempStr2,PostType
signflag=1
mailflag=0
MyTopicMode=0
If Dvbbs.UserID = 0 Then Dvbbs.AddErrCode(6)
Dvbbs.ShowErr()
TempStr = template.html(0)
TempArray = Split(template.html(6),"||")
If IsAudit = 1 Then TempStr = Replace(TempStr,"{$auditinfo}",template.Strings(9))
TempStr = Replace(TempStr,"{$auditinfo}","")
If Action=1 Then TempStr = Replace(TempStr,"{$topicmode}",TopicMode(TempArray(4)))
If signflag=1 Then TempStr = Replace(TempStr,"{$checkbox1}","checked")
TempStr = Replace(TempStr,"{$checkbox1}","")
Select Case mailflag
Case 0
TempStr = Replace(TempStr,"{$checkbox2}","checked")
Case 1
TempStr = Replace(TempStr,"{$checkbox3}","checked")
Case 2
TempStr = Replace(TempStr,"{$checkbox4}","checked")
Case 3
TempStr = Replace(TempStr,"{$checkbox5}","checked")
Case Else
TempStr = Replace(TempStr,"{$checkbox2}","checked")
End Select
TempStr = Replace(TempStr,"{$checkbox2}","")
TempStr = Replace(TempStr,"{$checkbox3}","")
TempStr = Replace(TempStr,"{$checkbox4}","")
TempStr = Replace(TempStr,"{$checkbox5}","")
If Dvbbs.GroupSetting(51)="1" And (Action=1 Or Action=3) Then TempStr = Replace(TempStr,"{$useraction}",TempArray(3))
'话题
TempStr1 = Split(template.Strings(8),",")
For i = 0 To Ubound(TempStr1)
TempStr2 = TempStr2 & "<option value="&TempStr1(i)&">"&TempStr1(i)&"</option>"
Next
TempStr = Replace(TempStr,"{$topictype}",TempStr2)
'特殊标题
If Dvbbs.GroupSetting(51)="1" Then TempStr = Replace(TempStr,"{$topicstatsinfo}",TempArray(1))
TempStr = Replace(TempStr,"{$topicstatsinfo}","")
'验证码Board_Setting(4)
If Dvbbs.Board_Setting(4)="0" Then
TempStr = Replace(TempStr,"{$getcode}","")
Else
TempArray(5)= Replace(TempArray(5),"{$codestr}",Dvbbs.GetCode&"<span id=GetCode></span>")
TempStr = Replace(TempStr,"{$getcode}",TempArray(5))
End If
'头像
TempStr = Replace(TempStr,"{$Forum_PostFace}",Dvbbs.Forum_PostFace)
TempStr = Replace(TempStr,"{$SelectFace}",Expression)
'上传
If (Dvbbs.GroupSetting(7)="1" Or Dvbbs.GroupSetting(7)="2") and Dvbbs.Forum_setting(43)<>999 Then TempStr = Replace(TempStr,"{$uploadinfo}",Temp_FileUpload)
TempStr = Replace(TempStr,"{$uploadinfo}","")
'标签判断部分
TempStr = Replace(TempStr,"{$ihtml}",Dvbbs.Board_Setting(5))
TempStr = Replace(TempStr,"{$iubb}",Dvbbs.Board_Setting(6))
TempStr = Replace(TempStr,"{$iimg}",Dvbbs.Board_Setting(7))
TempStr = Replace(TempStr,"{$iflash}",Dvbbs.Board_Setting(44))
TempStr = Replace(TempStr,"{$imidea}",Dvbbs.Board_Setting(9))
TempStr = Replace(TempStr,"{$iemot}",Dvbbs.Board_Setting(8))
TempStr = Replace(TempStr,"{$iupload}",Dvbbs.GroupSetting(7))
TempStr = Replace(TempStr,"{$bodylimited}",Dvbbs.Board_Setting(16))
TempStr = Replace(TempStr,"{$imoney}",Dvbbs.Board_Setting(10))
TempStr = Replace(TempStr,"{$ipoint}",Dvbbs.Board_Setting(11))
TempStr = Replace(TempStr,"{$iusercp}",Dvbbs.Board_Setting(12))
TempStr = Replace(TempStr,"{$ipower}",Dvbbs.Board_Setting(13))
TempStr = Replace(TempStr,"{$iarticle}",Dvbbs.Board_Setting(14))
TempStr = Replace(TempStr,"{$ireplyview}",Dvbbs.Board_Setting(15))
TempStr = Replace(TempStr,"{$iusemoney}",Dvbbs.Board_Setting(23))
TempStr = Replace(TempStr,"{$iuseusername}",Dvbbs.Board_Setting(56))
'ubb部分
PostType = 1
TempStr = Replace(TempStr,"{$PostType}",PostType)
TempStr = Replace(TempStr,"{$getubb}",Temp_UBBHTML())
'发贴心情
TempStr = Replace(TempStr,"{$Forum_emot}",Dvbbs.Forum_emot)
TempStr = Replace(TempStr,"{$Forum_sn}",Dvbbs.Forum_sn)
TempStr = Replace(TempStr,"{$star}",Star)
TempStr = Replace(TempStr,"{$page}",Page)
TempStr = Replace(TempStr,"{$actionname}",ActionName)
TempStr = Replace(TempStr,"{$toaction}",ToAction)
TempStr = Replace(TempStr,"{$topiclimited}",Dvbbs.Board_Setting(45))
TempStr = Replace(TempStr,"{$width}",Dvbbs.mainsetting(0))
TempStr = Replace(TempStr,"{$alertcolor}",Dvbbs.mainsetting(1))
TempStr = Replace(TempStr,"{$Forum_Emot}",Replace(Dvbbs.Forum_Emot,"|||","<><><>"))
TempStr = Replace(TempStr,"{$htmltool}",template.html(12))
Dvbbs_Mode = Dvbbs.GroupSetting(67)
If Dvbbs.Board_Setting(5) = "0" Then Dvbbs_Mode = 2
TempStr = Replace(TempStr,"{$Dvbbs_Mode}",Dvbbs_Mode)
If Dvbbs.GroupSetting(62)="0" Then
TempStr = Replace(TempStr,"{$AffordPost}",template.Strings(30))
Else
TempStr = Replace(TempStr,"{$AffordPost}",Dvbbs.GroupSetting(62))
End If
TempStr = Replace(TempStr,"{$UserToday}",Dvbbs.UserToday(0))
'Action 1=发贴、2=回帖、3=投票、4=编辑 主体部分
If Dvbbs.GroupSetting(59)<>1 Then TempStr = Replace(TempStr,"{$MoneyPostInfo}","")
Select Case Action
Case 1
TempStr = Replace(TempStr,"{$rehiddeninput}","")
TempStr = Replace(TempStr,"{$reinfo1}","")
TempStr = Replace(TempStr,"{$edithiddeninput}","")
TempStr = Replace(TempStr,"{$voteinfo}","")
TempStr = Replace(TempStr,"{$useraction}","")
TempStr = Replace(TempStr,"{$retopicloop}","")
TempStr = Replace(TempStr,"{$membername}",Dvbbs.MemberName)
TempStr = Replace(TempStr,"{$memberword}","**********")
'babycat TempStr = Replace(TempStr,"{$content}",Server.htmlencode(Session(Dvbbs.CacheName & "UserID")(Dvbbs.UserInfoCount-1)))
TempStr = Replace(TempStr,"{$content}",server.htmlencode(PostStr))
TempStr = Replace(TempStr,"{$retitle}","")
TempStr = Replace(TempStr,"{$topic}","")
TempStr = Replace(TempStr,"{$TopModeSelect}",MyTopicMode)
TempStr = Replace(TempStr,"{$totalusetable}",TotalUseTable)
TempStr = Replace(TempStr,"{$MoneyPostInfo}",TempArray(6))
If Dvbbs.Forum_Setting(98)="1" And Dvbbs.Board_Setting(24)="1" And Dvbbs.GroupSetting(69)="1" Then
TempStr = Replace(TempStr,"{$tools_magicface}",template.html(14))
TempStr = Replace(TempStr,"{$MagicIframe}",TempArray(8))
Set Rs = Dvbbs.Plus_Execute("Select Top 1 MagicFace_s,tMoney,tTicket From Dv_Plus_Tools_MagicFace Order By ID")
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?