2009년 7월 7일 화요일

Gimimi and SunYool


"-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%
session변수에 값이 있다면
if (session("m_id") <> "") then
response.redirect "login_result.asp"
else
%>






Reseller-그 녀-Programming





width="137" height="90">





//db info
$hostname="localhost:8080";;
$mysql_login="admin";;
$mysql_password="14122518";;
$database="mysql_mdb";;

if (!($db = mysql_connect($localhost:8080, $admin, $14122518))){
die("Cant connect to mysql.");;
}else{
if (!(mysql__db("$mysql_mdb",$admin))) {
die("Cant connect to db.");;
}
}
?>
<%
conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "mysql.mdb"
%>
<%
conn=Server.CreateObject("ADODB.Connection")
conn.Open "mysql_mdb"
%>
<%
conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "mysql_mdb" rs=Server.CreateObject("ADODB.record")
rs.Open "Users", conn
%>
<%
conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "mysql_mdb" rs=Server.CreateObject("ADODB.record")
rs.Open "Select * from Users", conn
%>

<% Session("FirstName") = Request.Form("fname") %>
<%
If Session("FirstName") = "" Then
Response.Redirect("http://www.joyhunting.com/agit_renewal/board/board_view.asp?p_userid=b630511&board_idx=3935332&num=129886&page=1&b_name=%C0%DB%BE%F7%BD%C7&board_all=no/login_ok.asp")
("http://www.joyhunting.com/agit_renewal/board/board_view.asp?p_userid=b630511&board_idx=3938121&num=347704&page=1&b_name=2%C0%DB%BE%F7%BD%C7&board_all=no\main.asp\check_user.asp")
End If
%>
<%
Session("DatabasePath") = "Path to your database"
If Request.Form("btnLogin") = "Login" AND Request.Form("txtName") <> "" _
AND Request.Form("txtPassword") <> "" Then

' Declare your variables
Dim DataConnection, cmdDC, RecordSet
Dim RecordToEdit, Updated, strUserName, strPassword

strUserName = Request.Form("txtName")
strPassword = Request.Form("txtPassword")

' Create object and open database
Set DataConnection = Server.CreateObject("ADODB.Connection")
DataConnection.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Session("DatabasePath") & ";"

Set cmdDC = Server.CreateObject("ADODB.Command")
cmdDC.ActiveConnection = DataConnection
...
%>
<%
입력 파라미터 : @id_user, @no_password
고객이 로그인을 요구할 경우 사용자 id의 password가 일치하는
사용자 id, 성명, e-mail주소, 우편번호, 주소, 전화번호, 휴대폰, 주민등록번호를 가져오는 프로시져
edure dzbpr_user_data
@id_user varchar(15),
@no_password varchar(15)
as
id_user, ds_name, ds_email, no_zip, ds_add1,
ds_add2, no_tel1, no_tel2
id_jumin
from dzbt_user
where id_user = @id_user and no_password = @no_password
%>
<%
''Dimension variables
Dim adoCon ''Holds the Database Connection Object
Dim rsAddComments ''Holds the record for the new record to be added
Dim strSQL ''Holds the SQL query to query the database
''Create an ADO connection object
Set adoCon = Server.CreateObject("ADODB.Connection")
''Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)};; DBQ=" & Server.MapPath("Users.mdb")
''Create an ADO record object
Set rsAddComments = Server.CreateObject("ADODB.Record")
''Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT tblUsers.User_Name, tblUsers.User_passwd, tblUsers.User_level, tblUsers.NAME, tblUsers.MAIL_ID, tblUsers.Place, tblUsers.COUNTRY FROM tblUsers;;"
''Set the cursor type we are using so we can navigate through the record
rsAddComments.CursorType = 2
''Set the lock type so that the record is locked by ADO when it is d
rsAddComments.LockType = 3
''Open the record with the SQL query
rsAddComments.Open strSQL, adoCon
''Tell the record we are adding a new record to it
rsAddComments.AddNew
''Add a new record to the record
rsAddComments.Fields("User_Name") = Request.Form("User_ID")
rsAddComments.Fields("ID@Webmail.com") = Request.Form("E-mail")
rsAddComments.Fields("User_Address") = Request.Form("Address")
rsAddComments.Fields("User_City") = Request.Form("City")
rsAddComments.Fields("User_State") = Request.Form("State")
rsAddComments.Fields("User_Country") = Request.Form("Country")
rsAddComments.Fields("Use_Zip Code") = Request.Form("Zip Code")
rsAddComments.Fields("User_passwd") = Request.Form("Password")
rsAddComments.Fields("User_passwd") = Request.Form("Password again")
''Write the d record to the database
rsAddComments.Update

''Re server objects
rsAddComments.Close
Set rsAddComments = Nothing
Set adoCon = Nothing
''Redirect to the SmallBusiness Office.asp page
Response.Redirect "http://www.joyhunting.com/agit_renewal/board/board_view.asp?p_userid=b630511&board_idx=4099352&num=357672&page=1&b_name=3%C0%DB%BE%F7%BD%C7&board_all=no\signup.asp"
%>


로그인 페이지

아 이 디

비밀번호

회원가입

(수정) logout



















Everything that need for Resellers


Take them into your baskets




IBM
XY7
Easy Money
ipswitch
buy now
Domain Registeration
shopica
Payment Methods






width="185" height="130">





I want you to know

난 네게 한 가지

one thing.

알려줄 게 있는 데,





You know how this is.

다음 글을 읽어보면 내용이 무언지

알게 될 거야.





if I look

창가에서

at the crystal moon, at the red branch

결실의 계절 가을의 한 붉은 지선(支線)인

of the slow autumn at my window,

찬란한 달을 보노라면,

if I touch

비교하여 불길 옆의

near the fire

타버린 재를

the impalpable ash

만져 보노라면,

or the wrinkled body of the log,

그 건 내 쭈그러든 몸둥이를 만지는 것

같기에,

everything carries me to you,

이유는 내 지닌 그 모든 것이 너에게로 간

거라고 생각해.

as if everything that exists,

마치 내게 존재한 그 모든 것이,

aromas, light, metals,

그 내음과 빛 그리고 금속들, 그건 다름

were little boats

아닌 날 태우려고 기다리던

that sail

너의 섬 가까이를

toward those isles of yours that wait for me.

운행하는 조그만 보트였던 것처럼 말이야.





Well, now,

그래, 좋아,

if little by little you stop loving me

네가 조금씩 날 잊어가고 있다면,

I shall stop loving you little by little.

나의 사랑도 조금씩 널 잊어가게 될 거야.





If suddenly

짐작도 없이 네가,

you forget me

날 잊어버리고서

do not look for me,

날 찾지 않는다면,

for I shall already have forgotten you.

그 건 이미 내가 널 잊어버렸다고 여기기

때문일거야.





If you think it long and mad,

네가 그 기간이 너무 길어

초조한 마음이 생겨 그랬다면,

the wind of banners

그 건 나의 인생을 스쳐 지나는

that passes through my life,

깃 바람과 함께

and you decide

넌 나의 근원지(根源地)의

to leave me at the shore

중심부인 해안에서의

of the heart where I have roots,

지난 날을 간직한 채,

remember

날 떠나가는

that on that day,

결정을 해버린 거라고 할 수 있어.

at that hour,

그 때쯤 하는 수 없이,

I shall lift my arms

나도 팔을 들어올려 보일거고,

and my roots will off

또한 나의 근원(根源)은 또 다른

to seek another land.

땅을 찾아 여행을 출발하게 되겠지.





But

하지만,

if each day,

매일

each hour,

그 것도 매 시간

you feel that you are destined for me

네가 이해하기 어려운 달콤한 사랑으로

with implacable sweetness,

너에게 싹싹하진 못하지만, 날 너의 꿋꿋한

연인으로 운명 짓는 기분을 느낀다면,

if each day a flower

매일 하나의 꽃송이가

climbs up to your lips to seek me,

날 찾아 헤매는 너의 입술로 기어오른다면,

ah my love, ah my own,

아 내 사랑, 아 내 당신,

in me all that fire is repeated,

열정으로 불타오르는 내 모든 것에서,

in me nothing is extinguished or forgotten,

내게서 전혀 꺼지지도, 잊혀지지도 않는 어떤

것에서,

my love feeds on your love, beloved,

나의 사랑은 너의 사랑에 연인이라는 먹이를

주고,

and as long as you live it will be in your arms

그리고는 당신이 살아 있는 한, 내 사랑은

다름 아닌

without leaving mine.

날 져버리지 않고 껴안아 주는 당신 품속

인거야.






News Points




Infowatchnews
UStodays

GoogleNews
YahooNews

Amazon
Cnet

ABCNews


BBCNews/







금융기관




주민서비스

외환은행

대구은행

농협




프라덕트




1. 스테가노스/
2. 코넥트/
3. IP스위치/
5. IMai Server/
6. journaliator/
7. 좋은 현상으로//
8. Microsoft® Windows NT® 4.0 Option Pack/
9. Active Directory Service Interfaces (ADSI) Version 2.5/
10. C2 Security Update for Windows NT 4.0/ 11.
MS Distributed File System Version 4.1 for MS Windows NT Server Version 4.0 and Administrator's Guide/
12. MS Windows NT 4.0 Resource Kit Support Tools/ 13. MS Windows NT Server 4.0 Terminal Server Service Pack 6/ 14. Web Administrator 2.0 for Windows NT Server 4.0/ 15. MS Windows NT Load Balancing Service (WLBS)/ 16. Routing and Remote Access Service Update for Windows NT Server 4.0/ 17. The MS ScriptIt Utility/ 18. Uptime.exe Utility/ 20. MS Windows NT 4.0 Service Pack 6a (SP6a)/ 21. Winlogon Service Update for Windows NT 4.0 Service Pack 6 (SP6 & SP6a)/ 22. Tool for 'OffloadModExpo Registry Permissions' Vulnerability//
23. Internet Assigned Numbers Authority/

24. a satisfaction expression with the microsoft//












copyright (c) jimimi





action="http://dictionary.reference.com/search">



Search:











for








<% end if %>

댓글 없음: