나의 세상

2010년 2월 12일 금요일

iframe 사용하기

iframe은 특정한 부분을 frame로 분리해서 전체 페이지 업로트 없이 iframe으로 정의된 페이지만

수정 변경하여 업데이트 할때 사용한다.

<!--

function update()

{

var sddata = "a";

var sdstate = "b";

poupdate.location.href = "./poupdate.asp?aaa="+sddata+"&bbb="+sdstate

}

-->

</script>

<tr>

<td> 여기는 이후에만 업데이트

</td>

</tr>

</table>

출처 : Tong - 공원님의 ┣ ★ 먹고사는일(Web)통

set xml = CreateObject("Msxml2.ServerXMLHTTP.3.0")
xml.open "GET", "지원하는 싸이트 경로", false
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.send
res1 = xml.status
res = xml.responsetext

' 한글 깨지는 것을 방지한다.

Set responseStrm = CreateObject("ADODB.Stream")
responseStrm.Open
responseStrm.Position = 0
responseStrm.Type = 1
responseStrm.Write xml.responseBody
responseStrm.Position = 0
responseStrm.Type = 2
responseStrm.Charset = "euc-kr"
resultStr = responseStrm.ReadText
responseStrm.close
Set responseStrm = Nothing
Set xml = Nothing

' 가져온 데이터 확인

Wscript.Echo "데이터 확인"

출처 : Tong - 공원님의 ┣ ★ 먹고사는일(Web)통

ASP Error Check

Set objError = Server.GetLastError

Dim ASPError_Number
Dim ASPError_Source
Dim ASPError_Category
Dim ASPError_File
Dim ASPError_Line
Dim ASPError_Column
Dim ASPError_Description
Dim sErrMsg, sQuery

ASPError_Number = Hex(objError.Number)
ASPError_Source = Server.HTMLEncode(objError.Source)
ASPError_Category = objError.Category
ASPError_File = objError.File
ASPError_Line = objError.Line
ASPError_Column = objError.Column
ASPError_Description = objError.Description

On Error Resume Next
Call Object

If Err.Number <> 0 Then
Response.Write "오류내용 : " & err.Description
Response.End
End if

출처 : Tong - 공원님의 ┣ ★ 먹고사는일(Web)통

ASP 이용 XML Load

XML형식으로 전달되는 데이터 받기

Dim myXml, serverURL, Xadd, strcondition

DIM DayTemp(3)

set myXml = CreateObject("Microsoft.XMLDCOM") ' XML 변수선언

myXml.async = false

myXml.setProperty "ServerHTTPRequest", True ' HTTP 경로

serverURL = http://www.google.co.kr/ ' XML 파일 경로

myXml.Load(serverURL)

if myXml.parseError.errorCode <> 0 then ' 데이터 Loading 확인

response.write("ERROR")

else

set Xadd = myXml.documentElement.selectSingleNode("//current_conditions") ' //current_conditions 노드 데이터 얻기

strcondition = Xadd.selectSingleNode("condition").Attributes(0).text

for i = 1 to 3
Set Xadd = myXml.documentElement.selectSingleNode("//forecast_conditions["&i&"]") ' //forecast_conditions["&i&"] 노드가 여러개일경우
DayTemp(i) = Xadd.selectSingleNode("day_of_week").Attributes(0).text
Next

set Xadd = nothing

set myXml = Nothing

출처 : Tong - 공원님의 ┣ ★ 먹고사는일(Web)통

ActiveX 추가하기 (javascript)

ASP 에서 Activex를 사용하기 위해 Object 추가 필요

'** Object 생성

<OBJECT id=Actvie????? style="display;none"

codebase="CA?????.cab#version=1,0,0,1"

classid=clsid:F??????-????-????-????-??????????B VIEWASTEXT>

<PARAM NAME="_ExtentX" VALUE="2646"> '초기 Activex 위치

<PARAM NAME="_ExtentY" VALUE="2646">'초기 Activex 위치

</OBJECT>

'** ActiveX에 파라미터를 넘긴다.

'** 각각의 파라미터는 정해진 형식으로 전송

<HTML>

<HEAD>

</HEAD>

function ActiveXShow()

{

Actvie?????.setUrl = "www.????.com";

Actvie?????.SetWindowRect("400", "4000");

Actvie?????.Create();

}

</script>

</P>
</BODY>
</HTML>

출처 : Tong - 공원님의 ┣ ★ 먹고사는일(Web)통

VB Script DB 연결

VB Function으로 DB연결 관련된 내용을 구성하여 쉽게 dB 접근및 Query 전송 하기

'------------------- DBConnection.asp

Dim Conn

Function OpenDB()

Dim SeverName, DatabaseName, strUserID, strUserPW

SeverName = "DBIP:port"

DatabaseName = "DBname"

strUserID = "DBUser"

strUserPW = "UserPW"

Conn.ConnectionString = "provider=SQLOLEDB;Data Source=" & SeverName & ";Initial Catalog=" & DatabaseName & ";User Id=" & DBUser& ";Password=" & strUserPW

Conn.ConnectionTimeout = 20
Conn.Open
Conn.BeginTrans()

End Function

Function CloseDB()

If Conn.Errors.Count > 0 Then
Conn.RollbackTrans()
   Else
   Conn.CommitTrans()
   End If

If VarType(Conn) = vbString Then
If Conn.state Then
Conn.Close
End If
End If

End Function

Function QuerySend(strConn, strQuery)

Dim RecordSet

On Error Resume Next

Set RecordSet = Server.CreateObject("ADODB.RecordSet")
RecordSet.Open strSql, strConn, 0, 1

   If RecordSet.bOF Or RecordSet.EOF Then
   dbQuery = ""
Else
   dbQuery = RecordSet.GetRows
End If

RecordSet.Close
Set RecordSet = Nothing

If Err.number <> 0 Then
Err.Clear

End If

End Function

' ----------------------------- end

Dim rTData, strQuery, rRow

Call OpenDB()

setQuery = "Select *from Table"

rTData = QuerySend(Conn, strQuery)

Dim IndexLow, indexColl, nLow, nColl

nLow = UBound(rTData, 2)

nColl = UBound(rTData, 1)

Call CloseDB()

if IsArray(rTData) Then

for indexLow = 0 To nLow

for indexColl = 0 To nColl

Response.Write(RS_Tdata(indexColl, indexLow)

End if

출처 : Tong - 공원님의 ┣ ★ 먹고사는일(Web)통

java script 이용 객체 hidden

단순하게 객체(버튼 또는 Text box 등)을 보기/않보이기 기능

<html>
<head>
<title> Text Box Hidden </title>

출처 : Tong - 공원님의 ┣ ★ 먹고사는일(Web)통