趣味新聞網 logo



誰可以幫幫我，這兩個ASP程式做結閤 - 趣味新聞網


誰可以幫幫我，這兩個ASP程式做結閤


發表日期 2009-05-07T21:27:07+08:00

linkedin mastodon messenger pinterest reddit telegram viber vkontakte whatsapp 複製鏈接
     趣味新聞網記者特別報導 : 1122334455 456 第10組　 player 甲 乙 遊戲 .....


     本帖最後由 李斯特霍華 於 2009-5-7 23:03 編輯

<HTML>
<BODY>
<table border=1 width="100%">
<tr>
<td BgColor=#FF0000 width="30%"><p align="center"><b><br>11<br>22<br>33<br>44<br>55<br></b></td> </td>
<td BgColor=#00f099 width="30%"><p align="center"><b><font size="5">456</font></b></p><p align="center"><p align="center">
<font size="5">第10組　</font></td>
<td BgColor=#f00077 width="30%">
<%
week = DatePart("w",date) -1
week1 = DatePart("ww",date) -1
response.write date
select case week

case 1
response.write"  星期一！"
response.write"<br>還有五天放假！"

case 2
rseponse.write"  星期二！"
response.write"<br>還有四天放假！"

case 3
response.write"  星期三！"
response.write"<br>還有三天放假！"

case 4
response.write"  星期四！"
response.write"<br>還有二天放假！"

case 5
response.write" 星期五！"
response.write"<br>還有一天放假！"

case 6
response.write"  星期六"
response.write"<br>放假中！"

case 0
response.write"  星期日"
response.write"<br>放假中！"

end select
response.write "TODAY"
response.write   week1
response.write "WEEKS!"
%></td>
</tr>
</table>
<table border=1 width="100%">
<tr>
<tr>
<td width="35%"><p align="center"><font size="5">player</font></p> </td>
<td width="32%"><p align="center"><font size="5">甲<INPUT Type=Text Name=Name1 Size=20></font></p> </td>
<td width="28%"><p align="center"><font size="5">乙<INPUT Type=Text Name=Name2 Size=20></font></p> </td>
</tr>
</tr>
<tr>
<td><p align="center"><font size="10">遊戲</font></p></td>
<td>
<%
Randomize

D1 = Fix(Rnd * 6) + 1
D2 = Fix(Rnd * 6) + 1
D3 = Fix(Rnd * 6) + 1

Response.Write "<IMG SRC=dice" & D1 & ".gif>"
Response.Write "<IMG SRC=dice" & D2 & ".gif>"
Response.Write "<IMG SRC=dice" & D3 & ".gif><P>"
Response.Write "<HR>您所擲齣的點數是: " & D1 + D2 + D3
%> </td>
<td>
<%
Randomize

D4 = Fix(Rnd * 6) + 1
D5 = Fix(Rnd * 6) + 1
D6 = Fix(Rnd * 6) + 1

Response.Write "<IMG SRC=dice" & D4 & ".gif>"
Response.Write "<IMG SRC=dice" & D5 & ".gif>"
Response.Write "<IMG SRC=dice" & D6 & ".gif><P>"
Response.Write "<HR>您所擲齣的點數是: " & D4 + D5 + D6
%> </td>
</tr>
<tr>
<<TD Align="Center" Valign="Center" Width="30%">結果</TD>
<TD ColSpan="2" Align="Center" Valign="Center" Width="60%"><%
data1 = Request("Name1")
data2 = Request("Name2")
Response.Write data1
Response.Write "所擲齣的點數是: " & D1 + D2 + D3
Randomize
s1 = D1 + D2 + D3
Response.Write "<hr>"
Response.Write data2
Response.Write "所擲齣的點數是: " & D4 + D5 + D6
Response.Write "<hr>"
Randomize
s2 = D4 + D5 + D6
If s1 > s2 Then
Response.Write "玩傢"
Response.Write data1
Response.Write "贏"
ElseIf s1 < s2 Then
Response.Write "玩傢"
Response.Write data2
Response.Write "贏"
Else
Response.Write "平手"
End If
%>
</TD>
</tr>
<tr>
<td ColSpan="3"><p align="center"><A HREF=10.asp><INPUT Type=Submit Value="play"></A></p></td>
</tr>
</table>
</BODY>
</HTML>



這是後端程式
<HTML>
<BODY>
<FORM Action="10.asp" Method=GET>

<table border=1 width="73%">
<tr>
<td BgColor=#FF0000 width="25%"><p align="center"><b><br>11<br>22<br>33<br>44<br>55<br></b></td> </td>
<td BgColor=#00f099 width="23%"><p align="center"><b><font size="5">542</font></b></p><p align="center"><p align="center">
<font size="5">第10組　</font></td>
<td BgColor=#f00077 width="20%">
<%
week = DatePart("w",date) -1
week1 = DatePart("ww",date) -1
response.write date
select case week

case 1
response.write"  星期一！"
response.write"<br>還有五天放假！"

case 2
rseponse.write"  星期二！"
response.write"<br>還有四天放假！"

case 3
response.write"  星期三！"
response.write"<br>還有三天放假！"

case 4
response.write"  星期四！"
response.write"<br>還有二天放假！"

case 5
response.write" 星期五！"
response.write"<br>還有一天放假！"

case 6
response.write"  星期六"
response.write"<br>放假中！"

case 0
response.write"  星期日"
response.write"<br>放假中！"

end select
response.write "TODAY"
response.write   week1
response.write "WEEKS!"
%></td>
</tr>
</table>
<table border=1 width="73%">
<tr>
<td width="35%"><p align="center"><font size="5">player</font></p> </td>
<td width="32%"><p align="center"><font size="5">甲<INPUT Type=Text Name=Name1 Size=20></font></p> </td>
<td width="28%"><p align="center"><font size="5">乙<INPUT Type=Text Name=Name2 Size=20></font></p> </td>
</tr>
<tr>
<td><p align="center"><font size="10">遊戲</font></p></td>
<td>
<%
Randomize

D1 = Fix(Rnd * 6) + 1
D2 = Fix(Rnd * 6) + 1
D3 = Fix(Rnd * 6) + 1
Response.Write "<HR>您所擲齣的點數是: "
%> </td>
<td>
<%
Randomize

D4 = Fix(Rnd * 6) + 1
D5 = Fix(Rnd * 6) + 1
D6 = Fix(Rnd * 6) + 1
Response.Write "<HR>您所擲齣的點數是: "
%> </td>
</tr>
<tr>
<<TD Align="Center" Valign="Center" Width="35%">結果</TD>
<TD ColSpan="2" Align="Center" Valign="Center" Width="62%"><%
Response.Write "所擲齣的點數是: "
Randomize
Response.Write "<hr>"
Response.Write "所擲齣的點數是: "
Response.Write "<hr>"
Randomize
If s1 > s2 Then
Response.Write "玩傢"
Response.Write data1
Response.Write "贏"
ElseIf s1 < s2 Then
Response.Write "玩傢"
Response.Write data2
Response.Write "贏"
Else
Response.Write "結果"
End If
%>
</TD>
</tr>
<tr>
<td ColSpan="3"><p align="center"><A HREF=10.asp><INPUT Type=Submit Value="play"></A></p></td>
</tr>
</table>
</BODY>
</HTML>

還有這兩個網頁要怎樣在自己電腦顯示！我都灌IIS瞭，還是不型

分享鏈接

linkedin mastodon messenger pinterest reddit telegram viber vkontakte whatsapp 複製鏈接

看最新新聞就到趣味新聞網
quweinews.com
立刻按 ctrl+D收藏本頁
你會得到大驚喜!!
tag

相关新聞

誰可以救救我~GONAV S600B 升級VR-ONE問題~

    誰可以教我正確的方式阿......我都用..4.5天瞭...還搞不定.....拜託高手....................

誰可以教我如何讓MP3變鈴聲

    我之前有看到在版上有看到一篇可以讓MP3變成鈴聲ㄉ教學還附照片可是好像沒看到ㄌ希望各位大大教教我吧.......

誰可以教教我....iso檔

    本帖最後由 李斯特霍華 於 2009-4-10 10:20 編輯 我有一個程式，它必須要用iso轉檔在燒錄.... 而且明明裏麵內容大過於cd片，它的說明書卻說可以用cd燒..（而且是普通的cd片....700M） 我卻不知怎麼用...哪位大大可以教我阿！！ 謝謝！！.......

誰可提供多選單桌麵~gonav s1000可用的

    誰可提供多選單桌麵~gonav s1000可用的~ 有簡單易學的嗎?  sd卡可裝4G的嗎?有誰試過..........

誰有X3美化檔？

    X3得顯示資訊字體過小，不知道是否有高手開發美化檔？.......

誰有用過ACDSee Mobile v1.0

    如題  誰有用過ACDSee Mobile v1.0.......

誰有辦法讓 TomTom 秀齣 3D 圖資?

    請問各位大大與水水 誰有辦法讓 TomTom 秀齣 3D 圖資嗎?? 最好能用 TomTom 930 市麵上最辣手的圖資 !!.......

誰能幫幫我啊?

    本帖最後由 李斯特霍華 於 2009-3-9 11:47 編輯 有什麼影片分割軟體可以分割ＡＶＩ檔的嗎　　　.......

誰能提供我HTC VR勝利機的鬧鍾鈴聲怎麼設定

    誰知道的可以跟我說怎麼設定嘛.......

請介紹我一台擴大機

    本帖最後由 亮皮 於 2009-3-5 22:09 編輯 最近想換一颱擴大機,預算大約15000元左右 心目中有幾颱參考 ONKYO  TX-SR506G YAMAHA  RX-V463 這兩颱哪一颱比較好,還是有彆颱建議的,謝謝.......

請前輩指點迷津---Java遊戲怎麼裝纔能玩呢?

    250個Java 遊戲下載很久瞭,卻還沒找到完成安裝玩這些Java 遊戲的方法,請哪位大大指點一下. 感激不盡!!.......

請各位大大幫小弟配一下電腦

    本帖最後由 city3034 於 2009-7-13 05:55 編輯 因為這禮拜四可能就要去跟朋友一起去組颱電腦 所以想請各位大大幫小弟配一下電腦 預算為3萬5含22吋螢幕....不用鍵盤跟滑鼠喇叭之類的(其實想跟店傢凹XD) 用途是玩一些網路遊戲(例如AION) 跟一些比較吃顯卡的單機遊戲(例如:Crysis) cpu小弟是比較偏嚮AMD因為我不會超頻..... 顯示卡則是N牌的(聽說微星 N275GTX Twin Frozr OC有降價 不知道好不好用@@?) 大概就.......

請各位大大幫幫忙

    本帖最後由 tone.chang 於 2009-4-19 21:34 編輯 我們要查看上網紀錄..可以從曆程紀錄上去看...還有哪幾個地方可以進去查.....請知道的大大跟我說..謝謝.......

請各位大大幫我解答一下

    本帖最後由 tone.chang 於 2009-3-4 17:23 編輯 小弟我昨天剛重灌好電腦 也把msn更新成9.0版 但不知為何原因msn一直當機 所以我索性的進入新增移除內把msn跟live小幫手都移除瞭 但這是惡夢的開始....... 我變成隻要是有關微軟的 就連去msn網頁都還沒問題 但一進入msn下載的部麵 就會變成無法連綫 就微軟也無法連綫 我想請問各位大大  除瞭在次重灌以外 我是不是無法恢復原來的部份 像是....下載msn!! 因為電腦裏有之.......

請各位大大推薦一台適閤的筆電

    本帖最後由 city3034 於 2009-6-30 16:29 編輯 各位大大,小弟打算買一颱筆電 不過找瞭很久也沒有心水,所以想請各位大大推薦一颱適閤的筆電 牌子要求要sony,富士通或者東芝 顯示器要15吋或以上,最好有16：9 解析度螢幕 主要都是看日劇多,多上網 記憶體要4 GB DDR2或者2GB DDR3 硬碟 最小要求320GB, (最好要7200 rpm) 預算4萬元左右,多小小也可以接受 最好提供價格參考 請問一下有什麼網頁有提供價格參考的 找.......

請各位大大水水們推薦水冷扇

    本帖最後由 city3034 於 2009-7-25 15:06 編輯 請各位大大水水們推薦水冷扇給小弟 夏天到瞭 傢裏沒冷氣真的受不瞭 我看中3隻 請大大水水們告訴我哪隻好 1.北方負離子水冷扇【CF-2081】 2.白朗 二閤一水冷扇 (BFW-2400) 3.【Max魔力生活傢】白朗 立式震盪霧化水冷扇(14吋)BF-7200 另外還有建議哪一隻的也說一下吧!!謝謝!!.......

請各位高手幫幫忙^^

    本帖最後由 city3034 於 2009-6-16 01:07 編輯 我去年5月底買瞭新電腦，大約在今年2年的時候，在開電腦時螢幕有時候都不會跟著開。 我原先以為是綫路沒接好或顯示卡有問題，再加上有換另一颱的螢幕來試看看沒問是，所以認定是主機有問題纔送修主機。 但是電腦公司檢查不齣那裏有問題，所以沒修理又抱迴來瞭。 直到這幾天情形越來越嚴重瞭，要開三次機纔沒看到螢幕，今天的螢幕顔色都變的很暗淡，所以我想可能是螢幕有問題。 不知有沒有人可以給我個建議，到底是那裏壞瞭？又要從那下手.......

請問 1萬5上下的電腦

    本帖最後由 city3034 於 2009-7-26 22:02 編輯 CPU :AND AM3 AthlonII X2-245/2.9G/65W/45nrn/L2 Cache1MB*2 主機闆:技嘉MA770T-UD3P/A770+SB710/1394/8+2相電源供 RAM:金士頓2G DDR2-800 終生保 x2 HDD:WD SATAII 500GB 7200rpm 16MB 5000AACS/單碟320G環保省電 電源:七盟420W/ATX2.0/BKV .......

請問 Dennys MD 270

    本帖最後由 030092636 於 2009-6-7 20:52 編輯 最近看到這一款，功能眾多，價格便宜，不知是否有買過的大大，可以說明一下品質，是否推薦，謝謝.......

請問 HP HX2110 的問題(電池放電)

請問 HP HX2110 的問題(電池放電)

    請問一下.HP IPAQ HX2110 這颱 的電池該如何放電(他銅片那有七個洞 上方標示 右邊是+極紅色 左邊是負極-黑色) 1.我要問的.若我自接LED燈炮 正負極 該接在銅片那個洞? 2.另外問的.請問這款電池那裏還有在賣? 附上圖.......

請問 MIO（TMC 外接天綫）

    請問 MIO目前及時路況訊號接收器(TMC）效果是不是比 TomTom的RDS-TMC及Garmin GTM-TMC好 好像看到很多人對Garmin -- TMC     TomTom--TMC  路況即時資訊不滿意 很少人提到對MIO(TMC）使用狀.......

請問 Outlook Express 該如何備份

    本帖最後由 mayday03225 於 2009-8-3 08:55 編輯 小弟最近要更換電腦 所以有些資料需要備份 但遇到瞭瓶頸 Outlook Express 的郵件我隻會一封一封的另存 但是有兩韆多封-----"頭殼痛" 不知道有沒有其他比較方便快速的備份方式 請各位大大能不吝指導一下小弟.......

請問 frontpage 程式碼的問題!?

    本帖最後由 mayday03225 於 2009-4-26 22:14 編輯 最近小弟用瞭frontoage做瞭一個網頁! 可是我想貼上一個萬年曆的程式碼!! 哪位可以提供萬年曆的程式碼!? 謝囉.......

請問 i phone mini 來電隻能顯示號碼嗎???

    本帖最後由 arhong888 於 2009-11-17 13:49 編輯 請問 i phone mini 來電隻能顯示號碼嗎??? 我的隻能顯示號碼呢?? 能夠顯示姓名嗎??? 該怎麼設定呢? 能不能問 山寨機 = =".......

請問 ipod touch 可以自行新增資料夾嗎？

    不好意思...請問一下... ipod touch 有辦法在音樂裏麵自行新增資料夾嗎？ 比方說： 我有150個音訊檔，我想把... 編號1～50放入自行新增「資料夾1」 編號51～100放入自行新增「資料夾2」 編號101～150放.......

請問 tomtom 7 有快樂圖資嗎?

    小弟遍尋不找 tomtom 7 快樂 + 圖資 隻找到主程式跟未破解圖資 找到的圖資也隻有美國跟世界各地的 就是沒有中文圖資 請問各位大大及水水 可否指點一二 謝謝啦.............

請問 是否有用Audio Notes Touch太小聲的問題

    我自己是用阿芬機，目前是灌Audio Notes Touch當作來電錄音軟體，但我發現，錄起來的聲音都太小，不知有沒辦法解決，謝謝.......

請問 關於網狀圖的製作

    本帖最後由 李斯特霍華 於 2009-3-27 17:25 編輯 請問一下 我要製作比較復雜的『網狀圖』 OFFICE WORD POWERPOINT內提供的網狀圖 無法達成我的需求 請問  要使用哪種軟體 纔可以畫比較復雜的網狀圖 請知道的大大告知謝謝.......

請問!是否有可查詢區網內所有使用者ip上傳下載即時流量

    本帖最後由 tommy6237 於 2009-4-10 00:03 編輯 請教各位大大,若在區網內有50個使用者,皆有固定ip, 如何可在網路主機上即時觀察所有使用者,對外綫路(上傳/下載)個彆佔用多少頻寬, 小弟主機為2003 server 工作站為xpp.......

請問....linux 可以做齣網路記錄器的工能嗎？

    本帖最後由 tone.chang 於 2009-9-14 11:18 編輯 想請問各位大大~~ linux 有套件可以做齣網路記錄器的功能嗎？ 或是~~有哪一個版本的os 閤適去做呢？ 主要就是可以知道防火牆底下的使用者去過哪個網頁 聊過什麼天~~ 下載過什麼檔案~~等等~~ 我有去查過市麵上的1u 機架式網路記錄器 他裏麵的係統是linux嵌入式係統 所以我想~~linux 應該是有辦法的吧？ 重點太貴買不起~~  要價18萬 = = http.......

請問...係統如何顯示簡體字

    本帖最後由 tone.chang 於 2009-4-2 23:36 編輯 (1)有很多軟體都是簡體字版本...WIN XP作業軟體...要如何設定讓我可以在使用簡體字版本軟體時...不會齣現一些很奇怪的字 (2)上網時...網頁遇到簡體字...也是一樣會齣現奇怪的字...如何解決呢.... 請高手幫忙吧 謝謝.......

請問2.5吋有齣1T的嗎?

    本帖最後由 venlen 於 2009-9-22 11:14 編輯 請問2.5吋有齣1T的嗎?有的話大約是多少錢?有沒有建議的廠牌(包括硬碟及外接盒),謝謝........

請問2萬5續航力高的13吋筆電

    本帖最後由 G-PLUS 於 2009-6-25 18:25 編輯 我想要一颱新的筆電 平常都是在做文書處理而已 希望是輕便不超過2KG好攜帶 然後能不接電源用很久 不然每次齣門還要帶變壓器好麻煩 本來有考慮過小筆電 但是螢幕太小瞭 希望是13吋左右的大小 不知道預算2萬5的話 有什麼好推薦的嗎.......

請問450D與kiss*2

    各位先進你們好~                         小弟在抉擇450D與kiss*2這兩颱相機,小弟也知道kiss*2是450D的平輸版                         但是搭配鏡頭上有會有所差彆瞭,450D若小弟購買的話.......

請問4850和4870.......

    本帖最後由 G-PLUS 於 2009-6-17 00:28 編輯 請問各位大大.... 小的想買新電腦有些地方不明白..... 如果RAM DDR2  + 4850   和 RAM DDR3 +4870  請問這樣玩起一般的綫上遊戲會差很多嗎 因為小的想買電腦希望大概3 4年綫上遊戲不要有跑不動的情況.... 請問4850跟4870玩起遊戲來爽度有差很多嗎.... 如果有差很多就要多準備些摳摳瞭~  ~"畢竟買新電腦就是希望遊戲能玩的舒服.... 先謝謝各位大大瞭~~.......

請問Acronis True Image 隱藏區已滿的問題

    本帖最後由 李斯特霍華 於 2009-4-15 10:03 編輯 我的Acronis True Image Home 9.0版在備份瞭17次以後（隱藏區大小為161G），要再備份，結果齣現以下錯誤訊息： Acronis 隱藏區 已滿。 Acronis 隱藏區 已滿，並且無法自動清空。建議你啓動 管理 Acronis 隱藏區 精靈 以增加可用空間。 可是當時在設定任務時，是選擇『增量備份』，係統的說明如下： 備份隻會在上次的備份變更時備份。第一次執行時，此增量備份需要一個完整.......

請問ConvertXtoDvd在根目錄可以改畫麵嗎?

    本帖最後由 mayday03225 於 2009-8-12 09:07 編輯 小弟在標題選單參數根目錄中的畫麵將背景靜態於標題選單改為使用靜態圖像使用JPEG圖檔,改完有顯示齣來可是轉檔完一直無法齣現改的畫麵,還是一樣黑黑的桌布,在標題選單中的縮圖也無法齣現,但是在章節中的選單畫麵每次改都很正常,請問有那位前輩能教一下,改瞭十幾次轉齣來還是隻有章節中的選單畫麵會齣現!.......

請問FIREFOX點網址新開視窗如何不要最大化?

    本帖最後由 danielpaggy 於 2009-9-13 14:25 編輯 請問點網址新開視窗如何不要最大化? 每次都隻有第一次不是最大化， 第二次以後都會自己最大化， 請問有辦法改嗎? 或是有辦法不要讓新開的視窗在最前麵?.......

請問FLASH新舊版本的相容性

    本帖最後由 mayday03225 於 2009-3-15 21:19 編輯 大傢好， 我想請問一下FLASH MX 2004的檔案，可以在FLASH CS3當中開啓並修改嗎? 姑且不論程式語法的部分，我知道語法有變動， 就單純動畫等等..........

請問Fujifilm Fd100拍攝上的問題!!

    我在使用Fujifilm Fd100晚上拍攝夜景的時候, 想拍齣燈光有星芒的相片, 不知道要如何去設定,請有用過這款相機的高手能夠指點一下><||.......

SONY DCR-DVD201數位相機使用　請幫幫我

LINE GAME 3周年感謝祭 15款遊戲優惠Fun送

台灣微軟Hour of Code年度活動開跑

2020年錢途－遊戲 虛擬實境應用最大賣點

86歲爺上研究所！ 毛筆大字報上台報告

前一篇新聞
誰可以幫幫我?
后一篇新聞
誰可以幫我



服務條款
聯系我們
關於我們
隱私政策

中華民國總統府
批踢踢
mobile01

© 2024 - quweinews.com. All Rights Reserved.
© 2024 - quweinews.com. 保留所有權利