ASP 常用源代码汇总（下篇）

在 ASP 编程中，掌握一些常用的源代码能够极大地提高开发效率。本文将为您继续汇总一些实用的 ASP 源代码示例，帮助您在编程过程中更加得心应手。

首先是用户登录验证的代码片段。通过获取用户输入的用户名和密码，与数据库中的数据进行比对，从而判断用户是否能够成功登录。

<%
username = Request.Form("username")
password = Request.Form("password")

' 连接数据库
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("your_database.mdb")

' 执行查询
sql = "SELECT * FROM users WHERE username = '" & username & "' AND password = '" & password & "'"
Set rs = conn.Execute(sql)

If rs.EOF Then
    Response.Write "登录失败，请检查用户名和密码"
Else
    Response.Write "登录成功"
End If

rs.Close
conn.Close
%>

接着是文件上传的代码。允许用户选择本地文件并将其上传到服务器指定的目录。

<%
' 定义允许上传的文件类型
Dim allowedExtensions
allowedExtensions = "jpg,jpeg,gif,png"

' 获取上传的文件
Set upload = Server.CreateObject("Persits.Upload")

' 检查文件是否存在
If upload.Files.Count > 0 Then
    Dim file
    Set file = upload.Files("file")

    ' 检查文件扩展名
    ext = Right(file.FileName, Len(file.FileName) - InStrRev(file.FileName, "."))
    If InStr(allowedExtensions, ext) = 0 Then
        Response.Write "不允许的文件类型"
        Exit Sub
    End If

    ' 保存文件
    file.SaveAs Server.MapPath("uploads/" & file.FileName)
    Response.Write "文件上传成功"
Else
    Response.Write "请选择要上传的文件"
End If
%>

然后是数据分页显示的代码。当数据量较大时，分页显示能够提高页面的加载速度和用户体验。

<%
pageSize = 10 ' 每页显示的记录数
page = Request.QueryString("page")

If page = "" Then
    page = 1
Else
    page = CInt(page)
End If

' 连接数据库
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("your_database.mdb")

' 获取总记录数
sql = "SELECT COUNT(*) AS total FROM your_table"
Set rs = conn.Execute(sql)
totalRecords = rs("total")

' 计算总页数
totalPages = Int((totalRecords + pageSize - 1) / pageSize)

' 获取当前页的数据
sql = "SELECT * FROM your_table ORDER BY id ASC LIMIT " & (page - 1) * pageSize & ", " & pageSize
Set rs = conn.Execute(sql)

' 输出数据
While Not rs.EOF
    ' 显示数据的代码
    rs.MoveNext
Wend

' 输出分页链接
If page > 1 Then
    Response.Write "<a href='?page=" & (page - 1) & "'>上一页</a>"
End If

If page < totalPages Then
    Response.Write "<a href='?page=" & (page + 1) & "'>下一页</a>"
End If
rs.Close
conn.Close
%>

以上只是 ASP 中部分常用的源代码示例，通过灵活运用这些代码，能够为您的开发工作带来便利。但在实际开发中，还需要根据具体的需求进行修改和完善。