ASP连接数据库

xiaowenand

于 2005-04-26 10:28:00 发布

608

分类专栏： asp 文章标签： asp 数据库

本文链接：https://blog.csdn.net/xiaowenand/article/details/363194

版权

asp 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

<% Response.Buffer = True SqlDatabase_Name = "bonry" SqlPass_word = "sa" SqlUser_name = "QQ" SqlLocal_Name = "java" ConnStr = "Provider = Sqloledb; User ID = " & SqlUser_name & "; Password = " & SqlPass_word & "; Initial Catalog = " & SqlDatabase_Name & "; Data Source = " & SqlLocal_Name & ";" On Error Resume Next Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnStr Function SafeRequest(ReqName,ReqType) Dim ReqValue ReqValue=Request(ReqName) If ReqType=1 Then If not isNumeric(ReqValue) Then Response.Write "

提交URL错误,请与管理员联系! " Response.End() Else ReqValue=Replace(ReqValue,"'","''") End If End If End Function %>