savelogo1.asp

来自「俄罗斯方块另类.zip - 又一个俄罗斯方块的代码(转)用vc写的著名游戏俄罗斯」· ASP 代码 · 共 63 行

ASP
63
字号
<!--#include file="conn.inc"-->
<%
dim id
id=request("id")
%>
<html><head>
<style type="text/css">
<!--
table {  font-size: 9pt}
select {  font-size: 9pt}
input {  font-size: 9pt; background-color: #CCCCFF; font-weight: bold; color: #FF6633; border-style: groove}
.smallbox {  font-size: 1pt}
a:link {  font-size: 9pt; text-decoration: none; }
a:hover {  font-size: 9pt;}
body {  font-size: 9pt}
-->
</style>
<title>完成</title>
</head>
<body background=bg01.gif text="#000000">
<table width="95%" border="0" align="center" cellpadding="5" height="167">
  <tr align="center" valign="middle"> 
    <td height="128"> 
      
      <p><img src="showlogo.asp?id=<%=id%>"></p>
      </td>
  </tr>
</table>
<br>
<%
  set rs3=server.CreateObject("adodb.recordset")
  sql3="SELECT * FROM imgdata WHERE user ='"&id&"'"
  rs3.open sql3,conn,3,3
  if rs3.eof and rs3.bof then
  %><table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td colspan="2">
      <div align="center">没有传相片,当然就没法介绍了!欢迎使用麻婆豆腐同学录!</div>
    </td>
  </tr></table>
   <%else
	ltopic=rs3("topic")
	ljs=rs3("js")
	%>
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td colspan="2">&nbsp;</td>
  </tr>
  <tr> 
    <td width="23%">相片主题:</td>
    <td width="77%"><%=ltopic%></td>
  </tr>
  <tr> 
    <td colspan="2">&nbsp;</td>
  </tr>
  <tr> 
    <td>相片介绍:</td>
    <td><%=ljs%></td>
  </tr>
</table>
<%end if%>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?