注册 登录
编程论坛 → ASP技术论坛

[求助][求助]没人能帮我一下吗？急~~~急~~~

gz52 发布于 2007-08-25 05:09， 2008 次点击

谢谢惠顾

[此贴子已经被作者于2007-9-15 16:47:52编辑过]

36 回复
#2
gz522007-08-26 11:02
#3
multiple19022007-08-26 12:51
这种学习态度 不回答也罢
#4
yms1232007-08-26 14:38

对象类
Trainees.asp
<%
Class Trainees
Private mName'姓名
Private mSex'性别
Private mSchool'学校
Private mProfessional'专业
Private mTime'时间

'类初始化
Private Sub Class_Initialize
mName=""'姓名
mSex=""'性别
mSchool=""'学校
mProfessional=""'专业
mTime=""'时间
End Sub
'填充记录集
Private Sub FillRecordSet(rsTrain)
rsTrain("Peixunjigou")=mSchool
rsTrain("Sex")=mSex
rsTrain("Kechengtitle")=mProfessional
rsTrain("baomingtime")=mTime
rsTrain("XingMing")=mName
End Sub

'读取记录集
Private Sub ReadRecordSet(rsTrain)
mName=rsTrain("XingMing")
mSchool=rsTrain("Peixunjigou")
mSex=rsTrain("Sex")
mProfessional=rsTrain("Kechengtitle")
mTime=rsTrain("baomingtime")
End Sub

'读取学员信息
Public Function ReadTrainess()
Dim rsTrain,Sql
Sql="select * from baoming Where XingMing='"&mName&"'"
Set rsTrain=conn.Execute(Sql)
IF rsTrain.EOF Then
ReadTrainess=False
Else
ReadRecordSet rsTrain
ReadTrainess=True
End IF
rsTrain.Close
Set rsTrain=Nothing
End Function
'属性过程
Public Property Let Time(vData)
mTime=vData
End Property
Public Property Get Time()
Time=mTime
End Property
Public Property Let Professional(vData)
mProfessional=vData
End Property
Public Property Get Professional()
Professional=mProfessional
End Property
Public Property Let School(vData)
mSchool=vData
End Property
Public Property Get School()
School=mSchool
End Property
Public Property Let Name(vData)
mName=vData
End Property
Public Property Get Name()
Name=mName
End Property
Public Property Let Sex(vData)
mSex=vData
End Property
Public Property Get Sex()
Sex=mSex
End Property
End Class
%>

显示界面
<!--#include file="info.asp"-->
<!--#include file="yinger.asp"-->
<!--#include file="newshoulderconn.asp"-->
<!--#include file="Trainees.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>报名学信息</title>
<style type="text/css">
.b1 {height:1px; font-size:1px; overflow:hidden; display:block; background:#5BBC2A; margin:0 5px;}
.b2 {height:1px; font-size:1px; overflow:hidden; display:block; background:red;
border-right:1px solid #5BBC2A; border-left:1px solid #5BBC2A; margin:0 3px;}
.b3 {height:1px; font-size:1px; overflow:hidden; display:block; background:red;
border-right:1px solid #5BBC2A; border-left:1px solid #5BBC2A; margin:0 2px;}
.b4 {height:2px; font-size:1px; overflow:hidden; display:block; background:red;
border-right:1px solid #5BBC2A; border-left:1px solid #5BBC2A; margin:0 1px;}
.TBStyle
.style1 {color: #FFFF00}
.style1 {
color: #FFFF00;
font-weight: bold;
font-size: 14px;
}
.style2 {font-size: 14px}
</style>
<script language="javascript">
<%
Dim ObjStu
Set ObjStu=New Trainees'创建学员对象
ObjStr.Name=trim(request("XingMing"))'设置学员姓名
IF ObjStr.ReadTrainess()=False Then
Response.Write "alert('没有该学员信息');"
End IF
%>
</script>
</head>

<body>
<table width="239" border="0" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC">
<!--DWLayoutTable-->
<tr>
<td width="239" height="4"></td>
</tr>
<tr>
<td height="4" valign="top"><b class="b1"></b><b class="b2"></b><b class="b4"></b></td>
</tr>
<tr>
<td height="13" valign="top" bgcolor="#FF0000"><div align="center" class="style1">今日部分学员报名列表</div></td>
</tr>
<tr>
<td height="5" valign="top"><b class="b4"></b><b class="b3"></b><b class="b2"></b><b class="b1"></b></td>
</tr>
<tr>
<td height="100" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="42" height="8"></td>
<td width="197"></td>
</tr>
<tr>
<td height="14" valign="top"><span class="style2">姓 名:</span></td>
<td valign="top"><span class="style2"><%=ObjStu.Name%></span></td>
</tr>
<tr>
<td height="6"></td>
<td></td>
</tr>
<tr>
<td height="14" valign="top"><span class="style2">性 别:</span></td>
<td valign="top"><span class="style2"><%=ObjStu.Sex%></span></td>
</tr>
<tr>
<td height="2"></td>
<td></td>
</tr>
<tr>
<td height="17" valign="top"><span class="style2">学 校:</span></td>
<td valign="top"><span class="style2"><%=ObjStu.School%></span></td>
</tr>
<tr>
<td height="3"></td>
<td></td>
</tr>
<tr>
<td height="16" valign="top"><span class="style2">专 业:</span></td>
<td valign="top"><span class="style2"><%=ObjStu.Professional%></span></td>
</tr>
<tr>
<td height="4"></td>
<td></td>
</tr>
<tr>
<td height="16" valign="top"><span class="style2">时 间:</span></td>
<td valign="top"><span class="style2"><%=ObjStu.Time%></span></td>
</tr>
</table></td>
</tr>
</table>
<%
Set ObjStu=Nothing
conn.Close
Set conn=Nothing
%>
</body>
</html>
#5
zhongx2007-08-26 20:33
yms123版主真是少见的高手,技术和做人的高手!
佩服!非常佩服!

楼主也是的,现在是请教不是请工仔.........
#6
gz522007-08-26 23:37

谢谢惠顾

[此贴子已经被作者于2007-9-15 16:48:54编辑过]
#7
gz522007-08-27 09:21
难道我真的被困在这里？
#8
gz522007-08-27 11:46
yms123版主去哪里了呢？问题的原委你没看到吗？还有那路的神仙会这个？
帮帮忙，好吗？
#9
multiple19022007-08-27 12:21
以下是引用zhongx在2007-8-26 20:33:24的发言：
yms123版主真是少见的高手,技术和做人的高手!
佩服!非常佩服!

楼主也是的,现在是请教不是请工仔.........

非常同意
#10
kk582007-08-27 18:01
朋友，可悲呀，求人还不如自己花钱去找个高手帮你写，我看也用了多少钱。想这些帮你？做梦吧~~~~世态炎凉，除非太阳从西边出来了~~~~~，你还等个屁呀~~~~~~~
#11
multiple19022007-08-27 19:04
请问一下，楼上的你什么意思？
#12
gz522007-08-27 20:57
怎么没人真正能帮到我呢？高手在哪呢？
#13
天涯听雨2007-08-27 21:00
哪有时间去看你那么多代码，。。提问也请简洁一些

你要实现的功能，自己是怎么思路是什么，却没有实现，然后帖一点关键性代码。且有些注释最好

这样回答者在回答时就能针对性进行方法上提示回答

不要一帖就是全部的代码。。看你的代码都晕了
#14
yms1232007-08-27 21:04

我写的那个网页是以姓名做查询的如
index_top2.asp?XingMing=邢鑫磊
因为楼主的代码里没有给出要查询的表的主键字段(比如学员编号等)，还有就是这几天忙没顾上的确抱歉。
#15
gz522007-08-27 22:56
谢谢yms123给予我极大的支持，真是十分的感谢。下面这张图片是整个数据的剪贴图，希望对你有用。
如果没错的话baomingid就是你说的主键了。
姓名：<%=xingming%>
性别：<%=sex%>
学校：<%=peixunjigou%>
专业：<%=kechengtitle%>
时间：<%=baomingtime%>

只有本站会员才能查看附件，请 登录

[此贴子已经被作者于2007-8-27 23:00:24编辑过]
#16
yms1232007-08-28 08:06
以下是引用yms123在2007-8-26 14:38:41的发言：

对象类
Trainees.asp
<%
Class Trainees
Private mID'报名ID
Private mName'姓名
Private mSex'性别
Private mSchool'学校
Private mProfessional'专业
Private mTime'时间

'类初始化
Private Sub Class_Initialize
mID=0'报名ID
mName=""'姓名
mSex=""'性别
mSchool=""'学校
mProfessional=""'专业
mTime=""'时间
End Sub
'填充记录集
Private Sub FillRecordSet(rsTrain)
rsTrain("Peixunjigou")=mSchool
rsTrain("Sex")=mSex
rsTrain("Kechengtitle")=mProfessional
rsTrain("baomingtime")=mTime
rsTrain("XingMing")=mName
End Sub

'读取记录集
Private Sub ReadRecordSet(rsTrain)
mName=rsTrain("XingMing")
mSchool=rsTrain("Peixunjigou")
mSex=rsTrain("Sex")
mProfessional=rsTrain("Kechengtitle")
mTime=rsTrain("baomingtime")
End Sub

'读取学员信息
Public Function ReadTrainess()
Dim rsTrain,Sql
Sql="select * from baoming Where baomingid="&mID
Set rsTrain=conn.Execute(Sql)
IF rsTrain.EOF Then
ReadTrainess=False
Else
ReadRecordSet rsTrain
ReadTrainess=True
End IF
rsTrain.Close
Set rsTrain=Nothing
End Function
'属性过程
Public Property Let ID(vData)
mID=vData
End Property
Public Property Get ID()
ID=mID
End Property
Public Property Let Time(vData)
mTime=vData
End Property
Public Property Get Time()
Time=mTime
End Property
Public Property Let Professional(vData)
mProfessional=vData
End Property
Public Property Get Professional()
Professional=mProfessional
End Property
Public Property Let School(vData)
mSchool=vData
End Property
Public Property Get School()
School=mSchool
End Property
Public Property Let Name(vData)
mName=vData
End Property
Public Property Get Name()
Name=mName
End Property
Public Property Let Sex(vData)
mSex=vData
End Property
Public Property Get Sex()
Sex=mSex
End Property
End Class
%>

显示界面
<!--#include file="info.asp"-->
<!--#include file="yinger.asp"-->
<!--#include file="newshoulderconn.asp"-->
<!--#include file="Trainees.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>报名学信息</title>
<style type="text/css">
.b1 {height:1px; font-size:1px; overflow:hidden; display:block; background:#5BBC2A; margin:0 5px;}
.b2 {height:1px; font-size:1px; overflow:hidden; display:block; background:red;
border-right:1px solid #5BBC2A; border-left:1px solid #5BBC2A; margin:0 3px;}
.b3 {height:1px; font-size:1px; overflow:hidden; display:block; background:red;
border-right:1px solid #5BBC2A; border-left:1px solid #5BBC2A; margin:0 2px;}
.b4 {height:2px; font-size:1px; overflow:hidden; display:block; background:red;
border-right:1px solid #5BBC2A; border-left:1px solid #5BBC2A; margin:0 1px;}
.TBStyle
.style1 {color: #FFFF00}
.style1 {
color: #FFFF00;
font-weight: bold;
font-size: 14px;
}
.style2 {font-size: 14px}
</style>
<script language="javascript">
<%
Dim ObjStu
Set ObjStu=New Trainees'创建学员对象
ObjStr.Name=trim(request("baomingid"))'设置学员姓名
IF ObjStr.ReadTrainess()=False Then
Response.Write "alert('没有该学员信息');"
End IF
%>
</script>
</head>

<body>
<table width="239" border="0" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC">
<!--DWLayoutTable-->
<tr>
<td width="239" height="4"></td>
</tr>
<tr>
<td height="4" valign="top"><b class="b1"></b><b class="b2"></b><b class="b4"></b></td>
</tr>
<tr>
<td height="13" valign="top" bgcolor="#FF0000"><div align="center" class="style1">今日部分学员报名列表</div></td>
</tr>
<tr>
<td height="5" valign="top"><b class="b4"></b><b class="b3"></b><b class="b2"></b><b class="b1"></b></td>
</tr>
<tr>
<td height="100" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="42" height="8"></td>
<td width="197"></td>
</tr>
<tr>
<td height="14" valign="top"><span class="style2">姓 名:</span></td>
<td valign="top"><span class="style2"><%=ObjStu.Name%></span></td>
</tr>
<tr>
<td height="6"></td>
<td></td>
</tr>
<tr>
<td height="14" valign="top"><span class="style2">性 别:</span></td>
<td valign="top"><span class="style2"><%=ObjStu.Sex%></span></td>
</tr>
<tr>
<td height="2"></td>
<td></td>
</tr>
<tr>
<td height="17" valign="top"><span class="style2">学 校:</span></td>
<td valign="top"><span class="style2"><%=ObjStu.School%></span></td>
</tr>
<tr>
<td height="3"></td>
<td></td>
</tr>
<tr>
<td height="16" valign="top"><span class="style2">专 业:</span></td>
<td valign="top"><span class="style2"><%=ObjStu.Professional%></span></td>
</tr>
<tr>
<td height="4"></td>
<td></td>
</tr>
<tr>
<td height="16" valign="top"><span class="style2">时 间:</span></td>
<td valign="top"><span class="style2"><%=ObjStu.Time%></span></td>
</tr>
</table></td>
</tr>
</table>
<%
Set ObjStu=Nothing
conn.Close
Set conn=Nothing
%>
</body>
</html>

index_top2.asp?baomingid=1

修改后的程序url访问形式，用报名ID做查询即可。
#17
gz522007-08-28 13:22

yms123真的很感谢你，可能你并没有完全了解我的意思，我是意思是：index_top2.asp这个文件的源码应该写成:把数据库里的最新几条记录读出来，然后再用JS的方法在页面显示成滚动。JS的滚动代码已经写在主页的代码里面了，只要你把index_top2.asp的代码写成自动读取数据库报名信息然后能自动更新就可以了。
#18
multiple19022007-08-28 13:42
那你做什么呢？
#19
gz522007-08-28 14:15
这些都是别人教给我的方法，我根本就没接触过代码之类的东西，所以各路英雄出来帮帮忙，我想在帮别人的同时自己也可以学到不少东西吧。就像我这个看起来很简单的问题问了两个多月都没解决，你说是会是什么问题呢？
#20
jamesxiaoyao2007-08-28 15:10

要读取最新的记录 就用下SQL
"SELECT top *(你要读取的记录数) *(字段名多个中间用，隔开“*”表示全部) from 表明 order by id(编号) desc"
#21
gz522007-08-28 15:58
那楼上的朋友是否可以帮到我呢？我的就是MS SQL数据库。麻烦加393080155详细聊聊
#22
yms1232007-08-29 07:40
以下是引用gz52在2007-8-28 13:22:04的发言：

yms123真的很感谢你，可能你并没有完全了解我的意思，我是意思是：index_top2.asp这个文件的源码应该写成:把数据库里的最新几条记录读出来，然后再用JS的方法在页面显示成滚动。JS的滚动代码已经写在主页的代码里面了，只要你把index_top2.asp的代码写成自动读取数据库报名信息然后能自动更新就可以了。

所有信息还是全部信息？
#23
gz522007-08-29 12:30

读取的就是这这几条信息：
姓名：<%=xingming%>
性别：<%=sex%>
学校：<%=peixunjigou%>
专业：<%=kechengtitle%>
时间：<%=baomingtime%>

[此贴子已经被作者于2007-8-29 12:41:35编辑过]
#24
qhscqb2007-08-29 12:57
回复：（kk58）朋友，可悲呀，求人还不如自己花钱去找...
kk58怎么说话的,版主不是帮过忙吗?如果我是管理员,我就踢你,像你这样的人也成不了什么高手,还不要脸地到这里来骂人.我本不想说什么,但实在让人气愤.我少说在这里有几个月了,还没见过你这样的人.
你做版主试试,我选你,大家都选你,版主=技术+人品+耐心,这些你有吗?
这里的每个人也是从一无所知学起,不会提问也是常情,何必说些伤人的话.也许我批评不当,但推心置腹.我想只要来到这里,大家就是伙伴,也许是朋友,所以应该相互理解.

以上是我个人想法,我为版主们声张正义!
#25
hxm04232007-08-29 17:26
支持楼上的说法,我也是在这里找到了好老师的,这里的人都很热情,不回答你的问题及没有按照你的意思回答也情理当中,又不是跟你打工仔,你是请教明白不SB.........
#26
gz522007-08-29 17:31
我的问题咋没人回复？？
等待中~~~~
#27
yms1232007-08-29 21:49
问题是只读取数据库中其中一条记录还是全都读取出来，然后滚动显示？
#28
multiple19O22007-08-30 00:38
以下是引用qhscqb在2007-8-29 12:57:51的发言：
kk58怎么说话的,版主不是帮过忙吗?如果我是管理员,我就踢你,像你这样的人也成不了什么高手,还不要脸地到这里来骂人.我本不想说什么,但实在让人气愤.我少说在这里有几个月了,还没见过你这样的人.
你做版主试试,我选你,大家都选你,版主=技术+人品+耐心,这些你有吗?
这里的每个人也是从一无所知学起,不会提问也是常情,何必说些伤人的话.也许我批评不当,但推心置腹.我想只要来到这里,大家就是伙伴,也许是朋友,所以应该相互理解.

以上是我个人想法,我为版主们声张正义!

无需激动。
有些人在社区里实在……对社区伤害很大
遇到问题就来了，自己有心得就不来了 鄙视这种人

最要命的，是又不给钱还对别人要求这要求那，甚至于根本不用脑子去想的。

yms123版主太热心了吧
#29
gz522007-08-30 01:34
回复：（yms123）问题是只读取数据库中其中一条记录还...
就是把里面的这些内容都读出来：姓名，性别，学校，专业，时间
姓名：<%=xingming%>
性别：<%=sex%>
学校：<%=peixunjigou%>
专业：<%=kechengtitle%>
时间：<%=baomingtime%>

也许multiple19O2说得很对，yms123老大实在是太热心了，但是对于一个根本没学过这门东西的我来说会是一个怎样的考验呢？就好比如老汉看英文，有头发没人想做XX的。（XX就是广东人常说的,两个字我不会写）,反正生存在这个世界上没有说明什么人可以帮，什么人不可以帮。最重要的就是可以表明一个人的心态。就像毛主席说过的一句话：你没什么就没有发言权。（这个没有什么又忘记了）

总之一句话，帮别人，帮自己，始终受益的还是自己。

非常感谢帮助我的人和想帮助我的人

好人一生平安~~~~~~~~~
#30
multiple19O22007-08-30 04:24
以下是引用gz52在2007-8-30 1:34:30的发言：
就是把里面的这些内容都读出来：姓名，性别，学校，专业，时间
姓名：<%=xingming%>
性别：<%=sex%>
学校：<%=peixunjigou%>
专业：<%=kechengtitle%>
时间：<%=baomingtime%>

也许multiple19O2说得很对，yms123老大实在是太热心了，但是对于一个根本没学过这门东西的我来说会是一个怎样的考验呢？就好比如老汉看英文，有头发没人想做XX的。（XX就是广东人常说的,两个字我不会写）,反正生存在这个世界上没有说明什么人可以帮，什么人不可以帮。最重要的就是可以表明一个人的心态。就像毛主席说过的一句话：你没什么就没有发言权。（这个没有什么又忘记了）

总之一句话，帮别人，帮自己，始终受益的还是自己。

非常感谢帮助我的人和想帮助我的人

好人一生平安~~~~~~~~~

帮别人，帮自己，始终受益的还是自己。

这话你说出来不觉得丢人？
#31
gz522007-08-30 07:34
回复：（multiple19O2）以下是引用gz52在2007-8-30 1:...
也许有人会说说这样话的人不是疯子就是傻子，但是如果真的问到自己良心的话，我希望你自己凭着自己的良心说一句，如果你帮我了，难道你就连一点好处也没有吗？难道你不觉得你现在有点像KK58一样了吗？我承认自己是笨，这么简单的一个代码也不是会写，但我知道这天底下始终还是会有好人的…………

问题你完全可以不帮我解决，但是做人的道理我希望你能够明白

简单来说很简单：搬弄人家是非的时候想下自己

《温故而知新，可以为师矣》

[此贴子已经被作者于2007-8-30 7:36:49编辑过]
#32
kk582007-08-31 14:21
我说得没错吧，像这鬼地方哪有人会呢？我也非常讨厌那些自扮清高的傢伙~~~~
#33
gz522007-09-01 03:45
我的心在等待，我心在等待~~~~~~~~~~~``
怎么没人帮我呢？是不是我说错什么了呢？~~~~~~
如果是我说错了什么，敬请大家原谅，好吗？
我也是有那句说那句，希望大家不要见怪~~~~~~~
#34
gz522007-09-01 03:47
全是楼上KK58惹的祸~~~~~~~~
#35
multiple19022007-09-01 07:07

—使用含义丰富，描述准确的标题—

主题标题非常重要，这样才能吸引别人的注意力。别用喋喋不休的“帮帮忙”、“救命啊”之类的标题来浪费机会。不要妄想用你的痛苦程度来打动别人，更休想用类似“小女子遇到困难了”、“哪位哥哥来救救可怜的妹妹我啊”之类的标题来“勾引”视线。还有一类标题也是要不得的：“某某版主，进来帮我看看啊”！别人会想，哦，这人指名让版主帮他解决，版主肯定比我厉害，我进去要是万一回答不准确的话，岂不是自讨没趣？
你得记住，你来这里是向每一个人求助的，而不是某一个人。

例：错误提问：救命啊！我的电脑有毛病了！
　　正确提问：我的电脑开机后就自动重启，请各位指点。

—别问应该自己解决的问题—

高手们往往善于分辨哪些问题应该由你自己解决。因为他们中的大多数都曾自己解决这类问题。现在，这些问题得由你来搞定。你会从中学到东西。你可以要求给点提示，但别要求得到完整的解决方案。

—还是没得到很好的答案—

首先你应该有这样一个概念：没有人有义务一定要帮助你。决不要自以为够资格得到答案，你没这种资格。毕竟你没有为这种服务支付任何报酬。你要自己去“挣”回一个答案，而不仅仅是被动的从他人处索要知识。
没有回应不代表你被忽视，或许只是看过你的问题的人不知道答案，也或许别人正在帮着你想答案。总之，不要气馁，说不定明天再来看帖，你会发现问题已经有人作出了回答。

#36
hehe3652007-09-01 09:11

#37
gz522007-09-01 10:24
非常感谢multiple1902的这番语重心长的话，如果我一个问题都用了几个标题是不是显示有点什么了吧~~~
1
©2025, BC-CN.NET
电脑版