推奨:ASP買収プログラムの原則に関する簡単な議論コレクションプログラムの主な手順は次のとおりです。1。収集されたページの内容を取得します2。取得コード1からすべてのデータを抽出します。
ユーザーログイン検証スクリプト、chkpwd.asp
以下は引用されたコンテンツです。
<%
'========ユーザーログイン検証スクリプト========
'通過したオブジェクトが定義されていない場合、それは偽として定義され、検証に合格していないことを示します
isempty(セッション(合格))の場合
セッション(合格)= false
ifを終了します
'セッション(合格)= false。つまり、フォームから渡された検証情報はまだ渡されていません。
セッション(合格)= falseの場合
username = request.form(username)
userpwd = request.form(userpwd)
username = thenの場合
errmsg =ヒント:ユーザー名とパスワードを入力してください
それ以外
'============================================================
conn = server.createObject(adodb.connection)を設定します
conn.ConnectionString = driver = {sql server}; server = 192.168.1.3; uid = sa; pwd =; database = zcmrs
conn.open
'=================================テーブルログからユーザーデータをお読みください=========================
'レコードセットオブジェクトを定義します
rs = server.createObject(adodb.Recordset)を設定します
'接続オブジェクトの接続ストリングを設定します
rs.activeconnection = connを設定します
'カーソルタイプを設定します
rs.cursortype = 3
'オープンレコードセット
rs.open username where username = '&username&'からユーザー名、パスワード
'============================================================
rs.eofの場合
errmsg =ヒント:ユーザーが存在しないか、パスワードが間違っています
それ以外
userpwd <> rs.Fields(パスワード)の場合
errmsg = tip:ログインに失敗しました!パスワードエラー?
それ以外の場合は、 'ログインに正常にログインします
errmsg =
セッション(合格)= true
session(username)= rs.fields(username)
'ユーザー許可セッション(userid)= rs.fields(userid)を識別する
ifを終了します
ifを終了します
ifを終了します
ifを終了します
'ログインに障害が発生した後、ログインフォームが描画されます
セッションではない場合(合格)= true
%>
<html>
<head> <title> un un unt titled document </title>
<style type = text/css>
<! -
.style1 {font-size:12px; font-weight:bold; margin-left:120px; outline:double}
- >
</style>
<style type = text/css>
<! -
.style2 {font-size:12px; font-weight:bold; outline:double; color:#ff3333}
- >
</style>
</head>
<body leftmargin = 0 topmargin = 0 marginheight = 0 marginwidth = 0 bgcolor =#000000>
<div id = parent style = height:300; width:450; border-style:solid; border-color:#fffff; margin-top:80px; margin-left:25%; margin-right:25%; background-color:#fffff>
<div id = denglu style = font-size:12px; font-weight:boland; background-color:#0099ff; text-align:center; height:40px;> <br> erpシステムログイン</div>
<form action = <%= request.servervariables(path_info)%> method = post name = myform id = myform>
<P class = style1> username:<input name = username type = text id = username size = 18 maxlength = 20>
</p>
<p class = style1>パスワード:<入力名= userpwdタイプ=パスワードid = userpwdサイズ= 18 maxlength = 20>
</p>
<p align = center class = style2> <%= errmsg%> </p>
<p>
<入力型= shovion align = middle name = submit value = login ostys system>
<入力名= regeタイプ=ボタンalign =ミドルonclick = location = 'register.asp' id = rege値=レジスタユーザー>
</p>
</form>
</div>
</body>
</html>
<%
'<P class = style1>検証コード:<入力名= checkcode type = text id = checkcode size = 6 maxlength = 4>
'<img style = margin-right:40px alt = src = common/getcode.asp> </p>
Response.End
ifを終了します
%>
erp.aspにアクセスするページ
<以下は引用された内容です。
<! - #include file = chkpwd.asp->
<body>
<div style = 'font-size:12px; font-weight:bolder:border:1px solid#001; padding:4px; background:#ffcff; margin-top:0;'> ERPクエリシステムを使用することを歓迎します。現在のログインユーザーは次のとおりです。
<%
セッション(合格)= trueの場合
Response.write(session(username)))
ifを終了します
%> <a href = logout.asp>システムを終了</a>
</div>
</body>
erp.aspを開くたびに、最初にchkpwd.asp()を実行します。これにより、不正なユーザーが指定されたWebページにアクセスできないようにします。
logout.aspシステム終了
<body>
<%
セッション(合格)= false
セッション(username)=
Response.redirect(index.asp)
%>
</body>
写真を使用してフォームを送信します
以下は引用されたコンテンツです。
<form name = form1 method = post action =>
<td align = right> <入力タイプ= image method = submit name = submit src = image/loginin.gif width = 70 height = 21 alt = submit> </td>
</form>
共有:ASPおよびアクセスリンクこの記事では、ASPとASPの例でASPとアクセスをリンクする2つの方法を示しています。以下は参照されているコンテンツです:%dim dd、connstrdd = data.mdbconnstr =&q