这小段ASP代码中怎么能得到数据库表名?
没有经典的CONNECTION啊。。。只有XML。。。。
如果得不到,会在其他ASP页中有么?
谢了!
代码如下:
//提交到服务器
function save(fm){
if(!CheckLogin(fm)) return
var acturl
var xmlstr = ""
var xmlobj = new ActiveXObject("Microsoft.XMLDOM.1.0")
var httpobj = new ActiveXObject("Microsoft.XMLHTTP.1")
var eList, E, Msg
//SetDisabled(fm, true);
//acturl = GetAction(fm.action);
//xmlstr = '<?xml version="1.0" encoding="gb2312"?>'
//xmlstr = xmlstr + GetFormFields(fm);
xmlstr = '<record><clino>' + fm.clino.value + '</clino><password>' + fm.password.value + '</password>' + xmlstr + '</record>';
//if(!window.confirm(xmlstr)) return
xmlobj.async=false;
//alert(xmlstr)
xmlobj.loadXML(xmlstr);
httpobj.open("POST", "/template/Tpl_public/checkLogin.asp", false);
httpobj.send(xmlobj);
var a1 = httpobj.responseText.indexOf("<?xml");
var a2 = httpobj.responseText.length
if(!xmlobj.loadXML(httpobj.responseText.substring(a1,a2))){
alert(httpobj.responseText)
return false;
}
E = xmlobj.selectSingleNode("result/err").text ;
Msg = xmlobj.selectSingleNode("result/msg").text ;
//sqlstr=xmlobj.selectSingleNode("result/sqlstr").text ;
//alert(unescape(sqlstr));
Msg = unescape(Msg);
//alert(E);
//SetDisabled(fm, false);
if(E=='0'){
//if(oprFlag=='upt'){
//alert(Msg);
var d=window.open("/member/main.asp","nihao");
d.focus();
//window.location.href="/member/main.asp"
self.close();
//span_work.innerHTML='<table width=\"100%\" height=\"100%\"><tr><td width=\"100%\" height=\"100%\" align=\"center\"><font size=\"6\"><a href=\"/template/template_bbs_1.asp\">你的留言已经成功保存!</a></font></td></tr></table>'
return
//self.close() //sussecc save
//if(Msg!='') alert(Msg);
//}else{
//document.forms[0].grNO.readOnly = true;
//grNO = document.forms[0].grNO.value;
//window.mylink.content = "GetDetail.asp?flt=grNO='" + grNO + "'";
//oprFlag = 'upt';
//SetDisabled(document.forms[1],false);
//if(Msg!='') alert(Msg);
//if(!window.confirm(Msg + '\n现在需要录入明细吗?')) return
//detail.add.click();
//}
//}else{
}
alert(Msg);
}
如果得不到,会在其他ASP页中有么?
谢了!
代码如下:
//提交到服务器
function save(fm){
if(!CheckLogin(fm)) return
var acturl
var xmlstr = ""
var xmlobj = new ActiveXObject("Microsoft.XMLDOM.1.0")
var httpobj = new ActiveXObject("Microsoft.XMLHTTP.1")
var eList, E, Msg
//SetDisabled(fm, true);
//acturl = GetAction(fm.action);
//xmlstr = '<?xml version="1.0" encoding="gb2312"?>'
//xmlstr = xmlstr + GetFormFields(fm);
xmlstr = '<record><clino>' + fm.clino.value + '</clino><password>' + fm.password.value + '</password>' + xmlstr + '</record>';
//if(!window.confirm(xmlstr)) return
xmlobj.async=false;
//alert(xmlstr)
xmlobj.loadXML(xmlstr);
httpobj.open("POST", "/template/Tpl_public/checkLogin.asp", false);
httpobj.send(xmlobj);
var a1 = httpobj.responseText.indexOf("<?xml");
var a2 = httpobj.responseText.length
if(!xmlobj.loadXML(httpobj.responseText.substring(a1,a2))){
alert(httpobj.responseText)
return false;
}
E = xmlobj.selectSingleNode("result/err").text ;
Msg = xmlobj.selectSingleNode("result/msg").text ;
//sqlstr=xmlobj.selectSingleNode("result/sqlstr").text ;
//alert(unescape(sqlstr));
Msg = unescape(Msg);
//alert(E);
//SetDisabled(fm, false);
if(E=='0'){
//if(oprFlag=='upt'){
//alert(Msg);
var d=window.open("/member/main.asp","nihao");
d.focus();
//window.location.href="/member/main.asp"
self.close();
//span_work.innerHTML='<table width=\"100%\" height=\"100%\"><tr><td width=\"100%\" height=\"100%\" align=\"center\"><font size=\"6\"><a href=\"/template/template_bbs_1.asp\">你的留言已经成功保存!</a></font></td></tr></table>'
return
//self.close() //sussecc save
//if(Msg!='') alert(Msg);
//}else{
//document.forms[0].grNO.readOnly = true;
//grNO = document.forms[0].grNO.value;
//window.mylink.content = "GetDetail.asp?flt=grNO='" + grNO + "'";
//oprFlag = 'upt';
//SetDisabled(document.forms[1],false);
//if(Msg!='') alert(Msg);
//if(!window.confirm(Msg + '\n现在需要录入明细吗?')) return
//detail.add.click();
//}
//}else{
}
alert(Msg);
}
...全文
相关推荐
web网页统计ip次数小段代码
第一次上传,不知道合不合格,希望大家不要介意
ASP编程精粹:基础与实例教程
Active Server Pages (ASP) 是微软开发的一种用于服务器端的脚本环境,它允许开发者嵌入脚本到 HTML 页面中。ASP 脚本在服务器上执行,处理后发送纯 HTML 到客户端浏览器。这项技术自1996年推出以来,就广泛用于构建动态交互式的网站。VBScript(Visual Basic Scripting Edition)是一种轻量级的脚本语言,设计用于Web服务器和客户端。
ASP网上视频点播系统(源代码+论文+开题报告).rar
ASP网上视频点播系统(源代码+论文+开题报告).rar
在线视频点播系统ASP+ACCESS
很简单实用的在线视频点播系统,实用ASP跟ACCESS制作,代码易懂,适合初学者
ASP源码ASP基于BS企业物流管理系统(源代码+论文)
ASP源码ASP基于BS企业物流管理系统(源代码+论文)本资源系百度网盘分享地址



