function replace(v)
{
//定义SQL语句
var sql = "select * from Dictionary where MainID='" + v + "'"
//新建数据库连接对象和数据集存取对象
var ConnDB = new ActiveXObject("adodb.connection")
var rs = new ActiveXObject("ADODB.Recordset")
//这里填入要连接的DSN
ConnDB.ConnectionString="DSN=***uid=***pwd=***"
ConnDB.open
rs.open(sql,ConnDB,1,1)
if (rs.RecordCount>0){
if (v==parseInt(rs("MainID"))){
//字符串连接
document.all('txt').value = v + rs("MainValue")
var sql=null
rs.close
ConnDB.close
return
} else {
var sql=null
alert("没有此代号!")
txt.select()
txt.focus()
rs.close
ConnDB.close
}
}
</script>
<input type=text id=txt name=txt onblur="replace(this.value)">
'不是这样的,连接MYSQL应下面格式'服务器上必须已安装MYSQL
sql="driver={mysql odbc 3.51 driver}database=tttttserver=localhostport=uid=rootpassword="
'说明
'database-数据库名
'server-服务器IP地址
'port-使用端口,没有就空
Set Conn = server.createobject("adodb.connection")
conn.open sql