这个使用了什么技术。

fengzar1984 2008-06-26 10:10:11

<OBJECT id=mshortcut style="LEFT: 0px; TOP: 0px" codebase="http://192.168.6.17/shortcut/mshortcut.cab#Version=1,0,0,1"
height=0 width=0 classid="clsid:0C4A9D28-66B5-4A70-B915-B6AEA5112472" VIEWASTEXT>
<PARAM NAME="_Version" VALUE="65536">
<PARAM NAME="_ExtentX" VALUE="26">
<PARAM NAME="_ExtentY" VALUE="26">
<PARAM NAME="_StockProps" VALUE="0">
<PARAM NAME="iconurl" VALUE="http://192.168.6.114/shortcut/mb.ico">
<PARAM NAME="homeurl" VALUE="http://192.168.6.114/">
<PARAM NAME="homedesc" VALUE="Dots ERP">
<PARAM NAME="exemode" VALUE="install">
<PARAM NAME="where1" VALUE="Desktop">
<PARAM NAME="where2" VALUE="">
<PARAM NAME="where3" VALUE="">
<PARAM NAME="where4" VALUE="">
<PARAM NAME="where5" VALUE="">
<PARAM NAME="where6" VALUE="">
<PARAM NAME="where7" VALUE="">
<PARAM NAME="where8" VALUE="">
<PARAM NAME="where9" VALUE="">
<PARAM NAME="where10" VALUE="">
<PARAM NAME="extinstall" VALUE="">
<PARAM NAME="extname" VALUE="">
<PARAM NAME="exturl" VALUE="">
<PARAM NAME="extclsid" VALUE="">
<PARAM NAME="extver" VALUE="">
<PARAM NAME="id" VALUE="">
<PARAM NAME="passkey" VALUE="">
<PARAM NAME="startpage" VALUE="">

</OBJECT>


<OBJECT CLASSID='clsid:5220cb21-c88d-11cf-b347-00aa00a28331' id='Microsoft_Licensed_Class_Manager_1_0' ><PARAM NAME='LPKPath' VALUE='fpspr60.lpk'></OBJECT>

<OBJECT ID='ss' WIDTH=0% HEIGHT=0% CLASSID='CLSID:41F841C0-AE16-11D5-8817-0050DA6EF5E5' codebase="/Package/fpspr60.cab"></OBJECT>


<script language="JavaScript" src="/comn/NoMousectrlkey.js"></script>

<script language="javascript">

//function redi(USERID) {
//alert(USERID);

//window.location.href='/MENU/default1.asp';
//}

function on_form1(user_id,depcode,remote_ip,out_flag,residentflag) {
on_pop_login(user_id,depcode,remote_ip,out_flag,residentflag);
}

function on_pop_login(user_id,depcode,remote_ip,out_flag,residentflag) {
var obj_Popup;

obj_Popup = window.open('/menu/index.asp?userid=' + user_id + '&dpcd=' + depcode + '&remoteip=' + remote_ip + '&outcompflag=' + out_flag + '&residentflag=' + residentflag,'M1DotsERP',"top=0,left=0,scrollbars=no,status=no,fullScreen=no,width=1024,height=718");

if (obj_Popup == null) {
alert("XP SP2甫汲摹窍继嚼聪促. 瞒窜等扑诀芒阑倾侩秦林绞矫坷\n\nInternet Explorer狼皋春吝档备->扑诀瞒窜->扑诀瞒窜汲沥皋春");
}
else {
self.opener = self;
self.close();
}

//self.opener = self;
//self.close()
//window.close();
}
</script>

<SCRIPT LANGUAGE="VBScript">
sub LOGIN_Search()

Dim remoteip 'client IP 函荐
Dim outcompflag

if trim(frmlogin.userid.value)="" then
msgbox " 请输入用户名称"
elseif trim(frmlogin.pass.value)="" then
msgbox " 请输入密码"
elseif trim(frmlogin.userid.value)<>"" and trim(frmlogin.pass.value)<>"" then

' if trim(frmlogin.userid.value) <> "a00000001" and trim(frmlogin.userid.value) <> "a00000003" then
' msgbox "泅犁痢八吝涝聪促. 10盒父扁促妨林绞矫夸"
' exit sub
' end if
'client ip甫罐酒柯促.
remoteip = "<%=Request.ServerVariables("REMOTE_HOST")%>"
'msgbox remoteip

'******************************************************
'ID & PWD 犬牢
'******************************************************
'脚剧老锭.
if radio_flag = "RS" then
sSql = "select A.EmpNo, B.HEMPNM, B.DPCD,isnull(a.ResidentFlag,'N') ResidentFlag " &_
" from SY_Control..tblemp A, SY_PEOPLE..HMANHANT B" &_
" where A.EmpNo= '"& trim(frmlogin.userid.value) &"'" &_
" and A.Pwd='"& trim(frmlogin.pass.value) &"'" &_
" AND A.EMPNO = B.EMPNO"

outcompflag = "N"
'寇林诀眉老锭.
else
sSql = "select comp_no empNo,comp_name HEMPNM,'' DPCD,''isnull(a.ResidentFlag,'N') ResidentFlag " &_
" from SY_Control..tbloutcompid" &_
" where comp_no = '"& trim(frmlogin.userid.value) &"'" &_
" and comp_Pwd= '"& trim(frmlogin.pass.value) &"'" &_
" and comp_ip = '" & remoteip & "'"

outcompflag = "Y"
end if

set Rs = SelectSql_LOGIN(sSql)
'opener.document.form1.btn_sql.value = sSql
if Rs.EOF = TRUE THEN
if radio_flag = "RS" then
msgbox "你输入的用户名或密码不正确，请重新输入！"
else
msgbox "厚剐锅龋/酒捞叼/IP林家甫促矫犬牢窍咯林绞矫夸."
end if
ELSE
msgbox "欢迎" & rs("HEMPNM") & "进入Shinyang ERP系统!"
call on_form1(TRIM(rs("EmpNo") & " "),TRIM(RS("DPCD") & " "),remoteip,outcompflag,TRIM(RS("RESIDENTFLAG") & " "))
END IF
else
msgbox "用户名和密码不正确，请重新输入用户名和密码！"
end if

end sub

sub UserId_onfocusout()

if trim(frmlogin.UserId.value & " ") = "" then
exit sub
end if

'寇林诀眉老锭绰 ID甫 5磊府父涝仿且荐乐霸眉农
'if radio_flag = "RO" then
' if len(trim(frmlogin.UserId.value & " ")
'end if
'脚剧老锭.
if radio_flag = "RS" then
sSql = "select B.HEMPNM " &_
" from SY_Control..tblemp A, SY_PEOPLE..HMANHANT B" &_
" where A.EmpNo= '"& trim(frmlogin.userid.value) &"'" &_
" AND A.EMPNO = B.EMPNO"

'寇林诀眉老锭.
else
sSql = "select distinct(B.comp_name) HEMPNM " &_
" from SY_Control..tbloutcompid A, SY_CODE..TBLcompflow B" &_
" where A.comp_no = '"& trim(frmlogin.userid.value) &"'" &_
" AND A.comp_no = B.comp_no"
end if

set Rs = SelectSql_LOGIN(sSql)

if Rs.Eof = false then
frmlogin.Usernm.value = trim(Rs("HEMPNM") & " ")
else
msgbox "肋给等荤侩磊ID 涝聪促. 促矫涝仿窍矫扁官而聪促"
frmlogin.UserId.select()
frmlogin.UserId.focus()
exit sub
end if

end sub
</script>

<SCRIPT language=javascript>
var radio_flag
radio_flag = "RS"

rs_on=new Image;
rs_off=new Image;
rs_on.src= '/images/Login/radio_c.gif';
rs_off.src= '/images/Login/radio_n.gif';

ro_on=new Image;
ro_off=new Image;
ro_on.src= '/images/Login/radio_c.gif';
ro_off.src= '/images/Login/radio_n.gif';

function OnOff(name) {
var name2

frmlogin.UserId.value = ""
frmlogin.Usernm.value = ""
frmlogin.pass.value = ""

//alert (name);
if (name == "rs") {
radio_flag = "RS"
name2 = "ro";

//ID 涝仿磊府荐 ..
document.frmlogin.UserId.maxLength = '9'
} else {
radio_flag = "RO"
name2 = "rs";

//ID 涝仿磊府荐 ..
document.frmlogin.UserId.maxLength = '5'
}

if (name == "rs") {
//脚剧
ImgSrc=eval(name+'_on.src');
document[name].src=ImgSrc;
//寇林诀眉
ImgSrc=eval(name2+'_off.src');
document[name2].src=ImgSrc;
} else {
//寇林诀眉
ImgSrc=eval(name+'_on.src');
document[name].src=ImgSrc;
//脚剧
ImgSrc=eval(name2+'_off.src');
document[name2].src=ImgSrc;
}
frmlogin.UserId.focus();
}

function entercheck() {
if (event.keyCode == 13) {
event.keyCode = "";
LOGIN_Search();
}
else {
return false;
}
}
</SCRIPT>

<html>
<head>
<title>M1 ERP LOGIN</title>
<meta http-equiv='Content-Type' content='text/html'>
<link rel="stylesheet" href="/css/m1.css" type="text/css">


<style>{filter:gray}</style>
</head>

这个里面使用了些什么技术。我使用InterDev6.0使用起来很麻烦。
还有是怎么样与后台数据库连接起来的？

...全文