无法写入数据库的解决方法

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