Question

ASP的关于图片在数据库存储,显示的问题

我的页面有两个SELECT
<script language="javascript">
<!--
function showimage(){document.images.tus.src="face/"+document.form.p1.options[document.form.p1.selectedIndex].value+""+document.form.p2.options[document.form.p2.selectedIndex].value+".gif";}
-->
</script>
<select name="p1" size="1" onChange="showimage()" style="color: #0000FF; border: 1px dotted #9999FF; background-color: #C8C8FF">
<option value="m" selected>男</option>
<option value="w" >女</option>
</select> 表 情：<select name="p2" size="1" onChange="showimage()" style="color: #0000FF; border: 1px dotted #9999FF; background-color: #C8C8FF">
<option value="01">酷像01</option>
<option value="02">酷像02</option>
<option value="03">酷像03</option>
<option selected value="04">酷像04</option>
<option value="05">酷像05</option> .....
....
我的数据库里有个FACE字段,这一页是发表留言页面,全部填写完了转到显示页面,我不想用参数传递.
然后我在赋值给主据库里的时候这样写了
rs("face")=document.form.p1.options[document.form.p1.selectedIndex].value+""+document.form.p2.options[document.form.p2.selectedIndex].value
中是觉得不对径,请问如果错了,怎么样才可以正确的赋值,还有这样一句错在哪里了
<%rs("face")=%><script language=javascript>document.form.p1.options[document.form.p1.selectedIndex].value+""+document.form.p2.options[document.form.p2.selectedIndex].value</scritp>
这样写可以吗??
在脚本语言里怎么直接输出里面显示的东西啊?
这位大哥,你是不是搞错了,我会连数据库,我文得是图片得问题,和我不想传参数,怎么解决得问题,谢谢你得回答,不过会我没有帮助.

Answer 1

5月28日 11:15 将数据库连接做成一个文件，然后哪个文件用的话，可以调用这个文件。。数据库随便放在哪个位置，安全做好就可以了。。

你可以 http://www.dwww.cn 首页中选择搜索，输入关键字连接选择ASP，搜索一下。。
下面这个是ASP链接代码，供参考一下。。

'解决了ACCESS数据库路径的问题！
'采用DBType=0或DBType=1来区分AC库还是MSSQL库
'具体采用AC库时应注意的事项，请看程序说明

-----------------------------------------------
Dim DBType,Conn,StrConn
DBType=0 '0为Access数据库，1为MSSQL数据库

If(DBType=0) Then
'****************ACCESS数据库******************
Dim DbFolderName,DbFolder_Path,SiteFolder
DbFolderName="ArticleData" '数据库所在文件夹名称
DbFolder_Path = Server.MapPath(DbFolderName) '数据库所在路径
SiteFolder="Article" '系统所在根目录名称

If Session("RootDir") = "" Then
Session("RootDir") = Mid(DbFolder_Path, 1, InStr(1,DbFolder_Path,SiteFolder,1) -1) & SiteFolder
End if
Set Conn = Server.CreateObject("Adodb.Connection")
StrConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Session("RootDir") & "\"& DbFolderName & "\Data.mdb" '连接到数据库
Conn.Open StrConn
'**************************************************
ElseIf(DBType=1) Then
'*****************MSSQL SERVER数据库******
Dim DBUserID,DBPassWord,DBName,DBIP
'修改以下信息以适合你的网站
DBUserID="sa" '数据库登陆名
DBPassWord="" '数据库密码
DBName="dbname" '数据库名称
DBIP="local" '数据库所在地址，如果是本地数据库则为：(local)

Set Conn=Server.CreateObject("Adodb.Connection")
StrConn = "PROVIDER=SQLOLEDB.1;Data Source="&DBIP&";Initial Catalog="&DBName&";Persist Security Info=True;User ID="&DBUserID&";Password="&DBPassWord&";Connect Timeout=30"
Conn.Open StrConn
'******************************************************
Else
'***********************数据库设置错误*****************
Response.Write"数据库设置错误，请联系管理员！"
Response.End
End If
'Response.Write StrConn