高分求高手快来帮忙,做一个asp服务用的dll

[faib920]

是这样的:现在我在做一个b/s结构的软件,需做一个dll将数据库连接部分封装在里面,并且要做一个软件注册的功能,但在dll中不知道怎么调用一个窗口以供用户输入注册码,dll类型是用ActiveX Dll还是ActiveX Document Dll?
急啊,今天需要解决掉.
在线等,解决后给分

[csbq]

'获得硬盘序列号
Public Function GetSnNumber() As Long

Dim lpRootPathName As String
Dim lpVolumeNameBuffer As String
Dim lpVolumeSerialNumber As Long
Dim lpFileSystemNameBuffer As String
lpRootPathName = "c:\"
Call GetVolumeInformation(lpRootPathName, lpVolumeNameBuffer, 255, lpVolumeSerialNumber, 0, 0, lpFileSystemNameBuffer, 255)
GetSnNumber = lpVolumeSerialNumber
End Function
'解密字符串
Public Function DecryptString(ByVal Instring As String) As String
End Function
'加密字符串
Public Function EncryptString(ByVal Instring As String) As String
End Function
Private Sub Class_Initialize()
On Error Resume Next
Set objContext = GetObjectContext
Set Application = objContext.Item("Application")
Set Server = objContext.Item("Server")
Set Session = objContext.Item("Session")
Set Request = objContext.Item("Request")
Set Response = objContext.Item("Response")
End Sub
Private Sub Class_Terminate()
On Error Resume Next
Set Application = Nothing
Set Server = Nothing
Set Session = Nothing
Set Request = Nothing
Set Response = Nothing
Set objContext = Nothing
End Sub
Public Sub AspClassInit()
On Error GoTo Err
'''''''''''''''''''''''''''''
'Dim sysuserdisknum As String
'sysuserdisknum = GetSnNumber()
'Response.Write sysuserdisknum

''''''''''''''''''''''''''''
Exit Sub
Err:
If Err.Number = -13572468 Then Exit Sub
Resume Next
End Sub

[faib920]

高手快来帮忙!!

[mymyal123]

dll 要绑定数字签名

[faib920]

我现在的问题是怎么为客户提供一个注册用的窗口

[faib920]

我现在的代码如下

Public Sub OpenConn()
Dim dateurl As String
Dim datename As String
Dim dateadmin As String
Dim datepass As String

dateurl = "127.0.0.1"
datename = "acc"
dateadmin = "acc_loginer"
datepass = "9u74m1j33m"
con.Open "Provider=SQLOLEDB.1; Persist Security Info=True; Data Source='" & dateurl & "'; Initial Catalog='" & datename & "'; User ID='" & dateadmin & "'; Password='" & datepass & "'"
con.CursorLocation = 3

'取得服务器数据库中的系列号
req = con.Execute("select requestcode from settings").Fields(0)
'取得服务器数据库中的注册码
code = con.Execute("select regcode from settings").Fields(0) & ""

If code <> GetRegCode Then'如果注册码为空或不正确
frmSoftReg.req = req
frmSoftReg.code = GetRegCode
frmSoftReg.Show 1'显示注册窗口
End If
End Sub

[online]

http://blog.csdn.net/online/archive/2005/01/01/237102.aspx

[life360]

下载 asp2dll 软件

http://www.baidu.com/s?ie=gb2312&bs=aspdll&sr=&z=&wd=asp2dll&ct=0&cl=3&f=8