網站首頁 實踐論壇最新消息文章中心影音中心影像圖集檔案倉儲創意學習網頁特效實踐柑仔店 線上交流師生部落格 酷站推荐 自訂風格教學日誌
  您的位置: 實踐資訊管理平台 >> BLOG日誌 >> 觀看flash動漫程式asp原始碼隱/顯側欄   
   會 員 登 錄
帳號:
密碼:
Cookie:
  會員找回密碼
請您註冊或登錄!
   日 誌 分 類
   BLOG 日 歷
73 2019 - 12 48
1234567
891011121314
15161718192021
22232425262728
293031
   最 新 日 誌
  快速診斷出系統故障的..
  「實踐資訊管理平台」..
  觀看flash動漫程式asp..
  中醫保健
  後台管理新增線上傳送..
  blog發表測試
   精 華 日 誌
暫無
   熱 門 排 行
  觀看flash動漫程式asp..
  中醫保健
  blog發表測試
  後台管理新增線上傳送..
  快速診斷出系統故障的..
  「實踐資訊管理平台」..
   最 新 評 論
  不錯∼~!還不錯0.0繼續..
  [heart][eek]暸ㄌ
未知 觀看flash動漫程式asp原始碼
[時間:2007/8/11 | 來源:本站原創]
[字體: ]

原本的程式碼,就是直接秀出flash動漫,沒有分級與所需虛擬貨幣,加上觀看權限與所需貨幣更為適切。
以下是修改過後的程式碼:
sub content_flash()
'=================================================
'過程名:ShowFlash
'作  用:判斷會員等級
'參  數:無
'原始來源:http://www.Hx66.net
'程式修改:friber
'=================================================
Pay=request("Pay")
FlashID=md5(trim(request("id"))+123)

if rs("Grade")="0" then
hxGrade="訪客身份"
elseif rs("Grade")="1" then
hxGrade="會員身份"       
elseif rs("Grade")="2" then
hxGrade="VIP身份"       
end if
'--
if request.querystring("id")="" then
  Response.Write "<script language=javascript>alert('請指定操作的對象!');javascript:history.back();</script>"
  Response.End
end if
'---

    if rs("Grade")<>0 then
        if UserLogined<>True then 
            FoundErr=True
            ErrMsg=ErrMsg & "<font color=red>·</font>你還沒註冊?或者沒有登錄?這個動漫要求至少是本站的註冊用戶才能觀看與學習!<br>"
            ErrMsg=ErrMsg & "<font color=red>·</font>如果你還沒註冊,請趕緊<a href='UserReg.asp'> <font color=red>點此註冊</font></a> !<br>"
            ErrMsg=ErrMsg & "<font color=red>·</font>如果你已經註冊但還沒登錄,請趕緊 <a href='index.asp'><font color=red>點此登錄</font></a> !<br><br>"
            ErrMsg=ErrMsg & "<p align='center'><br>觀看這個動漫需要消耗 <b><font color=red>" & rs("points") & "</font></b> "& moneyname &"!"
        else
                if Hx66_Grade+1<RS("Grade") then
                FoundErr=True
                ErrMsg=ErrMsg & "<p align='center'><br><font color=red><b>對不起,你的權限不夠,不能觀看這個動漫!</b></font></p><br>"
            else
               if rs("points")>0 then
                 if Request.Cookies("hx66")("Pay_flash" & FlashID)<>"yes" then
                if Hx66_points<rs("points") then
                    FoundErr=True
                    ErrMsg=ErrMsg &"<p align='center'><br>對不起,觀看這個動漫需要使用 <b><font color=red>" & rs("points") & "</font></b> "& moneyname &"!"
                    ErrMsg=ErrMsg &"而你目前只有 <b><font color=blue>" & Hx66_points & "</font></b> "& moneyname &"可用。"& moneyname &"不足,無法觀看這個動漫。請與資訊組長蔡玉貴聯繫。</p>"
                else
                    response.Cookies("hx66")("Pay_flash" & FlashID)="yes"
                                        Response.Cookies("hx66").Expires=date+365
                    sql="UPDATE [user] SET points = points - "&rs("points")&" where userid="&Hx66_uid
                                conn.execute (sql)
                                ErrMsg=ErrMsg &"你目前還有 <b><font color=blue>" & Hx66_points & "</font></b> "& moneyname &"可用。觀看這個動漫後,剩下"&"<b><font color=red>" & Hx66_points-rs("points") & "</font></b>"&moneyname&"。"
                end if
                 end if                    
                   end if
                end if
        
        end if
    end if
    
response.write ErrMsg
if FoundErr=false then
            Response.Write "<table width=""100%""  border=""1"" align=""center"" cellspacing=""0"" cellpadding=""3"" bgcolor=""#FFFFFF"" bordercolor=""#f0f0f0"" style=""border-collapse: collapse"">" 
            Response.Write "<tr>" & vbCrLf 
            Response.Write "<td colspan=3 align='center' HEIGHT=40><b><font color=ff6600><b>"&rs("title")&"</b></font><b></td>" & vbCrLf
            Response.Write "</tr>" & vbCrLf 
            Response.Write "<tr>" & vbCrLf 
            Response.Write "<td height='20' align='center'>加入時間</td>"
            Response.Write "<td width='180'>&nbsp;"&rs("time")&"</td>"
            Response.Write "<td rowspan='8' align='right'>"
            Response.Write "<table width='502' border='0' cellspacing='0' cellpadding='0'>" & vbCrLf
            Response.Write "<tr>" & vbCrLf
            Response.Write "<td height='380' align='center' valign='middle' background='img/flash/flash.jpg'><OBJECT CLASSID=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" CODEBASE=""http://download.macromedia.com/pub/sho ... h/swflash.cab#version=5,0,0,0"" WIDTH='480' HEIGHT='360'>" & vbCrLf
            Response.Write "<PARAM NAME=quality VALUE=high>" & vbCrLf
            Response.Write "<PARAM NAME='SRC' VALUE='"&rs("url")&"'>" & vbCrLf
            Response.Write "<EMBED QUALITY=high PLUGINSPAGE=""http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"" TYPE=""application/x-shockwave-flash"&quo ... #39;"&rs("url")&"'>" & vbCrLf  
            Response.Write "</EMBED>" & vbCrLf
            Response.Write "</OBJECT></td>"
            Response.Write "</tr>" & vbCrLf
            Response.Write "</table></td>" & vbCrLf

            Response.Write "<tr>" & vbCrLf 
            Response.Write "<td height='20' align='center'>所屬類別</td>"
            Response.Write "<td>&nbsp;"&cat_name&"</td>"
            Response.Write "</tr>" & vbCrLf
            Response.Write "<tr>" & vbCrLf 
            Response.Write "<td height='20' align='center' width='90'>創意學習作者</td>"
            Response.Write "<td>&nbsp;"
            if rs("author")<>"" then 
            Response.Write ""&rs("author")&""
            else 
            Response.Write "未知"
            end if
            Response.Write "</td>"
            Response.Write "</tr>" & vbCrLf
            Response.Write "<tr>" & vbCrLf 
            Response.Write "<td height='20' align='center'>欣賞次數</td>"
            Response.Write "<td>&nbsp;<font color=red><b>"&rs("hits")&"</b></font></td>"
            Response.Write "</tr>" & vbCrLf
            Response.Write "<tr>" & vbCrLf
            Response.Write "<td height='20' align='center'>下載次數</td>"
            Response.Write "<td>&nbsp;<b>"&rs("Download")&"</b></td>"
            Response.Write "</tr>" & vbCrLf
            Response.Write "<tr>" & vbCrLf 
            Response.Write "<td height='20' align='center'>推薦程度</td>"
            Response.Write "<td>&nbsp;"&rs("Commend")&"</td>"
            Response.Write "</tr>" & vbCrLf
            Response.Write "<tr>" & vbCrLf
            Response.Write "<td height='20' align='center'>評論次數</td>"
            Response.Write "<td>&nbsp;"&rs("reviewcount")&"</td>"
            Response.Write "</tr>" & vbCrLf
            Response.Write "<tr>" & vbCrLf 
            Response.Write "<td height='20' align='center'>觀看權限</td><td><font color=red>"&hxGrade&"</font></td>"
            Response.Write "</tr>" & vbCrLf
            Response.Write "<tr>" & vbCrLf 
            Response.Write "<td height='20' align='center'>花費會員幣</td><td><font color=red>"&rs("points")&"</font></td>"
            Response.Write "</tr>" & vbCrLf
            Response.Write "<tr>" & vbCrLf 
            Response.Write "<td height='150' align='center' valign='top'>作品介紹</td>"
            Response.Write "<td valign='top' width='180'>&nbsp;&nbsp;&nbsp;&nbsp;"&rs("Content")&"</td>"
            Response.Write "</tr>" & vbCrLf
            Response.Write "<tr>" & vbCrLf
            Response.Write "<td colspan=2>&nbsp;</td>"
            Response.Write "<td align='center'><img src='img/flash/flash_down.gif' width='20' height='20'>"
            Response.Write "<a title='鼠標右鍵單擊此鏈接,從彈出的菜單中選擇:目標另存為…' href='"&rs("url")&"'>下載作品</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src='img/flash/flash_full.gif' width='20' height='20'><a href='viewflash.htm?"&rs("url")&"&namecode=pcedu&subnamecode=pcedu_flash' target='_blank'>全屏播放</a></td>"
            Response.Write "</tr>" & vbCrLf
            Response.Write "<tr>" & vbCrLf 
            Response.Write "<td width='100%' colspan='3' style=""display:block;padding:0px 20px;LINE-HEIGHT: 180%"">&nbsp;</td>"
            Response.Write "</tr>" & vbCrLf
            Response.Write "</table>" & vbCrLf
end if

end sub

[本日誌由friber於2007/8/11 下午 06:14:00編輯]
引用通告(190):http://cds.sjps.ntpc.edu.tw//blog_tb.asp?id=9

上篇日誌:中醫保健
相關評論與引用通告
  • 暫時沒有評論與引用
  • 此日誌禁止發表評論
  • 當前風格:藍色理想  
    關於本站 | 友情連接 | 後台管理 |
    系統來源:HxCms V7.6  頁面執行時間:250.00MS
    實踐資訊管理平台 版權所有  網站架設管理:蔡玉貴(friber)