<%
option Explicit
%>
<% Response.Buffer = True %>
<%
'################################################
' –¼Ì F‹¤’Ê•Ï”EŠÖ”‚Ì’è‹`
' 쬓ú F2008/9/22
' ì¬ŽÒ F¬–ì
'################################################
%>
<%
Response.AddHeader "Content-Type", "text/html; charset=Shift_JIS" '•¶Žš‰»‚¯‘Îô
Response.AddHeader "X-UA-Compatible", "IE=5"
Session.Timeout = 1440
Server.ScriptTimeout = 1200
Dim SQLConn
SQLConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & DBUser & ";Password=" & DBPass & ";Initial Catalog=" & DBName & ";Data Source=" & SQLServer
Dim db, Content
'FESƒAƒNƒZƒXƒƒO‚ɃNƒGƒŠ‚ð‘—‚é
Function OpenQuery(F_Query)
Dim ALdb
Set ALdb = Server.CreateObject("ADODB.Connection")
ALdb.ConnectionTimeout = 60
ALdb.CommandTimeout = 60
ALdb.Open SQLConn
Set Content = ALdb.Execute(F_Query)
Do While Not Content Is Nothing
If Content.Fields.Count > 0 Then
Exit Do
End If
Set Content = Content.NextRecordSet()
Loop
Set OpenQuery = Content
End Function
Function ConvProhiStr(Str) 'ƒT[ƒo[ƒTƒCƒh
Dim NGStr
Dim OKStr
Dim rc
NGStr = "¶·¸¹º»¼½¾¿ÀÁÂÃÄÊËÌÍÎ"
OKStr = "ƒKƒMƒOƒQƒSƒUƒWƒYƒ[ƒ]ƒ_ƒaƒdƒfƒhƒoƒrƒuƒxƒ{ƒpƒsƒvƒyƒ|"
rc = ""
Dim ii
Dim c
Dim n
For ii = 1 To Len(Str)
If Mid(Str, ii, 1) <> "Þ" And Mid(Str, ii, 1) <> "ß" Then
c = Mid(Str, ii, 1)
n = InStr(NGStr, c)
If n > 0 Then
If ii + 1 < Len(Str) Then
If Mid(Str, ii + 1, 1) = "Þ" Then
c = Mid(OKStr, n, 1)
ElseIf Mid(Str, ii + 1, 1) = "ß" Then
c = Mid(OKStr, n + 5, 1) '”¼‘÷‰¹Žž‚Í’uŠ·•¶Žš‚ð5•¶ŽšƒVƒtƒg
End If
End If
End If
rc = rc + c
End If
Next
Str = rc
NGStr = "±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛܦݧ¨©ª«¬®¯¤¡°¢£Þß"
NGStr = NGStr + "‚‚‚‚ƒ‚„‚…‚†‚‡‚ˆ‚‰‚Š‚‹‚Œ‚‚Ž‚‚‚‘‚’‚“‚”‚•‚–‚—‚˜‚™‚š‚`‚a‚b‚c‚d‚e‚f‚g‚h‚i‚j‚k‚l‚m‚n‚o‚p‚q‚r‚s‚t‚u‚v‚w‚x‚y"
NGStr = NGStr + "‚P‚Q‚R‚S‚T‚U‚V‚W‚X‚O"
NGStr = NGStr + "^'""#\"
NGStr = NGStr + "<>" 'ƒ^ƒO–³Œø‰»
NGStr = NGStr + "%+{}$&;*" 'JavaScript–³Œø‰»
OKStr = "ƒAƒCƒEƒGƒIƒJƒLƒNƒPƒRƒTƒVƒXƒZƒ\ƒ^ƒ`ƒcƒeƒgƒiƒjƒkƒlƒm"
OKStr = OKStr + "ƒnƒqƒtƒwƒzƒ}ƒ~ƒ€ƒƒ‚ƒ„ƒ†ƒˆƒ‰ƒŠƒ‹ƒŒƒƒƒ’ƒ“ƒ@ƒBƒDƒFƒHƒƒƒ…ƒ‡ƒbAB[uv@@"
OKStr = OKStr + "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
OKStr = OKStr + "1234567890"
OKStr = OKStr + "/fh”"
OKStr = OKStr + "ƒ„" 'ƒ^ƒO‚𖳌ø‰»
OKStr = OKStr + "“{op•G–" 'JavaScript–³Œø‰»
'Response.Write("NGStr = " & Len(NGStr) & "
")
'Response.Write("OKStr = " & Len(OKStr) & "
")
'Exit Function
rc = ""
For ii = 1 To Len(Str)
c = Mid(Str, ii, 1)
n = InStr(NGStr, c)
If n > 0 Then
c = Mid(OKStr, n, 1)
End If
rc = rc + c
Next
ConvProhiStr = rc
End Function
%>