很多学校都有国之源图书馆系统，带狗的。我们学校也是，在实际的使用过程中，往往会碰到狗驱动安装不上，导致整个系统不能使用，或者加密狗丢失破坏等情况。这里提供免狗补丁，具体代码如下：
<%
MM_Dlib_String()
'MM_Dlib_String = "PROVIDER=SQLOLEDB;DATA SOURCE=taihu;UID=sa;PWD=123456;DATABASE=dlib"
MM_Dlib_String = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;PWD=123456;Initial Catalog=dlib;Data Source=taihu;DATABASE=dlib"
End
Session.Timeout = 30
Response.Expires =-1
'Response.ExpiresAbsolute = Now() - 1
'Response.cachecontrol = "no-cache"
GetPageName(strURL)
dim tts
tts=right( strURL, len(strURL)-instrRev(strURL,"/"))
GetPageName = tts
if instr(tts,"?") <> 0 then
GetPageName=left(tts, instr(tts,"?")-1)
end if
end
%>
注意修改对应数据库连接用户名和密码
大家覆盖 根目录下的DLIB.asp文件，就可以了。当然这里只是给大家临时解决方法，如果大家的加密狗丢了，还是联系下厂家 购买个，支持正版！
