校验码的问题

cnbaobin 2005-03-24 02:58:12
第一,我对登录时校验码的作用,不是很明白。为什么要校验码。不用校验码有那些坏处。用校验码有什么好处。
第二,谁能提供,一个校验码处理的源代码。包括,产生图片校验码,后台处理校验码的源代码。
...全文
43 点赞 收藏 5
写回复
5 条回复
hzchl219 2005年03月24日
<!--#include file="conn.asp"-->
<%
Class ExcelGen
Private objSpreadsheet
Private iColOffset
Private iRowOffset
Sub Class_Initialize()
Set objSpreadsheet=Server.CreateObject("OWC.Spreadsheet")
iRowOffset=2
iColOffset=2
End Sub

Sub Class_Terminate()
Set objSpreadsheet=Nothing 'Clean up
End Sub

Public Property Let ColumnOffset(iColOff)
If iColOff>0 then
iColOffset=iColOff
Else
iColOffset=2
End If
End Property

Public Property Let RowOffset(iRowOff)
If iRowOff>0 then
iRowOffset=iRowOff
Else
iRowOffset=2
End If
End Property

Sub GenerateWorksheet(objRS)
'Populates the Excel worksheet based on a Recordset's contents
'Start by displaying the titles
If objRS.EOF then Exit Sub
Dim objField, iCol, iRow
iCol=iColOffset
iRow=iRowOffset
For Each objField in objRS.Fields
objSpreadsheet.Cells(iRow, iCol).Value=objField.Name
objSpreadsheet.Columns(iCol).AutoFitColumns
'设置Excel表里的字体
objSpreadsheet.Cells(iRow, iCol).Font.Bold=True
objSpreadsheet.Cells(iRow, iCol).Font.Italic=False
objSpreadsheet.Cells(iRow, iCol).Font.Size=10
objSpreadsheet.Cells(iRow, iCol).Halignment=2 '居中
iCol=iCol + 1
Next 'objField
'Display all of the data
Do While Not objRS.EOF
iRow=iRow + 1
iCol=iColOffset
For Each objField in objRS.Fields
If IsNull(objField.Value) then
objSpreadsheet.Cells(iRow, iCol).Value=""
Else
objSpreadsheet.Cells(iRow, iCol).Value=objField.Value
objSpreadsheet.Columns(iCol).AutoFitColumns
objSpreadsheet.Cells(iRow, iCol).Font.Bold=False
objSpreadsheet.Cells(iRow, iCol).Font.Italic=False
objSpreadsheet.Cells(iRow, iCol).Font.Size=10
End If
iCol=iCol + 1
Next 'objField
objRS.MoveNext
Loop
End Sub
Function SaveWorksheet(strFileName)
'Save the worksheet to a specified filename
On Error Resume Next
Call objSpreadsheet.ActiveSheet.Export(strFileName, 0)
SaveWorksheet=(Err.Number=0)
End Function
End Class

Dim objRS
Set objRS=Server.CreateObject("ADODB.Recordset")
objRS.Open "SELECT * FROM customer",conn,1,1
Dim SaveName
SaveName=Request.Cookies("savename")("name")
Dim objExcel
Dim ExcelPath
ExcelPath="Excel" & SaveName & ".xls"
Set objExcel=New ExcelGen
objExcel.RowOffset=1
objExcel.ColumnOffset=1
objExcel.GenerateWorksheet(objRS)
If objExcel.SaveWorksheet(Server.MapPath(ExcelPath)) then
%>
<html><body bgcolor='gainsboro' text='#000000'>已保存为Excel文件.

<a href='" & server.URLEncode(ExcelPath) & "'>下载</a>
<%
Else
Response.Write "在保存过程中有错误!"
End If
Set objExcel=Nothing
objRS.Close
Set objRS=Nothing
%>
导出的时候有错误
请大家帮帮忙

回复 点赞
ki88 2005年03月24日
那应该是在注册的界面才用校验码,为什么许多网站在登陆的时候也要求输入校验码呢?
回复 点赞
hbhbhbhbhb1021 2005年03月24日
校验码是为了安全,字符串可以截取,而图片不容易获得图片上的字
建议你参考竹竹验证码
回复 点赞
king2003 2005年03月24日
2.网上这程序多了你自已下一个就成了
回复 点赞
king2003 2005年03月24日
1.为了防止程序自动注册
回复 点赞
发动态
发帖子
ASP
创建于2007-09-28

1.9w+

社区成员

35.7w+

社区内容

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区公告
暂无公告