conn.asp

一套很早的多用户电子商务程序

<%
'##############################################################
'##【深圳 超市网网站系统 v2.0】                              ##

'##程序语言：ASP、SQL、VBScript、JavaScript、HTML。          ##
'##数 据 库：Microsoft Access2000。                          ##
'##运行环境：WIN98+PWS、WIN2000/XP+IIS等支持ASP+ACCESS空间。 ##

'##1、本程序所有版权归深圳市玉龙网络技术有限公司所有。       ##
'##2、任何人未经本公司同意与书面授权不得使用本程序或将本程   ##
'##　 序复制、发送给他人或提供下载。 
'##3、经本公司书面授权后您可以拥有本套系统的二次开发权利     ##
'##　 但不可以把本系统来进行二次转让、出售或以任何方式在网上 ##
'##　 传播。必须保证本系统源码不能泄露给第三方或任何变相盗用 ##
'##4、如果你未遵守上述事项，由此带来的后果和损失自负同时本公 ##
'##　 司将依法追究相关的法律责任。                           ##
'##5、请保留以上的版权信息，此项不会对本站程序有任何影响。   ##
'##############################################################
dim conn
set conn=server.createobject("adodb.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0;"&"data source="&server.mappath("Data_dns100_cn_1234/shop_9655abc.asp")
conn.open
function FomaID(Rid)
RID=replace(RID,"or","")
RID=replace(RID,"and","")
RID=replace(RID,"'","")
RID=replace(RID,"="," ")
FomaID=RID
end function
%>