这两天发现我运营的一个门户网站出现了数据无法写入的问题，新会员不能注册，信息不能发布，不能正常登陆会员系统，实在找不到原因，觉定还原备份数据库，但在恢复mssql数据库过程过程中，提示数据库日志满已满，请清空数据库日志后，还原。我想可能就是这个原因导致数据不能正常的写入，然后就baidu搜索了相关的信息，终于找到了原因，程序运行完，修复成功，今天把源代码公布出来，希望对大家有所帮助，大家以后出现相似问题不防也采有清空数据库日志的方法,可以也会解决相似问题，清空数据库日志不会对服务器数据有所损害，能解决数据库不能写入的原因，代码如下：
'sql数据库连接参数：数据库名(SqlDatabaseName)、用户密码(SqlPassword)、用户名(SqlUsername)、
'连接名(SqlLocalName)(本地用local，外地用IP)
Const SqlDatabaseName = "数据库名称"
Const SqlPassword = "数据库用户密码"
Const SqlUsername = "数据库用户名"
Const SqlLocalName = "数据库服务器" '如果服务器是本机,可以设置为:(local),如果是远程要设置数据库ip地址
'以下内容请不要修改
Dim ConnStr
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " &
SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
conn.execute("DUMP TRANSACTION " & SqlDatabaseName & " WITH NO_LOG")
conn.execute("DBCC SHRINKDATABASE(" & SqlDatabaseName & ")")
conn.close
set conn=nothing
Response.Write "您的mssql数据库日志已清空。"
%>
以上代码针对与mssql数据库，支持asp的空间而定，把以上代码保存为某某名字.asp，然后在在输入保存的网页地址，程序运行自动清空数据库日志，完美解决数据库无法写入的问题，希望以上代码对seo站长们有所帮助，谢谢。
作者: Seoer惜缘 原载网址: http://www.noseo.org.cn/
版权所有。转载时必须以链接形式注明作者和原始网址及本声明。
