高分请教conn.asp连接设置

Posted 2023-04-11

我是初学者希望高手能教我一下。如何设置连接才能使用，答案要详细具体，我试过后，能行的才选为最佳答案，请不要随便从网上粘贴一些答案来敷衍我
以下是wap网站最原始的conn文件如下
<%
'option explicit
Response.Buffer = True
Rem 忽略所有错误
'On Error Resume Next
dim startime
dim Conn
dim ConnStr
startime=timer()
%>
<!--#INCLUDE file="Config.asp" -->
<%
Rem 缓存名称
SiteSN = Replace(Replace(LCase(Request.ServerVariables("SERVER_NAME")), "/", ""), ".", "")
Admin=Request("Admin")
Sub ConnectionDatabase
If IsSqlDataBase = 1 Then
Rem 如果是SQL数据库，请认真修改好以下数据库选项
DataServer = "(local)" '数据库服务器IP
DataUser = "WapLink" '访问数据库用户名
DataBaseName = "WapLink" '数据库名称
DataBasePsw = "518116" '访问数据库密码
ConnStr="Provider = Sqloledb; User ID = " & datauser & "; Password = " & databasepsw & "; Initial Catalog = " & databasename & "; Data Source = " & dataserver & ";"
Else
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(WapLinkMdb)
End If
On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open ConnStr
If Err Then
err.Clear
Conn.close
set Conn=nothing
Response.Write "数据库连接出错"
Response.End
End If
End Sub

Call ConnectionDatabase()
dim WapLink
Set WapLink=New Cls_CuteLink
If IsSqlDataBase = 1 Then
SqlNowString = "GetDate()"
strTrue = -1
strFalse = 0
Else
SqlNowString = "Now()"
strTrue = True
strFalse = False
End If
%>
<!--#INCLUDE file="Class.asp" -->
是wap雅玛导航系统，我想用access的数据库的，不是sql，知道的请告诉我一下 ，我要的是在原来的conn文件上修改，而不是使用其他的conn文件，谢谢！

参考技术A <!--#include file="config.asp"-->
<!--#include file="ver.asp"-->
<!--#include file="Inc/Inc_Functions.asp"-->
<!--#include file="API/Api_Config.asp"-->
<%
'-----------------------------------------
'conn.asp
'数据库参数设置
'-----------------------------------------

'数据库类型:0-Access,1-Sql Server
Const Is_Sqldata = 0

'使用外部数据库：0-不使用，1-使用
Const Is_ot_User = 0

'数据库连接参数变量定义
Dim G_Sql_DelChar,G_Sql_Now,G_Sql_d_Char
Dim G_Sql_y,G_Sql_m,G_Sql_d,G_Sql_h,G_Sql_mi,G_Sql_s
Dim connstr,conn,db

'外部数据库参数变量定义
Dim ot_connstr,ot_conn,ot_usertable,ot_username,ot_password
Dim ot_regurl,ot_lostpasswordurl,ot_modIfypass1,ot_modIfypass2

'检验系统状态
Call SystemState

'连接数据库
Sub link_database()
If Is_Sqldata = 0 Then
'Access数据库连接参数
'此处必须为以根目录开始,最前面必须为/号
'免费用户初次安装务必修改DATA目录的数据库名称
db = "/blog/data/oblog46.mdb"

'-----------------------------------------------------------------------------------------------------
'以下参数请勿修改，否则可能导致系统无法运行
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
G_Sql_d_Char ="#"
G_Sql_y ="'yyyy'"
G_Sql_m ="'m'"
G_Sql_d ="'d'"
G_Sql_h ="'h'"
G_Sql_mi ="'n'"
G_Sql_s ="'s'"
G_Sql_Now ="Now()"
'-----------------------------------------------------------------------------------------------------
Else
'Sql Server数据库连接参数
Dim Sql_DBServer,Sql_DBName,Sql_User,Sql_Password
Sql_DBServer = "(local)"'"ZLOGCN\ZLOG" '连接名(本地用(local),外地用IP如：127.0.0.1)
Sql_DBName = "oblog46" '数据库名
Sql_User = "sa" '访问数据的用户名
Sql_Password = "000000" '访问数据的密码

'-----------------------------------------------------------------------------------------------------
'以下参数请勿修改，否则可能导致系统无法运行
ConnStr = "Provider = Sqloledb; User ID = " & Sql_User & "; Password = " & Sql_Password & "; Initial Catalog = " & Sql_DBName & "; Data Source = " & Sql_DBServer & ";"
G_Sql_d_Char ="'"
G_Sql_y ="Year"
G_Sql_m ="Month"
G_Sql_d ="Day"
G_Sql_h ="Hour"
G_Sql_mi ="Minute"
G_Sql_s ="Second"
G_Sql_Now ="GetDate()"
'-----------------------------------------------------------------------------------------------------
End If
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr

'若使用外部数据库表请自行修改下面的变量值
If Is_ot_User=1 And InStr(LCase(Request.ServerVariables("HTTP_REFERER")),"admin_")=0 Then

'access外部数据库连接字符串(默认连接方式)
ot_connstr= "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("/bbs/data/dvbbs7.mdb")

'sql外部数据库连接字符串(sql server数据库请注释上边ACCESS数据库的连接字符串，取消注释SQL Server数据库连接字符串)
'ot_connstr = "Provider = Sqloledb; User ID = bbs; Password = bbs; Initial Catalog = bbs; Data Source = (local);"

'创建外部数据库连接
Set ot_conn = Server.CreateObject("ADODB.Connection")
ot_conn.open ot_connStr '外部数据库连接
ot_usertable = "dv_user" '外部数据库用户表名
ot_username = "username" '外部数据库用户名字段
ot_password = "userpassword" '外部数据库密码字段
ot_regurl = "../bbs/reg.asp" '外部数据库注册用户链接
ot_modIfypass1 = "../bbs/modIfyadd.asp?t=1" '外部数据库修改密码连接
ot_modIfypass2 = "../bbs/modIfyadd.asp?t=1" '外部数据库修改密码提示问题连接
ot_lostpasswordurl = "../bbs/lostpass.asp" '外部数据库找回密码链接
End If

If Err Then
'Err.clear
Set conn = Nothing
ECHO_ERR "Connection Database","<B>连接数据库出错</B><br/>您可能没有正确设置 conn.asp 的数据库连接。<br/>如果您是Sql Server 数据库的话，也可能是数据库名、数据库用户名、或者数据库密码不正确，还有可能是数据库服务没有开启。",1
End If
End Sub

%>本回答被提问者采纳 参考技术B 你这个conn.asp文件已提供sql和access两种数据库连接，只需选用access即可

方法：
打开与conn.asp在同一目录下的Config.asp
修改两个变量的值（若无相应变量则把以下语句粘贴进去即可）：
IsSqlDataBase=2
WapLinkMdb="你的access文件路径/数据库文件.mdb"

注意access文件路径是相对于调用该conn.asp页面的那个页面而言的，比如在index.asp中调用conn.asp，如果数据库文件.mdb与index.asp在同一目录下，则
WapLinkMdb="数据库文件.mdb"

若运行提示数据库连接出错，不妨使用下面这个conn.asp

<%
Response.Buffer = True
dim startime
startime=timer()
%>
<!--#INCLUDE file="Config.asp" -->
<%
SiteSN = Replace(Replace(LCase(Request.ServerVariables("SERVER_NAME")), "/", ""), ".", "")
Admin=Request("Admin")

dim conn,connstr,datafile
datafile="你的数据库文件.mdb" '注意路径
on error resume next
connstr="DBQ="+server.mappath(datafile)+";DefaultDir=;DRIVER=Microsoft Access Driver (*.mdb);"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr

dim WapLink
Set WapLink=New Cls_CuteLink
If IsSqlDataBase = 1 Then
SqlNowString = "GetDate()"
strTrue = -1
strFalse = 0
Else
SqlNowString = "Now()"
strTrue = True
strFalse = False
End If
%>
<!--#INCLUDE file="Class.asp" --> 参考技术C 请问你想做什么网站是WAP吗？

高分请教高手一个绘制隐函数三维图的问题(MATLAB)

f=(x+1/2)/sqrt((x+1/2)^2+y^2+z^2)-(x-1/2)/sqrt((x+1/2)^2+y^2+z^2)-C
C值为常数
要求画出函数的三维图
c0=[1.0019,1.0038,1.0055,1.0070,1.0083,1.0092,1.0098,1.0100,1.0099,1.0093,1.0084,1.0071,1.0056,1.0038,1.0019];
f=(x+1/2)/sqrt((x+1/2)^2+y^2+z^2)-(x-1/2)/sqrt((x-1/2)^2+y^2+z^2)-c;
结果应是线形图,画的是物理中的电场线

参考技术A [x,y]=meshgrid(-7:0.1:7);% 这是将xy定义成二维数组
%%%%这部分可以限定你的图的范围，相信控制循环你应该有些思路
%for i=1:200
for j=1:200（这只是范围，相当于抽样，取的越多图会越细致）
f=找一个中间变量
if f>= & f<=
z(i,j)=
else
z(i,j)=;
end;
%end;
end;
%%我的想法也是想办法找中间变量求出z,然后就可以定义三维数组了
mesh(x,y,z);
surf(x,y,z)%%这是三维表面图绘制，画线形图你可以查查具体用什么函数
axis([-7 7 -7 7 -2 2]);%这是定义轴的范围，可自己更改
%%%%%你的c是一个一维向量，如果你将前面的问题都解决了的话，可能还要调整一下c的维数
再有什么问题，咱们再探讨，加油！ 参考技术B [X Y Z]=meshgrid(-1:.025:1,-1:0.025:1,-1:0.025:1);
f=(X+1/2)./sqrt((X+1/2).^2+Y.^2+Z.^2)-(X-1/2)./sqrt((X-1/2).^2+Y.^2+Z.^2);
xslice=[-0.5,0,0.5];
yslice=0;
zslice=0;
h=slice(X,Y,Z,f,xslice,yslice,zslice);
colorbar
set(h,'FaceColor','interp', 'EdgeColor','none')
这是一个三维空间标量场，我怎么觉得是偶极子向量场x方向分量呢？我以前还编过偶极子三维矢量场的图像，还扔到我校内里显摆了两天，后来发现很幼稚。要是把它画成空间矢量场，表达式会简单得多。就用quiver3()。 参考技术C 调用maple也不好使，不知为什么。

在你的电脑上试试。
maple('ff:= (x+1/2)/sqrt((x+1/2)^2+y^2+z^2)-(x-1/2)/sqrt((x-1/2)^2+y^2+z^2)-1.001')
maple('with(plots)');
maple('implicitplot3d(ff,-1..1,-1..1,-1..1)')

【补充】：
c=[1.0019,1.0038,1.0055,1.0070,1.0083,1.0092,1.0098,1.0100,1.0099,1.0093,1.0084,1.0071,1.0056,1.0038,1.0019]';
syms x y z
f=(x+1/2)/sqrt((x+1/2)^2+y^2+z^2)-(x-1/2)/sqrt((x-1/2)^2+y^2+z^2)-c
z=solve(f(1),'z')

求出z，用ezmesh画图，关键是z太复杂。本回答被提问者采纳 参考技术D 我不是很明白，为什么明明有三个变量却说是画三维图呢？你的意思是不是f是一个常数，或者就是零呢？
从你的表达式大概可以猜出表达式是偶极子的电场分布，所以不知道你是不是要画电场线或者什么的呢？ 第5个回答  2008-05-21 四维用slice试一下...不过要看你所说的电场分布估计就不理想了...