马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的web|程序|评价界面二(pingce.asp):在界面二中必要有八个如图的页面供先生对先生的八个尺度举行打分,在这里我创建了八个页面分离举行收罗数据,每一个页面从分值表和教员表中掏出响应的尺度和教员姓名显现并搜集数据。
bl.inc文件代码:
<%
dimnum,i,classselect,classname,student
student=request.form("textfield")
classselect=request.form("selectclass")
%>
opendb.inc文件代码:
<%
dimstrcn
onerrorresumenext
strcn="dbq="+server.mappath("jxpjdb.mdb")+";driver={microsoftaccessdriver(*.mdb)}"
setcn=server.createobject("adodb.connection")
cn.connectiontimeout=0
cn.openstrcn
%>
opendb.inc文件感化在翻开绝对路径下创建的数据库。
页面原代码以下:
<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<!--#includefile="opendb.inc"-->
<!--#includefile="bl.inc"-->
<html>
<head>
<title>先生评价中</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
</head>
<body>
<%dimtxt,txtarea,addtrue,teachname
addtrue=0
onerrorresumenext
setrs=server.createobject("adodb.recordset")
rs.pagesize=1
rs.open"select*from班级表where学号="&student,cn
dountilrs.eof
ifrs("年级")=classselectthen
addtrue=1
endif
rs.movenext
loop
ifaddtrue=0then
setcm=server.createobject("adodb.command")
setcm.activeconnection=cn
cm.commandtext="insertinto班级表(年级,学号)values(’"&classselect&"’,’"&student&"’)"
cm.execute
else
response.redirect("/error.asp")
endif
%>
<!―对上一个页面提交的先生学号举行判别,假如没有在班级表中无数据则写进一笔记录,不然已有统一个学号先生做了评价则不克不及再举行操纵à
<formname="form1"method="post"action="/sk.asp">
<tablewidth="100%"border="0"align="center">
<tr>
<tdcolspan="4"><imgsrc="http://www.163design.net/image/dfles.jpg"width="299"height="60"></td>
</tr>
<tr>
<tdcolspan="4"><h1align="center">本国语实行黉舍问卷查询拜访</h1></td>
</tr>
<tr>
<tdheight="50"colspan="4"><tablewidth="100%"border="0">
<tr>
<tdheight="21"><fontcolor="#0000CC"size="2">地点班级:</font></td>
<tdwidth="19%">
<%response.write"<fontcolor=’red’size=’2’>"
response.write(classselect)
response.write"</font>"%>
</td>
<tdwidth="29%"><divalign="right"><fontcolor="#0000CC"size="2">正在操纵的先生:</font></div></td>
<tdwidth="39%">
<%response.write"<fontcolor=’red’size=’2’>"
response.Write(student)
response.write"</font>号"
%>
&n</p>[1][2][3][4][5][6][7][8][9][10]下一页>>
写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们) |