我的数据库是data.mdb　　我现在想改成　#data.mdb　字符串怎么改啊





<%@ CodePage=936 LCID=2052 %>
<%
Const EW_PAGE_ID = "add"
%>
<!--#include file="inc/ewcfg60.asp"-->
<!--#include file="inc/info.asp"-->
<!--#include file="inc/aspfn60.asp"-->
<!--#include file="inc/userfn60.asp"-->
<%
Response.Expires = 0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-control", "private, no-cache, no-store, must-revalidate"
%>
<%

' Open connection to the database
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open EW_DB_CONNECTION_STRING
%>
<%

' Common page loading event (in userfn60.asp)
Call Page_Loading()
%>
<%

' Page load event, used in current page
Call Page_Load()
%>
<%
Response.Buffer = True

' Load key values from QueryString
Dim bCopy
bCopy = True
If Request.QueryString("id").Count > 0 Then
    zhuce.id.QueryStringValue = Request.QueryString("id")
Else
    bCopy = False
End If

' Create form object
Dim objForm
Set objForm = ew_GetUploadObj()

' Process form if post back
If objForm.GetValue("a_add")&amp;"" <> "" Then
    zhuce.CurrentAction = objForm.GetValue("a_add") ' Get form action
    Call GetUploadFiles() ' Get upload files
    Call LoadFormValues() ' Load form values

' Not post back
Else
    If bCopy Then
        zhuce.CurrentAction = "C" ' Copy Record
    Else
        zhuce.CurrentAction = "I" ' Display Blank Record
        Call LoadDefaultValues() ' Load default values
    End If
End If

' Close form object
Set objForm = Nothing

' Perform action based on action code
Select Case zhuce.CurrentAction
    Case "I" ' Blank record, no action required
    Case "C" ' Copy an existing record
        If Not LoadRow() Then ' Load record based on key
            Session(EW_SESSION_MESSAGE) = "未发现数据记录" ' No record found
            Call Page_Terminate(zhuce.ReturnUrl) ' Clean up and return
        End If
    Case "A" ' Add new record
        If AddRow() Then ' Add successful
            Session(EW_SESSION_MESSAGE) = "成功新增数据" ' Set up success message
            Call Page_Terminate(zhuce.KeyUrl(zhuce.ReturnUrl, "")) ' Clean up and return
        Else
            Call RestoreFormValues() ' Add failed, restore form values
        End If
End Select

' Render row based on row type
zhuce.RowType = EW_ROWTYPE_ADD ' add ' Render add type
Call RenderRow()
%>


帮帮忙呀