📄 user_photo.asp
字号:
Response.Cookies("Photo")("InfoGroup") = InfoGroup
Response.Cookies("Photo")("InfoPoint") = InfoPoint
Response.Cookies("Photo")("InfoMoney") = InfoMoney
Response.Cookies("Photo")("BackPoint") = BackPoint
Response.Cookies("Photo")("BackPointRate")= BackPointRate
Response.Cookies("Photo")("BackMoney") = BackMoney
Response.Cookies("Photo")("BackMoneyRate")= BackMoneyRate
Response.Cookies("Photo")("Author") = Author
Response.Cookies("Photo")("AuthorEmail")= AuthorEmail
Response.Cookies("Photo")("AuthorHomepage")= AuthorHomepage
Rem End
SaveSuccess
End Sub
Sub SaveData()
rs("ChannelDir") = Cl.Channel.selectSingleNode("@channeldir").text
rs("ClassID") = ClassID
rs("SpecialID") = SpecialID
rs("PhotoName") = PhotoName
rs("FontColor") = FontColor
rs("FontType") = FontType
rs("Keyword") = Keyword
rs("Author") = Author
rs("AuthorEmail") = AuthorEmail
rs("AuthorHomepage")= AuthorHomepage
rs("PicUrl") = PicUrl
rs("PhotoUrl") = PhotoUrl
'rs("PhotoSize") = PhotoSize
rs("Intro") = Intro
rs("Hits") = Hits
rs("DayHits") = DayHits
rs("WeekHits") = WeekHits
rs("MonthHits") = MonthHits
rs("InfoGroup") = InfoGroup
rs("InfoPoint") = InfoPoint
rs("InfoMoney") = InfoMoney
rs("Stars") = Stars
rs("UpdateTime") = UpdateTime
rs("OnTop") = OnTop
rs("Hot") = Hot
rs("Elite") = Elite
rs("IsDownLoad") = IsDownLoad
rs("DownLoadNum") = 0
rs("UploadFiles") = UploadFiles
rs("BackPoint") = BackPoint
rs("BackPointRate") = BackPointRate
rs("BackMoney") = BackMoney
rs("BackMoneyRate") = BackMoneyRate
if sAddIsChk=False then
rs("Status") = 1
rs("Censor") = Cl.MemberName
rs("CensorTime")= Date()
Cl.Execute_U("update " & Db.UserTable & " set " & Db.UserPoint & "=" & Db.UserPoint & "+"&sAddPoint&"," & Db.DataCount & "=" & Db.DataCount & "+1 where " & Db.UserName & "='" & Editor & "'")
Passed = True
elseif IsTruePurview_P or Cint(Cl.User_Purview(ChannelID))=4 then
rs("Status") = 1
rs("Censor") = Cl.MemberName
rs("CensorTime")= Date()
Cl.Execute_U("update " & Db.UserTable & " set " & Db.UserPoint & "=" & Db.UserPoint & "+"&sAddPoint&"," & Db.DataCount & "=" & Db.DataCount & "+1 where " & Db.UserName & "='" & Editor & "'")
else
rs("Status") = 0
Passed = False
end If
rs("Deleted") = False
Rem 自定义字段By GDW
Call SaveField(ChannelID,3)
End Sub
Sub SaveSuccess()
%>
<br /><br />
<!--<meta http-equiv="refresh" content="3;url=javascript:history.go(-2);" />-->
<table class="border" align="center" border="0" cellpadding="0" cellspacing="1" style="width:600px;">
<tr class="title">
<td height="22" align="left" colspan="3"> <b>恭喜您，操作成功，请选择快速连接返回！</b></td>
</tr>
<tr class="tdbg">
<td width="30%" align="center">
<%If PicUrl="" then%>
<img src="../Images/NoPic.gif" border="0" width="160" />
<%else%>
<img src="<%=Cl.ReplaceDir(PicUrl)%>" border="0" width="160" />
<%End if%>
</td>
<td width="45%" valign="top">
<br />
<font color="#0000FF">友情提示：</font><br />
<%If Passed Then
Dim TUrl
TUrl = InstallDir & Cl.Channel.selectSingleNode("@channeldir").text & "/ShowInfo.asp?InfoID=" & InfoID
%>
您的<%=Cl.ChannelItemName%>已经正式发布，您可点击以下地址查看：<a href="<%=TUrl%>" target="_blank"><%=TUrl%></a>。
<%else%>
您的<%=Cl.ChannelItemName%>尚未正式发布，已经提交给管理员进行审核，请耐心等待！
<%End if%>
</td>
<td width="25%" align="left" valign="top">
<br />
<font color="#0000FF">快速连接：</font>
<ol>
<li><a href="User_Photo.asp?Action=Add&ChannelID=<%=ChannelID%>" class="red b">添加新的<%=Cl.ChannelItemName%></a></li><br />
<li><a href="User_Photo.asp?Action=Modify&ChannelID=<%=ChannelID%>&InfoID=<%=InfoID%>" class="b">修改当前<%=Cl.ChannelItemName%></a></li><br />
<li><a href="User_Photo.asp?ChannelID=<%=ChannelID%>&Action=Check" class="b">转到待审<%=Cl.ChannelItemName%></a></li><br />
<li><a href="User_Photo.asp?ChannelID=<%=ChannelID%>" class="b">转到<%=Cl.ChannelItemName%>管理</a></li>
<li><a href="javascript:history.go(-2);" class="blue b">返回到上一步</a></li>
</ol>
</td>
</tr>
</table>
<%
if Clng(Cl.Channel.selectSingleNode("@iscreatehtml").text)=1 and Passed and NowCreate="yes" then
Dim sCreate
sCreate="CreateInfo,CreateIndex,CreateWebIndex"
%>
<br /><br />
<iframe width="100%" height="220" frameborder="0" src="User_Create_Photo.asp?ChannelID=<%=ChannelID%>&Action=<%=sCreate%>&InfoID=<%=InfoID%>&ClassID=<%=ClassID%>&SpecialID=<%=SpecialID%>" name="Make"></iframe>
<%
end if
End Sub
Sub ShowMain()
InfoID=Cl.GetClng(request("InfoID"))
sql="select * from Cl_Photo where InfoID=" & InfoID & ""
Set rs= Server.CreateObject("ADODB.RecordSet")
OpenConn : rs.open sql,Conn,1,1
If rs.bof and rs.eof Then
rs.close:Set rs=Nothing
Cl.ShowErr("<br><li>找不到"&Cl.ChannelItemName&"!</li>")
Else
ChannelID=rs("ChannelID"):ClassID=rs("ClassID")
Set tClass=Cl.Execute("select ClassName,RootID,ParentID,Depth,ParentPath from Cl_Class where ChannelID="&ChannelID&" and ClassID=" & ClassID)
if tClass.bof and tClass.eof then
rs.close : Set rs=Nothing
tClass.Close :Set tClass=Nothing
Cl.ShowErr("<br /><li>找不到指定的栏目</li>")
else
ClassName=tClass(0):RootID=tClass(1)
ParentID =tClass(2):Depth=tClass(3)
ParentPath=tClass(4)
tClass.Close :Set tClass=Nothing
if Not Cl.TrueChannelPurview_U(1,ChannelID) then
dim sTempP,IsTruePurview
sTempP=Split(ParentPath & "," & ClassID,",")
IsTruePurview=False
if rs("Editor")=Cl.MemberName then
IsTruePurview=True
elseif rs("Status")=1 then
for i=1 to Ubound(sTempP)
IsTruePurview = Cl.TrueClassPurview_U(1,ChannelID,sTempP(i))
if IsTruePurview Then Exit For
Next
else
for i=1 to Ubound(sTempP)
IsTruePurview = Cl.TrueClassPurview_U(2,ChannelID,sTempP(i))
if IsTruePurview Then Exit For
Next
end if
if Not IsTruePurview then
Cl.ShowErr("<li>您无权修改或查看此栏目或资料！</li>")
end if
end if
end if
End If
Set ClUbb=New Cls_Ubbcode
Dim ShortcutMenu
ShortcutMenu = "<tr class=""tdbg"">"
ShortcutMenu = ShortcutMenu & "<td width='100' align='right'><strong><font color='red'>快捷操作：</font></strong></td>"
ShortcutMenu = ShortcutMenu & "<td colspan='2'>"
if rs("Status")=1 then
ShortcutMenu = ShortcutMenu & "<a href='User_Property.asp?ChannelID="&ChannelID&"&Action=CancelPassed&InfoID=" & InfoID & "'>取消审核</a> <font color=blue>设点</font>[ "
for i=0 to 21 step 3
ShortcutMenu = ShortcutMenu & "<a href='User_Property.asp?ChannelID="&ChannelID&"&Action=SetPoint&InfoID=" & InfoID & "&Point="&i&"'>"&i&"点</a> "
Next
Else
ShortcutMenu = ShortcutMenu & "<a href='User_Property.asp?ChannelID="&ChannelID&"&Action=SetPassed&InfoID=" & InfoID & "'>审核通过</a>[ "
for i=0 to 21 step 3
ShortcutMenu = ShortcutMenu & "<a href='User_Property.asp?ChannelID="&ChannelID&"&Action=SetPassed&InfoID=" & InfoID & "&Point="&i&"'>"&i&"点</a> "
Next
end if
ShortcutMenu = ShortcutMenu & "] || "
if rs("OnTop")=False then
ShortcutMenu = ShortcutMenu & "<a href='User_Property.asp?ChannelID="&ChannelID&"&Action=SetOnTop&InfoID=" & InfoID & "'>固顶</a> "
else
ShortcutMenu = ShortcutMenu & "<a href='User_Property.asp?ChannelID="&ChannelID&"&Action=CancelOnTop&InfoID=" & InfoID & "'>解固</a> "
end if
if rs("Elite")=False then
ShortcutMenu = ShortcutMenu & "<a href='User_Property.asp?ChannelID="&ChannelID&"&Action=SetElite&InfoID=" & InfoID & "'>设为推荐</a> "
else
ShortcutMenu = ShortcutMenu & "<a href='User_Property.asp?ChannelID="&ChannelID&"&Action=CancelElite&InfoID=" & InfoID & "'>取消推荐</a> "
end if
ShortcutMenu = ShortcutMenu & "<a href='User_InfoMove.asp?ChannelID="&ChannelID&"&InfoID=" & InfoID & "'>移动</a> "
' ShortcutMenu = ShortcutMenu & "<a href='User_UserCz.asp?Action=EM&ID=" & InfoID & "&Title="&rs("PhotoName")&"&Name="&rs("Editor")&"&CID="&ChannelID&"'><font color=""blue"">奖卡</font></a> "
if rs("Deleted")=True then
ShortcutMenu = ShortcutMenu & "<a href='User_InfoDel.asp?ChannelID="&ChannelID&"&Action=Restore&InfoID=" & InfoID & "'>还原</a> "
else
ShortcutMenu = ShortcutMenu & "<a href='User_InfoDel.asp?Action=Del&InfoID=" & InfoID & "'>删除</a> "
end if
ShortcutMenu = ShortcutMenu & "<a href='User_Photo.asp?Action=Modify&ChannelID="&ChannelID&"&InfoID=" & rs("InfoID") & "' class='blue'>修改</a> "
ShortcutMenu = ShortcutMenu & " <a href=""User_Comment.asp?ChannelID="&ChannelID&"&InfoID=" & InfoID & """>管理评论</a></td></tr>"
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="title left">
<td height="22" colspan="2">
位置： <a href="User_Photo.asp?ChannelID=<%=ChannelID%>" class="white"><%=Cl.ChannelItemName%>管理</a> >> <%=sPath%><a href="User_Photo.asp?ChannelID=<%=ChannelID%>&ClassID=<%=ClassID%>" class="white"><%=ClassName%></a> >> <%=rs("PhotoName")%>
</td>
<td height="22" align="right" width="160">
<%
if rs("OnTop")=true then
response.Write("<font color=blue>顶</font> ")
else
response.write(" ")
end if
if rs("Hot")=true then
response.write("<font color=red>热</font> ")
else
response.write(" ")
end if
if rs("Elite")=true then
response.write("<font color=green>荐</font>")
else
response.write(" ")
end if
%>
</td>
</tr>
<%=ShortcutMenu%>
<tr class="tdbg">
<td width="100" align="right"><strong><%=Cl.ChannelItemName%>名称：</strong></td>
<td colspan="2"><strong><%=Cl.HTMLEncode(rs("PhotoName"))%></strong></td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>推荐等级：</strong></td>
<td><%= Cl.Getstar(rs("Stars")) %></td>
<td rowspan="7" align="center">
<img src="<%=Cl.ReplaceDir(rs("PicUrl"))%>" border=0 width=150 height=113>
</td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>更新时间：</strong></td>
<td><%= rs("UpdateTime") %></td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong><%=Cl.ChannelItemName%>作者：</strong></td>
<td><a href="mailto:<%=rs("AuthorEmail")%>"><%=Cl.HTMLEncode(rs("Author"))%></a> <a href="mailto:<%=rs("AuthorEmail")%>">Email:<%=rs("AuthorEmail")%></a> <a href="<%=rs("AuthorHomepage")%>">主页:<%=rs("AuthorHomepage")%></a></td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>查看等级：</strong></td>
<td><%=Cl.GetUserGroupName(rs("InfoGroup"))%></td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>下载<%=Cl.Web_Setting(28)%>：</strong></td>
<td><font color=red><strong><%=rs("InfoPoint")%></strong></font> <%=Cl.Web_Setting(29)%>
<strong><%=Cl.Web_Setting(26)%>：</strong><font color=red><strong><%=rs("InfoMoney")%></strong></font> <%=Cl.Web_Setting(27)%>
</td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong><%=Cl.ChannelItemName%>添加：</strong></td>
<td><%=rs("Editor")%>
<strong>审核：</strong><%=rs("Censor")%>
</td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>查看次数：</strong></td>
<td>本日：<%=rs("DayHits")%> 本周：<%=rs("WeekHits")%> 本月：<%=rs("MonthHits")%> 总计：<%=rs("Hits")%></td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>查看地址：</strong></td>
<td colspan="2">
<%
dim UrlStr,i
UrlStr=Cl.ReplaceDir(rs("PhotoUrl"))
if Instr(UrlStr,"@@@")>0 then
UrlStr=Split(UrlStr,"@@@")
for i=0 to Ubound(UrlStr)
response.write ""&Split(UrlStr(i),"|")(0)&"： <a h⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -