IDC资讯中心
嘻嘻,虽然是英文的,但是很简单,我想大家都能看懂^-^
active server pages
password script
<%
sub forminput() %>
<form method=post action="logon.asp">
<center>
<h1>generic logon</h1>
user name:<input type=text size=20 name=username>
<br><br>
password:<input type=password size=20 name=password>
<br><br>
<input type=submit name=submit value="submit">
</center>
</form>
<% end sub %>
<!–#include file="adovbs.inc" –>
<%
*********** password login code *********************
*********** programmed by robert robbins ************
*********** first version 03/28/99 ******************
*****************************************************
call input form subroutine
forminput()
create session variable. username needed for filename.asp
session("user") = ""
initialize boolean flags to false
correct_name = false
correct_password = false
connect to table in database
set cn = server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")
cn.open "dsn name"
rs.open "select * from tablename",cn,adopenstatic,adlockpessimistic
test for correct username and password
if request.form("submit") > "" then
do while not rs.eof
compare form input to password database recordset values
if request.form("username") = rs("username") then
correct_name = true
end if
if request.form("password") = rs("password") then
correct_password = true
end if
rs.movenext
loop
if correct_password = true and correct_name = true then
if password and username are correct, jump to dataentry.asp
note: chr(34) is the double quotes character
session("user") = request.form("username")
response.write "<script language=" & chr(34) & "javascript" & chr(34) & ">"
response.write "window.location = " & chr(34) & "dataentry.asp" & chr(34) & """
response.write "</script>"
else
if password or username is incorrect, write javascript code in html for an alert
dialog box
response.write "<script language=" & chr(34) & "javascript" & chr(34) & ">"
response.write "alert(" & chr(34) & "access denied!" & chr(34) & ");"
response.write "</script>"
end if
rs.close
end if
%>
password protect script
<%
set local variable username to session variable user
username = session("user")
if username is an empty string, the user did not use logon.asp to login
if username = "" then
response.write "sorry, you are not logged in!<br>"
session.abandon
response.end
end if
%>
email script
newline = chr(13) & chr(10)
set mailer = server.createobject("cdonts.newmail")
mailer.to = "" & request.form("email") & ""
mailer.from = "" & "rrobbins@sunlink.net" & ""
mailer.subject = "" & "testing automated email" & ""
mailer.body = "" & "my email message" & newline & "second line" & ""
mailer.send
set mailer = nothing
sql server connection
<%
set cn = server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")
strconn = "driver={sql server};server=pentium;uid=sa;pwd=;database=test"
cn.open strconn
%>
windows script host
windows script host file
programmed by robert s. robbins
open database connecection and get recordset
const adopenforwardonly = 0
const adlockpessimistic = 2
set cn = wscript.createobject("adodb.connection")
set rs = wscript.createobject("adodb.recordset")
cn.open "dsn name"
rs.open "select * from tablename",cn,adopenforwardonly,adlockpessimistic
while not rs.eof
message = rs("message")
msgbox message,64,"database message"
rs.movenext
wend
vbscript 5.0 regular expression
<%
set objfile = server.createobject("scripting.filesystemobject")
set infile = objfile.opentextfile("d:\temp\test.txt", 1)
strinput = infile.readall
infile.close
set mytest = new regexp
mytest.pattern = "\w+,"
mytest.global = true
mytest.ignorecase = true
set mycollection = mytest.execute(strinput)
for each element in mycollection
response.write element & "<br>"
next
%>
