FindPic fanyeX,fanyeY,fanye1X,fanye1Y,"Attachment:\12.bmp",1,intX3,intY3
FindPic fanyeX,fanyeY,fanye1X,fanye1Y,"Attachment:\21.bmp",1,intX4,intY4
FindPic fanyeX,fanyeY,fanye1X,fanye1Y,"Attachment:\321.bmp",1,intX1,intY1
If intX1 > 0 And intY1 > 0 Then
Call shouye()
ElseIf intX2 > 0 And intY2 > 0 Then
Call xiayiye()
ElseIf intX3 > 0 And intY3 > 0 Then
Call xiayiye（）
ElseIf intX4 > 0 And intY4 > 0 Then
Call shouye()
Else
MessageBox "没有找到图片"
End If
完成。
stm32按下按键换到下一页如下。STM32CubeIDE快捷键很多，可以通过 Help >Show Active Keybindings… 查看当前可用快捷键；也可以在 Window >Preferences >General >Keys 中查看修改快捷键。<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%><!--#include file="adovbs.inc"-->
<%
Dim Cnn, StrCnn
Set Cnn = Server.CreateObject("ADODB.Connection")
StrCnn = "driver={SQL server}server=127.0.0.1UID=saPWD=DATABASE=test"
Cnn.Open StrCnn
Dim rs,StrSQL
Set rs = server.CreateObject("ADODB.Recordset")
StrSQL = "select ID,Name,English_Name,case Sex when '0' then 'Male' else 'Female' end Sex,TelePhone_NO,"
StrSQL = StrSQL &"case Department_NO when '0' then 'BOI100' when '1' then 'B0R100' when '2' then 'B0R200' else 'B0R300' end Department_NO ,Hometown "
StrSQL = StrSQL &" from TBL_2006Member"
rs.Open StrSQL, Cnn,adopenstatic
%>
<html>
<head>
<title>prdshow</title>
<meta http-equiv="Content-Type" content="text/htmlcharset=big5">
</head>
<body>
<%
rs.pagesize=5
page=clng(request("page"))
if page<1 then page=1 end if
if page>rs.pagecount then page=rs.pagecount end if %>
<p>Aopen2006校招新人资料：</p><table width="75%" border="1">
<tr>
<td>工号</td>
<td>中文名</td>
<td>英文名</td>
<td>性别</td>
<td>分机号码</td>
<td>部门</td>
<td>籍贯</td>
</tr>
<%
rs.absolutepage=page
for ipage=1 to rs.pagesize
%>
<tr>
<td><% =rs("ID") %></td>
<td><% =rs("Name") %></td>
<td><% =rs("English_Name") %></td>
<td><% =rs("Sex") %></td>
<td><% =rs("Telephone_NO") %></td>
<td><% =rs("Department_NO") %></td>
<td><% =rs("HomeTown") %></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
%>
</table>
<%
if page<>1 then
response.write "<a href=prdshow.asp?page=1>第一页</a>"
response.write "<a href=prdshow.asp?page="&(page-1) &">上一页</a>"
end if
if page<>rs.pagecount then
response.write "<a href=prdshow.asp?page=" &(page+1) &">下一页</a>"
response.write "<a href=prdshow.asp?page=" &rs.pagecount &">最后一页</a>"
end if
%>
<div align=center><p>
<form >
输入页面<select name="page">
<%i=1
do while i<rs.pagecount+1
%>
<option><%=i%>
<%
i=i+1
loop%>
</select>
<input type="submit" value="GO">
</form>
页次：<font color="blue"><%=page%>/<%=rs.pagecount%></font>
</p></div>
</body>
</html>
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）