ios 支付宝应用内支付:帮我改下这代码

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/04 12:38:50
<!--#include file="conn.asp"-->

<%
if session("logined")=false then
response.redirect("goin.asp")
end if
dim rs
dim sql
msg_per_page = 20
set rs = server.createobject("adodb.recordset")
sql="select * from photo order by num DESC"
rs.cursorlocation = 3

rs.pagesize = msg_per_page
rs.open sql,conn,0,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="css.css" rel="stylesheet" type="text/css">

<title>4455</title>

</head>

<body>
<table width="787" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="236" height="64" rowspan="2"><img name="txljpg_r3_c4" src="images/txljpg_r3_c4.gif" width="236" height="40" border="0" alt="" /></td>
<td width="554" height="25" colspan="3"> 
<!--#include file="hello.asp"--></td>
</tr>
<tr>
<td height="22" colspan="3" align="right"><form action="login.asp" method=post>
  
<a href=out.asp><font color="#FF0000">走时别忘了点这里退出</a>
</form></td>
</tr>
<tr>
<td height="118" colspan="5"><img name="txljpg_r5_c5" src="images/txljpg_r5_c5.gif" width="790" height="110" border="0" alt="" /></td>
</tr>
<tr>
<td height="30" colspan="5" align="center" valign="top">  <a href="index.asp"><img name="txlgif_r5_c2" src="images/txlgif_r5_c2.gif" width="130" height="23" border="0" alt="" /></a>   <a href="chat/index.asp"><img name="txlgif_r6_c2" src="images/txlgif_r6_c2.gif" width="124" height="23" border="0" alt="" /></a>   <a href="photo.asp"><img name="txlgif_r7_c2" src="images/txlgif_r7_c2.gif" width="126" height="24" border="0" alt="" /></a>   <a href="update.asp"><img name="txlgif_r9_c2" src="images/txlgif_r9_c2.gif" width="127" height="24" border="0" alt="" /></a>   <a href="info.asp"><img name="txlgif_r10_c2" src="images/txlgif_r10_c2.gif" width="129" height="24" border="0" alt="" /></a> </td>
</tr>

<tr>
<td height="709" colspan="5"><table width="788" height="688" border="1">
<tr>
<td height="470" align="left" valign="top"><p><img src="images/bjxc.gif" width="780" height="40"><div align="center">【<a href="uploadimg.asp">上传照片</a>】
<table width=90% border=0 cellspacing=1 cellpadding=6 align=center>
<%
if err.number<>0 then
response.write "数据库操作失败:" & err.description
err.clear
else
if not (rs.eof and rs.bof) then
totalrec = RS.RecordCount
if rs.recordcount mod msg_per_page = 0 then
n = rs.recordcount\msg_per_page
else
n = rs.recordcount\msg_per_page+1
end if

currentpage = request("page")
If currentpage <> "" then
currentpage = cint(currentpage)
if currentpage < 1 then
currentpage = 1
end if
if err.number <> 0 then
err.clear
currentpage = 1
end if
else
currentpage = 1
End if

改成什么呀?