我这儿有一段我自己写的程序,希望对你有点用:function QueryImg()
{
var objdbConn = new ActiveXObject("ADODB.Connection");
var strdsn = "Driver={SQL Server};SERVER=localhost;UID=sa;PWD=;DATABASE=gmis_rdstandard";
objdbConn.Open(strdsn);
var objrs = objdbConn.Execute("SELECT * FROM advertisement"); ImgCount = 0;
var Html = "<table bordercolor =\"#d5d5d5\" border = \"1\" cellpadding=\"0\" cellspacing=\"0\">";
while (!objrs.EOF)
{
Html += "<tr>";
Html += "<td bgcolor=\"#ffffff\" width=\"160\" align=\"center\" height=\"1\"><img width = 128 height = 96 src=\"";
Html += objrs.Fields(3).Value + "\" id = Img" + objrs.Fields(0).Value + " title = \"链接网址:" + objrs.Fields(1).value + "\n开放:" + objrs.Fields(2).value + "\">";
Html += "<input type = \"hidden\" id = \"CurrImgURl" + objrs.Fields(0).value + "\" value = \"" + objrs.Fields(3).value + "\">" + "</td>";
Html += "<td width=\"160\" bgcolor=\"#ffffff\" align=\"center\" height=\"1\"><input type=\"text\" id=\"URL" + objrs.Fields(0).Value + "\" value = \"" + objrs.Fields(1).Value + "\"></td>";
Html += "<td width=\"120\" bgcolor=\"#ffffff\" align=\"center\" height=\"1\"><input id=\"Open" + objrs.Fields(0).Value + "\" type=\"checkbox\" CHECKED name=\"a" + objrs.Fields(0).Value + "\">开放 ";
Html += "</td>";
Html += "<td width=\"60\" bgcolor=\"#ffffff\" align=\"center\" height=\"1\"><a style=\"CURSOR: hand;\" class = \"MouseOut\" onmouseover = \"SetStyle(this, 'in');\" onmouseout = \"SetStyle(this, 'out');\" onclick=\"OpenSelect('";
Html += objrs.Fields(0).Value + "');\">[换图]</a></td>";
Html += "<td width=\"60\" bgcolor=\"#ffffff\" align=\"center\" height=\"1\"><a style=\"CURSOR: hand;\" class = \"MouseOut\" onmouseover = \"SetStyle(this, 'in');\" onmouseout = \"SetStyle(this, 'out');\" onclick=\"Delete('";
Html += objrs.Fields(0).Value + "');\">[删除]</a></td>";
Html += "<td width=\"60\" bgcolor=\"#ffffff\" align=\"center\" height=\"1\"><a style=\"CURSOR: hand;\" class = \"MouseOut\" onmouseover = \"SetStyle(this, 'in');\" onmouseout = \"SetStyle(this, 'out');\" onclick=\"Apply('";
Html += objrs.Fields(0).Value + "');QueryImg();\">[应用]</a></td>";
Html += "</tr>";
ImgIDArr[ImgCount] = objrs.Fields(0).value;
Hab[ImgCount++] = objrs.Fields(2).value;
objrs.moveNext();
}
Html += "</table>";
ImageList.innerHTML = Html;
var i = 0;
for(; i < ImgCount; i++)
{
document.all("Open" + ImgIDArr[i]).checked = Hab[i];
}
objrs.Close();
objdbConn.Close();
}
{
var objdbConn = new ActiveXObject("ADODB.Connection");
var strdsn = "Driver={SQL Server};SERVER=localhost;UID=sa;PWD=;DATABASE=gmis_rdstandard";
objdbConn.Open(strdsn);
var objrs = objdbConn.Execute("SELECT * FROM advertisement"); ImgCount = 0;
var Html = "<table bordercolor =\"#d5d5d5\" border = \"1\" cellpadding=\"0\" cellspacing=\"0\">";
while (!objrs.EOF)
{
Html += "<tr>";
Html += "<td bgcolor=\"#ffffff\" width=\"160\" align=\"center\" height=\"1\"><img width = 128 height = 96 src=\"";
Html += objrs.Fields(3).Value + "\" id = Img" + objrs.Fields(0).Value + " title = \"链接网址:" + objrs.Fields(1).value + "\n开放:" + objrs.Fields(2).value + "\">";
Html += "<input type = \"hidden\" id = \"CurrImgURl" + objrs.Fields(0).value + "\" value = \"" + objrs.Fields(3).value + "\">" + "</td>";
Html += "<td width=\"160\" bgcolor=\"#ffffff\" align=\"center\" height=\"1\"><input type=\"text\" id=\"URL" + objrs.Fields(0).Value + "\" value = \"" + objrs.Fields(1).Value + "\"></td>";
Html += "<td width=\"120\" bgcolor=\"#ffffff\" align=\"center\" height=\"1\"><input id=\"Open" + objrs.Fields(0).Value + "\" type=\"checkbox\" CHECKED name=\"a" + objrs.Fields(0).Value + "\">开放 ";
Html += "</td>";
Html += "<td width=\"60\" bgcolor=\"#ffffff\" align=\"center\" height=\"1\"><a style=\"CURSOR: hand;\" class = \"MouseOut\" onmouseover = \"SetStyle(this, 'in');\" onmouseout = \"SetStyle(this, 'out');\" onclick=\"OpenSelect('";
Html += objrs.Fields(0).Value + "');\">[换图]</a></td>";
Html += "<td width=\"60\" bgcolor=\"#ffffff\" align=\"center\" height=\"1\"><a style=\"CURSOR: hand;\" class = \"MouseOut\" onmouseover = \"SetStyle(this, 'in');\" onmouseout = \"SetStyle(this, 'out');\" onclick=\"Delete('";
Html += objrs.Fields(0).Value + "');\">[删除]</a></td>";
Html += "<td width=\"60\" bgcolor=\"#ffffff\" align=\"center\" height=\"1\"><a style=\"CURSOR: hand;\" class = \"MouseOut\" onmouseover = \"SetStyle(this, 'in');\" onmouseout = \"SetStyle(this, 'out');\" onclick=\"Apply('";
Html += objrs.Fields(0).Value + "');QueryImg();\">[应用]</a></td>";
Html += "</tr>";
ImgIDArr[ImgCount] = objrs.Fields(0).value;
Hab[ImgCount++] = objrs.Fields(2).value;
objrs.moveNext();
}
Html += "</table>";
ImageList.innerHTML = Html;
var i = 0;
for(; i < ImgCount; i++)
{
document.all("Open" + ImgIDArr[i]).checked = Hab[i];
}
objrs.Close();
objdbConn.Close();
}
的确有来自ADO的警告说不安全。请问,该如何克服如此情况!!