?? setup.asp
字號:
<%@LANGUAGE="VBScript"%>
<!--#include file="conn.asp"-->
<link rel="stylesheet" href="style.css" type="text/css">
<%
'程序：王星亮 網(wǎng)名：血飲狂刀 國外的叫我LANBOO
'OICQ：40001
'EMAIL：webmaster@xytime.com
'我是什么都有，您想要我開發(fā)什么程序，盡管說。只要價格合理就行。
'我電話：13308715776 0871-3394913
response.expires = 0
AddTime=now
AddIp=request.servervariables("remote_addr")
gpy=request("gpy")
if gpy="" then
Query="select * from MyOper where OperType=4"
set sql=conn.Execute(Query)
if sql.eof then
ShowUnitHtml
else
ShowCheckHtml
end if
elseif gpy="CheckOk" then
NewLoginName=request("NewLoginName")
NewPasswd=request("NewPasswd")
Query="select * from MyOper where OperType=4 and LoginName='"&NewLoginName&"'"
set sql=conn.Execute(Query)
if sql.eof then Back("錯誤：管理員帳號不對！")
if sql("LoginPWD")<>Encrypt(NewPasswd) then Back("錯誤：管理員密碼不對！")
ShowUnitHtml
elseif gpy="AddUnit" then
DeptName=request("NewDeptName")
DeptId=GetID("select max(ID)+1 from MyDept")
Query="Insert into MyDept values("&DeptId&",'"&DeptName&"','系統(tǒng)初始化',0,'-','-','0','1','"&AddIp&"',#"&AddTime&"#)"
conn.Execute(Query)
ShowHtml
elseif gpy="Add" then
OperName=request("NewOperName")
NewLoginName=request("NewLoginName")
NewPasswd=request("NewPasswd")
Explain=request("Explain")
DeptId=request("DeptId")
Query="insert into MyOper values("&GetID("select max(ID)+1 from MyOper")&",'"&OperName&"','"&Explain&"','"&NewLoginName&"','"&Encrypt(NewPasswd)&"',"&DeptId&",4,0,'"&AddIp&"',#"&AddTime&"#,100)"
conn.Execute(Query)
%>
<script language='javascript'>
alert('恭喜：系統(tǒng)初始化成功！');
window.location.href = "workmng.asp";
</script>
<%
end if
sub ShowHtml
HtmlHead("系統(tǒng)初始化:第二步，輸入用戶帳號")
%>
<SCRIPT language=JavaScript>
<!--
function checkvalue() {
aa=document.form1
if (aa.NewOperName.value=="") {
window.alert ("請輸入管理員姓名!"); aa.NewOperName.focus();return false}
if (aa.NewLoginName.value=="") {
window.alert ("請輸入管理員登錄名!"); aa.NewLoginName.focus();return false}
if (aa.NewPasswd.value=="") {
window.alert ("請輸入管理員密碼!"); aa.NewPasswd.focus();return false}
if (aa.NewPasswd.value != aa.VerPasswd.value ) {
window.alert ("管理員兩次密碼不相同!"); aa.VerPasswd.focus();return false}
SubmitOK()
}
function SubmitOK(){
if ( confirm("要進(jìn)行系統(tǒng)初始化嗎？")) {
form1.submit();}
}
//-->
</SCRIPT>
<form name=form1 action="<%=request.servervariables("SCRIPT_NAME")%>" method="POST" >
<table width="500" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#7C7C7C" bordercolordark="#FFFFFF">
<tr bgcolor=rgb(214,211,206) align=center>
<td colspan=2>管理員</td>
</tr>
<tr>
<td width="10%" bgcolor="#FFFFFF" align="right">姓 名：</td>
<td width="90%" bgcolor="#FFFFFF" align="left" colspan=3>
<input type=text name="NewOperName">
</td>
</tr>
<tr>
<td width="10%" bgcolor="#FFFFFF" align="right">登 錄 名：</td>
<td width="90%" bgcolor="#FFFFFF" align="left" colspan=3>
<input name="NewLoginName" size="50" value='<%=aa%>'>
</td>
</tr>
<tr>
<td width="10%" bgcolor="#FFFFFF" align="right">密 碼：</td>
<td width="90%" bgcolor="#FFFFFF" align="left"><input type="password" name="NewPasswd" size="50" value=''></td>
</tr>
<tr>
<td width="10%" bgcolor="#FFFFFF" align="right">校驗密碼：</td>
<td width="90%" bgcolor="#FFFFFF" align="left" colspan=3>
<input type="password" name="VerPasswd" size="50" value=''>
</td>
</tr>
<tr>
<td width="10%" bgcolor="#FFFFFF" align="right">性 別：</td>
<td width="90%" bgcolor="#FFFFFF" align="left">
<INPUT type="radio" name="Explain" value="男" checked>男 <INPUT type="radio" name="Explain" value="4">女
</td>
<tr align=center>
<td colspan=4>
<input style="font-family: 宋體; font-size: 10.5pt; background-image: url('images/task.gif'); background-repeat: no-repeat; border: 1px ridge; background-position: left center" type="button" value=" 完成" name="okbtn" onClick="return checkvalue()">
<input type=hidden name="gpy" value="Add">
<input type=hidden name="DeptId" value="<%=DeptId%>">
<input style="font-family: 宋體; font-size: 10.5pt; background-image: url('images/task.gif'); background-repeat: no-repeat; border: 1px ridge; background-position: left center" type="button" value=" 放棄" name="okbtn" onClick="window.close();">
</td>
</tr>
</table>
</form>
<%
HtmlEnd
end sub
sub ShowCheckHtml
HtmlHead("用戶認(rèn)證")
%>
<SCRIPT language=JavaScript>
<!--
function checkvalue() {
aa=document.form1
if (aa.NewLoginName.value=="") {
window.alert ("請輸入管理員登錄名!"); aa.NewLoginName.focus();return false}
if (aa.NewPasswd.value=="") {
window.alert ("請輸入管理員密碼!"); aa.NewPasswd.focus();return false}}
//-->
</SCRIPT>
<form name=form1 action="<%=request.servervariables("SCRIPT_NAME")%>" method="POST" >
<table width="200" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#7C7C7C" bordercolordark="#FFFFFF">
<tr bgcolor=rgb(214,211,206)>
<td colspan=2>管理員</td>
</tr>
<tr>
<td width="10%" bgcolor="#FFFFFF" align="right">用 戶 名：</td>
<td width="90%" bgcolor="#FFFFFF" align="left">
<input type=text name="NewLoginName">
</td>
</tr>
<tr>
<td width="10%" bgcolor="#FFFFFF" align="right">密 碼：</td>
<td width="90%" bgcolor="#FFFFFF" align="left">
<input type=password name="NewPasswd">
</td>
</tr>
<tr align=center>
<td colspan=2>
<input style="font-family: 宋體; font-size: 10.5pt; background-image: url('images/task.gif'); background-repeat: no-repeat; border: 1px ridge; background-position: left center" type="submit" value=" 確定" name="okbtn" onClick="return checkvalue()">
<input type=hidden name="gpy" value="CheckOk">
<input style="font-family: 宋體; font-size: 10.5pt; background-image: url('images/task.gif'); background-repeat: no-repeat; border: 1px ridge; background-position: left center" type="button" value=" 放棄" name="okbtn" onClick="window.close();">
</td>
</tr>
</table>
</form>
<%
HtmlEnd
end sub
sub ShowUnitHtml
DelAll
HtmlHead("系統(tǒng)初始化:第一步，輸入部門名稱")
%>
<SCRIPT language=JavaScript>
<!--
function checkvalue() {
aa=document.form1
if (aa.NewDeptName.value=="") {
window.alert ("請輸入部門名稱!"); aa.NewDeptName.focus();return false}}
//-->
</SCRIPT>
<form name=form1 action="<%=request.servervariables("SCRIPT_NAME")%>" method="POST" >
<table width="300" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#7C7C7C" bordercolordark="#FFFFFF">
<tr>
<td bgcolor="<%=TableTopBg%>" colspan=2> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width=70>部門名稱：</td>
<td bgcolor="#FFFFFF" align="left">
<input type=text name="NewDeptName" size=30>
</td>
</tr>
<tr align=center>
<td colspan=2>
<input style="font-family: 宋體; font-size: 10.5pt; background-image: url('images/task.gif'); background-repeat: no-repeat; border: 1px ridge; background-position: left center" type="submit" value=" 下一步" name="okbtn" onClick="return checkvalue()">
<input type=hidden name="gpy" value="AddUnit">
<input style="font-family: 宋體; font-size: 10.5pt; background-image: url('images/task.gif'); background-repeat: no-repeat; border: 1px ridge; background-position: left center" type="button" value=" 放棄" name="okbtn" onClick="window.close();">
</td>
</tr>
</table>
</form>
<%
HtmlEnd
end sub
sub DelAll
conn.Execute("delete from GpyLeaveLog")
conn.Execute("delete from MyOper")
conn.Execute("delete from GpyModiLog")
conn.Execute("delete from GpyWorkLog")
conn.Execute("delete from MyDept")
conn.Execute("delete from MyOper")
end sub
'程序：王星亮 網(wǎng)名：血飲狂刀 國外的叫我LANBOO
'OICQ：40001
'EMAIL：webmaster@xytime.com
'我是什么都有，您想要我開發(fā)什么程序，盡管說。只要價格合理就行。
'我電話：13308715776 0871-3394913
%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -