香草逸荷

<script> function changecolor() {
var k=0;
var el=document.getElementsByTagName(”input”);
for (var i=0;i<el.length;i++ ){
var b=el[i]; if (b.checked==true) {
var n=b.name; k=n.charAt(10);
var x=”x”+k; document.getElementById(x).style.background=”red”;
}
}
< /script >
<form name=”form1″>
<p >
<input type=”radio” name=”RadioGroup1″ onclick=”changecolor()” value=”单选” /> 单选1 <input type=”radio” name=”RadioGroup1″ onclick=”changecolor()” value=”单选” /> 单选1</p>
<p>
<input type=”radio” name=”RadioGroup2″ onclick=”changecolor()” value=”单选” /> 单选2 <input type=”radio” name=”RadioGroup2″ onclick=”changecolor()” value=”单选” /> 单选2</p>
<p>
<input type=”radio” name=”RadioGroup3″ onclick=”changecolor()” value=”单选” /> 单选3 <input type=”radio” name=”RadioGroup3″ onclick=”changecolor()” value=”单选” /> 单选3
</p>
</form>
<table width=”200″ border=”1″>
<tr>
< td id=”x1″ bgcolor=”#0000FF”>
</td>
<td id=”x2″ bgcolor=”#0000FF”>
</td> <td id=”x3″ bgcolor=”#0000FF”>
</td>
</tr>
</table>

阅读(86 次)

最近因为需要用到ASP,不得不学点基本的东西,写得郁闷之余随便做了小抄贴上来……..pagination.asp:
<!–#include file=”include/conn.asp”–>
<%
Set rs = Server.CreateObject(”ADODB.Recordset”)
sql =”select content from question”
rs.open sql,conn,1,3

if rs.recordcount>0 Then ‘ 记录集不为空则处理记录
rs.pagesize = 5 ‘ 设置每页显示的记录数
num=rs.recordcount ‘ 记录总数
pagenum=rs.pagecount ‘ 页总数
page=request(”page”) ‘ 获取页码的原始信息
‘ 处理页码原始信息的开始！
If page <> “” then
page = cint(page)
if err.number <> 0 then
err.clear
page = 1
end if
if page < 1 then
page = 1
end if
else
page = 1
End if
if page*rs.pagesize > num and not((page-1)*rs.pagesize < num)then
page=1
end if
‘ 处理页码原始信息的结束！设置当前页码
rs.absolutepage = page
%>
<%’判断当前页是否是最后一页，并根据判断设置记录的重复显示%>
<% if page<>pagenum then
lablenum=rs.pagesize
else
lablenum=num-(page-1)*rs.pagesize
end if
if page=1 then
i=1
else
i=lablenum*page-4
end if
response.write “<form id=’Tform’ name=’Tform’ method=’post’ action=’mark.asp’>”
for j=1 to lablenum
str=rs(”content”)
str1=Replace(str,”A)”,”<input type=’radio’ name=’radiogroup”+CStr(i-1)+”‘ value=’A'> A)”)
str2=Replace(str1,”B)”,”<input type=’radio’ name=’radiogroup”+CStr(i-1)+”‘ value=’B'> B)”)
str3=Replace(str2,”C)”,”<input type=’radio’ name=’radiogroup”+CStr(i-1)+”‘ value=’C'> C)”)
str4=Replace(str3,”D)”,”<input type=’radio’ name=’radiogroup”+CStr(i-1)+”‘ value=’D'> D)”)
i=i+1
response.write “<p>”+str4+”</p>”
rs.movenext
Next
end if

if page=pagenum then
response.write “<input type=’submit’ name=’submit’ value=’交卷’ />”
response.write “</form>”
end if
rs.close
set rs=nothing
%>
<table width=”500″ border=”1″>
<tr>
<td>共有<%=num%>题 |当前是<%=page%>/<%=pagenum%>页 | 共<%=pagenum%>页</td>
<td><a href=”pagination.asp?page=1″>首页</a></a>
<label></label></td>
<td><%if page>1 then%>
<a href=”pagination.asp?page=<%=page-1%>”>
<%end if%>
上一页</a></a></td>
<td><%if page<pagenum then%>
<a href=”pagination.asp?page=<%=page+1%>”>
<%end if%>
下一页</a></a></td>
<td><a href=”pagination.asp?page=<%=pagenum%>”>尾页</a></td>
</tr>
</table>

阅读(79 次)

第一章：一个目标：一艘没有航行目标的船，任何方向的风都是逆风

1、你为什么是穷人，第一点就是你没有立下成为富人的目标

2、你的人生核心目标是什么？杰出人士与平庸之辈的根本差别并不是天赋、机遇，而在于有无目标。

3、起跑领先一步，人生领先一大步：成功从选定目标开始

4、贾金斯式的人永远不会成功 为什么大多数人没有成功？真正能完成自己计划的人只有5%，大多数人不是将自己的目标舍弃，就是沦为缺乏行动的空想

5、如果你想在35岁以前成功，你一定在25至30岁之间确立好你的人生目标 (more…)

阅读(85 次)