"-//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
IBM
XY7
Easy Money
ipswitch
buy now
Domain Registeration
shopica
Payment Methods
width="185" height="130">
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 %>
댓글 없음:
댓글 쓰기