<% Response.Buffer=True set db=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") db.open "mnndb","","admin" '--------キャッシュの拒否------------------------------- Response.Expires = -1 Response.AddHeader "Pragma", "no-cache" Response.AddHeader "Cache-control", "no-store" '-------パスワードの確認プロセス------------------------ Response.Write Request.Cookies("User_CID") If Request.Cookies("user_status")="logged" Then '---クッキーで入る場合 If Request.Cookies("User_CID")<>"" Then '--------------クッキーを食べてる人のログをとる---------------------------- set dbn = server.createobject("ADODB.Connection") Set rsn = Server.CreateObject("ADODB.Recordset") dbn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= " & server.mappath("../sysadmin/stats/statdb.mdb") '========================年を取得===================== Set rsn = Server.CreateObject("ADODB.Recordset") rsn.open"Select * From stats;",dbn,3,3 If Request.Form("Referer")="" Then Referer="BookMark / Direct Access" Else Referer=Request.Form("Referer") End If rsn.AddNew rsn("CustomerID")=Request.Cookies("User_CID") rsn("TimeIn")=Now rsn("useragent")=Request.ServerVariables("Http_User_Agent") rsn("referer")="Cookie" rsn("ip")=Request.ServerVariables("Remote_Addr") rsn.Update rsn.close dbn.close set rsn=nothing set dbn=nothing Session("user_status")="logged" Session("user_ID")=Request.Cookies("User_CID") Response.Redirect "../area_members/default_logged.asp" End If Else If Session("user_status")="logged" Then If Session("user_ID")<>"" Then Response.Redirect "../area_members/default_logged.asp" End If End If End If %>

<% '-----------トランザクション開始------------------------- set rsdate=Server.CreateObject("ADODB.Recordset") set member_rs=Server.CreateObject("ADODB.Recordset") rsdate.open "Select Max (PNumber) From contents;" ,db,3,3 PN=rsdate(0) rsdate.close rsdate.open "Select Max (Dateup) From contents;" ,db,3,3 Ldate = rsdate(0) DateYoubi = WeekDay(Ldate) Response.Write "" Response.Write Year(Ldate) & "年" & Month(Ldate) & "月" & Day(Ldate) & "日 (" & WeekdayName(Weekday(Ldate),True) & ") 第" & PN & "号 " rsdate.close set rsdate=nothing %> お問い合わせヘルプデスク トップページ > <% '------------ヒストリーのリンク変更用関数----------------------- Sub Link() If Request.QueryString("mode")="history" Then Response.Write "&article_ID=" & rs("PNumber") & "&mode=history" End If End Sub '------------もしヒストリーを選択された場合にリンクを表示する-------- Article_ID = Request.QueryString("article_ID") If Request.QueryString("mode")="history" Then '------------日付データの取得----------------- rs.Open "SELECT DateUp From contents Where contents.PNumber= " & Article_ID & ";", db, 3, 3, 1 Response.Write "" & Month(rs("DateUp")) & "月" & Day(rs("dateUp")) & "日記事トップ" rs.close End If %>

ユーザー名： パスワード： "> <% '-----------クッキーの受け入れテストと、パスワードの保存処理---------- Response.Buffer=True strCookieValueSet = "true" strCookieValueRead = "false" Response.Cookies("cookie_asptest") = strCookieValueSet Response.Cookies("cookie_asptest").Expires = Date + 1 strCookieValueRead = Request.Cookies("cookie_asptest") If strCookieValueSet = strCookieValueRead Then Response.Write " パスワードを保存 " End If %> ログインできない場合 一ヶ月以内の記事 半年以内の記事 全ての記事 さらに詳しく検索 <% '======号数の取り出し(7days)====================================== rs.open "Select Max (PNumber) From contents;" ,db,3,3 Ldate = rs(0)-1 L2date = rs(0)-7 '-------過去の記事をデータベース（contents）から拾う---------------- set rsHis=Server.CreateObject("ADODB.Recordset") set rsHis2=Server.CreateObject("ADODB.Recordset") rsHis.Open "SELECT distinct PNumber From contents Where contents.PNumber Between " & Ldate & " And " & L2date & " Order by Pnumber Desc;", db, 3, 3, 1 '------------------コンテンツポジションのリストボックス専用関数------------- Do Until rsHis.Eof rsHis2.Open "SELECT ID, DateUp, PNumber From contents Where contents.PNumber=" & rsHis("PNumber") & ";", db, 3, 3, 1 %> <% Loop rsHis.close set rsHis=nothing rs.close %> <% Response.Write "" & Year(rsHis2("DateUp")) & "年" & Month(rsHis2("DateUp")) & "月" & Day(rsHis2("DateUp")) & "日" & "(" & WeekdayName(Weekday(rsHis2("DateUp")), True) & ") " rsHis2.Close rsHis.MoveNext %> ＭＮＮについて ２週間無料トライアル 購読料金について 購読のお申し込み 購読規約 星日報 南国新聞 　 　 <% set rsSub=Server.CreateObject("ADODB.Recordset") '------------もしヒストリーを選択された場合にその日の記事を表示する-------- If Request.QueryString("mode")="history" Then Article_ID = Request.QueryString("article_ID") rs.open "SELECT contents.* FROM contents Where contents.position IN (1,4,5,7,8,9,10) And contents.PNumber=" & Article_ID & " Order by link Desc, Position Asc, ID Asc;" ,db,3,3 '------------データの取得----------------- Else rs.open "Select Max (PNumber) From contents;" ,db,3,3 LNum = rs(0) rs.close rs.open "SELECT contents.* FROM contents Where contents.position IN (1,5,7,8,9,10) And contents.PNumber=" & LNum & " Order by link Desc, Position Asc, ID Asc;" ,db,3,3 End If %> <% 'If rs("position")=5 or 7 or 8 or 9 or 10 Then If rs("position")<>1 and 2 and 3 and 6 Then set rstemp=Server.CreateObject("ADODB.Recordset") rstemp.open "SELECT PositionName FROM contents_position Where contents_position.PositionID="& INT(rs("Position")) &";" ,db,3,3 If rs("position")=10 Then eyear=Year(rs("DateUp")) eyear=eyear-1 Else eyear=Year(rs("DateUp")) End If Response.Write "【" & eyear & "年度" & rstemp("PositionName") & "】" rstemp.close set eyear=nothing set rstemp=nothing End If %> <% Response.Write "" & rs("Title") & "" %> <% '-----------文章の短縮と開業部分の展開---------------- Dim cStr1 coms = rs("Contents") cm = Coms cnt=len(cm) scm=left(cm,190) If cnt > 190 Then Response.write Replace(scm,vbCrLf," ") & "・・・" Else Response.Write (scm) End If set cm = nothing set scm = nothing set cStr1 = nothing %> <% Response.Write " [全文を読む］" %> <% rs.MoveNext %> <%Do until rs.EOF%> <%Loop%> <% '------------その他の記事を参照-------------------- '------------もしヒストリーを選択された場合にその日の記事を表示する-------- If rs("Link")=2 Then Response.Write "" & rs("Title") & "" set Date1 = nothing rs.MoveNext Else Response.Write rs("Title") set Date1 = nothing rs.MoveNext End If %> 　 ▼購読者専用 <% rs.Close '------------もしヒストリーを選択された場合にその日の記事を表示する-------- If Request.QueryString("mode")="history" Then rs.open "SELECT contents.* FROM contents Where contents.Position=2 AND contents.pnumber=" & Article_ID & " Order by ID Asc;" ,db,3,3 '------------データの取得----------------- Else rs.open "SELECT contents.* FROM contents Where contents.position=2 And contents.PNumber=" & LNum & " Order by ID Asc;" ,db,3,3 End If %> <% Do Until rs.EOF %> <% Loop%> ・ <% '------------その他の記事を参照-------------------- If rs("link")=2 Then Response.Write "" & rs("Title") & "" Else Response.Write rs("Title") End If set Date1 = nothing rs.MoveNext %> 　 ▼購読者専用 <% rs.Close '------------もしヒストリーを選択された場合にその日の記事を表示する-------- If Request.QueryString("mode")="history" Then rs.open "SELECT contents.* FROM contents Where contents.position=3 And contents.PNumber=" & Article_ID & " Order by ID Asc;" ,db,3,3 '------------データの取得----------------- Else rs.open "SELECT contents.* FROM contents Where contents.position=3 And contents.PNumber=" & LNum & " Order by ID Asc;" ,db,3,3 End If inum=1 %> <%Do until rs.EOF%> <%Loop%> <% '------------その他の記事を参照-------------------- If NowCountry<>rs("country") Then rsSub.open "Select contents_sindex.keywords From contents_sindex Where ID=" & rs("country") & ";" ,db,3,3 If inum=1 Then Response.Write "" & rsSub("keywords") & " " Else Response.Write " " & rsSub("keywords") & " " End if rsSub.close NowCountry=rs("country") Else NowCountry=rs("country") End If %> ・ <% '------------その他の記事を参照-------------------- '------------もしヒストリーを選択された場合にその日の記事を表示する-------- Response.Write rs("Title") rs.MoveNext %> 　 MNNからのお知らせ <% set dbn = server.createobject("ADODB.Connection") Set rsn = Server.CreateObject("ADODB.Recordset") dbn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= " & server.mappath("../newsdb/newsdb.mdb") '---------お知らせ記事表示-------------- rsn.open"Select news.* From news Where news.showto IN(2,1) Order by dateup Desc;",dbn,3,3 %> <% I=1 Do Until I=5 or rsn.EOF %> <% I=I+1 Loop %> <% If rsn("imp")=1 Then Response.Write "!" Else Response.Write "・" End If %> <% If rsn("text")<>"" Then Response.Write "" & rsn("Title") & " " Else Response.write rsn("Title") End If %> <% Response.write rsn("DateUp") 'Response.Write "" & rstopics("Title") & "-" & rstopics("dateup") & "" rsn.MoveNext %> <% rsn.close %> 　 　 最近のトピックス <%=caption%> <% set rstopics=Server.CreateObject("ADODB.Recordset") rstopics.open "SELECT contents.* FROM contents Where contents.position=6 Order by Pnumber Desc;" ,db,3,3 %> <% If rstopics("link")=2 Then Response.Write "" & rstopics("Title") & "-" & rstopics("dateup") & "" rstopics.MoveNext Else Response.Write rstopics("Title") & "-" & rstopics("dateup") & "" set Date1 = nothing rstopics.MoveNext End If %> <% I=1 Do Until I=5 or rstopics.EOF %> <% I=I+1 Loop %> <% If rstopics("Link")=2 Then Response.Write "" & rstopics("Title") & "-" & rstopics("dateup") & "" rstopics.MoveNext Else Response.Write rstopics("Title") & "-" & rstopics("dateup") & "" set Date1 = nothing rstopics.MoveNext End If %> 過去のトピックス一覧… <% rstopics.close %> 　 今日のお天気 <% set dbq = server.createobject("ADODB.Connection") Set rsq = Server.CreateObject("ADODB.Recordset") Set rsq2 = Server.CreateObject("ADODB.Recordset") dbq.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= " & server.mappath("../sysadmin/voting/db/voting.mdb") '---------ランダム表示のファンクション-------------- rsq2.open"Select question.* From question;",dbq,3,3 Max=rsq2.recordcount Randomize Z = Int((Max * Rnd) + 1) rsq2.close '----------rsq2は問題------rsqは回答------------ rsq2.open"Select question.* From question Where question.ID=" & Z &";",dbq,3,3 qid=rsq2("ID") rsq.open "SELECT answer.* FROM answer Where answer.qid=" &qid& " Order by ID Asc;" ,dbq,3,3 '-------------まず全体の人数割りだし----------------- Dim Total, SubTotal '-------------Totalがそのアンケートに対する回答者のトータル Do Until rsq.Eof SubTotal = rsq("total") Total = Total + Subtotal Set Subtotal=nothing rsq.MoveNext Loop If Total = 0 Then Total =1 End If rsq.close rsq.open "SELECT answer.* FROM answer Where answer.qid=" &qid& " order by ID Asc;" ,dbq,3,3 %> 簡単アンケート <%Response.Write rsq2("Question") %> <% I = 1 Do While I <= rsq.PageSize And Not rsq.EOF '--------------回答に対するパーセンテージの割り出し------------ Answer=rsq("total") Perc=Answer/Total RealPerc=FormatPercent(Perc,-1,-1,-1,-1) %> <% rsq.moveNext I = I + 1 Loop %> "> <%Response.Write rsq("answer") %> <% rsq.close dbq.close %> トップページへ 一つ前のページへ 上に戻る