源码Word格式.docx
- 文档编号:18160872
- 上传时间:2022-12-13
- 格式:DOCX
- 页数:17
- 大小:17.56KB
源码Word格式.docx
《源码Word格式.docx》由会员分享,可在线阅读,更多相关《源码Word格式.docx(17页珍藏版)》请在冰豆网上搜索。
m
IfCombo5.Text=rs("
)Then
List1.AddItemrs("
EndIf
PrivateSubCombo6_click()
Combo7.Clear
m=Combo6.Text
Combo7.AddItemrs("
PrivateSubCommand1_Click()
select*fromwuserwhereusername='
lmsak'
rs1.Opensql,cn
Ifrs1.EOF<
>
TrueThen
Ifrs1("
upass"
)=Text1.TextThen
MsgBox"
登陆成功"
64
Frame1.Visible=False
Frame2.Visible=True
Frame3.Visible=True
Else
密码错误"
16
未找到该用户的资料!
rs1.Close
PrivateSubCommand11_Click()
Dimat()AsDouble,a()AsDouble,b()AsDouble,c()AsDouble,d()AsDouble,e()AsDouble,f()AsDouble,g()AsDouble,hAsDouble
t=Combo7.Text
s=Combo6.Text
l="
re"
Mid(Combo7.Text,3,1)
t
x=rs.Fields.Count-3
n=x+1
select*fromriwhereriid="
n
ri=rs1("
ri"
ReDima(x)
ReDimat(x,x)
ReDimb(x)
ReDimc(x,x)
ReDime(x)
ReDimf(x)
ReDimg(x)
DoWhilers.EOF<
True
Ifs=rs("
class"
Fori=0Tox
w=i+2
a(i)=rs(w)'
取出数据
Nexti
Forj=0Tox
at(i,j)=a(i)/a(j)'
生成判断矩阵
Nextj
b(i)=at(i,j)+b(i)'
归一化分母计算
Fork=0Tox
c(i,k)=at(i,k)/b(i)'
归一化计算赋值
Nextk
f(i)=c(j,i)*at(i,j)+f(i)
e(i)=c(i,j)+e(i)
g(i)=f(i)/e(i)'
计算lanbuda
h=h+g(i)
ci=(h-x-1)/x
cr=ci/ri
sql="
l
rs1.CursorType=adOpenDynamic
rs1.LockType=adLockOptimistic
rs1.Opensql,cn
rs1.AddNew
rs1("
h"
)=h
cr"
)=cr
ci"
)=ci
)=rs("
rs1(w)=g(i)
rs1.Update
生成权重录入数据库成功"
h&
/"
cr,64
PrivateSubCommand12_Click()
t="
at"
a(i)=rs(i+4)'
PrivateSubCommand3_Click()
IfText4.Text<
Then
com
rs.CursorType=adOpenDynamic
rs.LockType=adLockOptimistic
rs.AddNew
rs("
)=Text4.Text
)=Combo5.Text
rs.Update
请输入问题类型"
PrivateSubCommand4_Click()
Text4.Text="
请输入问题"
PrivateSubCommand5_Click()
DimxAsString
x=List1.Text
Ifx="
请选中要删除的题目"
wherecom='
x&
IfList1.Text=rs("
rs.Delete
PrivateSubCommand7_Click()
PrivateSubForm_Load()
cn.Open"
provider=microsoft.jet.oledb.4.0;
datasource="
+Text2.Text+"
Frame2.Visible=False
Frame3.Visible=False
select*fromclass"
Combo1.AddItemrs("
Combo4.AddItemrs("
Combo6.AddItemrs("
select*fromfdy"
Combo2.AddItemrs("
fdyname"
<
%@LANGUAGE="
VBSCRIPT"
CODEPAGE="
65001"
%>
!
--#includefile="
conn.asp"
-->
%
ifrequest("
choice"
)="
then
i=0
setrs1=server.createobject("
adodb.recordset"
selectcaserequest.form("
case"
lead"
sql="
select*from[lecom]"
student"
select*from[stcom]"
accompany"
select*from[accom]"
endselect
rs1.opensql,conn,1,1
at=request.form("
cl=request.form("
com=com&
br/>
inputtype=textname=atxvalue="
&
at&
inputtype=textname=clxvalue="
cl&
dowhilenotrs1.eof
ifrequest.form("
)=rs1("
)then
i=i+1
n=right(i,3)
tr>
td>
fontcolor=red>
rs1("
)&
/font>
inputtype="
radio"
value="
1"
name="
n&
onclick="
RadioCheck(this);
/>
3"
5"
7"
9"
/td>
/tr>
endif
rs1.movenext
loop
rs1.close
%>
submit"
创建"
then
setrs=server.createobject("
select*from["
request.form("
atx"
)&
]"
rs.opensql,conn,1,3
rs.movefirst
dowhilers.eof<
true
ifrequest.form("
clx"
)=rs("
rs.delete
rs.update
endif
rs.movenext
loop
rs.addnew
)=request.Form("
i=1
dowhilei<
=10
rs("
i&
)=request.form("
i=i+1
rs.close
html>
head>
title>
admin<
/title>
metahttp-equiv="
Content-Type"
content="
text/html;
charset=gb2312"
/head>
body>
formmethod="
post"
方案层权重分配选择:
<
selectname="
onChange="
FormatText('
class'
this[this.selectedIndex].value);
option>
选择<
/option>
optionvalue="
领导<
学生<
同事<
/select>
at'
at1"
at1<
at2"
at2<
at3"
at3<
at4"
at4<
at5"
at5<
at6"
at6<
at7"
at7<
at8"
at8<
at9"
at9<
at0"
at0<
name="
value="
/>
tablewidth="
100%"
%=com%>
tdalign="
center"
/table>
/form>
/body>
/html>
bvc
DOCTYPEhtmlPUBLIC"
-//W3C//DTDXHTML1.0Transitional//EN"
http:
//www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"
htmlxmlns="
//www.w3.org/1999/xhtml"
无标题文档<
select*from[attrib]"
rs1.opensql,conn,3,2
/
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 源码