搜优酷

这两天发现我运营的一个门户网站出现了数据无法写入的问题，新会员不能注册，信息不能发布，不能正常登陆会员系统，实在找不到原因，觉定还原备份数据库，但在恢复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站长们有所帮助，谢谢。