春节义务帮人写了一个《求签在线查询》(ASP)

置顶 于 2009-02-11 21:04:00 发布
阅读量475 收藏
点赞数
分类专栏： 山寨ASP 文章标签： asp border input div date session
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/liucunjian2009/article/details/3878705
版权

点击：http://webds.sz800.cn/wg2009.asp看效果

 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<meta http-equiv="content-type" content="text/html;charset=gb2312">
<title>《王公灵签在线查询》(Ver 2009.02.07)</title>
<style type="text/css">
body{margin:0px;background:brown;font-size:12px;}
#welcome{position:absolute;width:660px;height:440px;background:url(wgimage/welcome.jpg);
         top:50%;left:50%;margin-top:-220px;margin-left:-330px;}
#inputdiv{margin-left:300px;margin-top:100px;color:gray;font-size:12px}

#inputdiv hr{width:200px;text-align:left;}
#inputdiv input{border:0px;border-bottom:1px solid gray;font-size:5em;
          color:red;width:64px;margin-bottom:-20px;}
#inputdiv span{font-size:3em;}
#inputdiv a {color:red;}
#inputdiv input.button { border:1px solid gray;font-size:12px;
                         border-right:1px solid black;border-bottom:1px solid black;
                         padding:2px;}
#big {position:absolute;padding-left:54px;top:14px;}
#left {background:url(wgimage/l.gif); repeat:none;width:13px;height:548px;float:left;}
#mid {background:url(wgimage/m.gif);background-repeat:repeat-x;
      width:740px;height:548px;
      white-space:nowrap; display:block;
      color:black;font-family:楷体;
      font-size:17px;
      padding-top:44px;
      float:left;
      }
#mid span{color:red;font-weight:bold;}
#mid span.t1{font-size:30px;color:maroon;font-weight:bold;}
#right{background:url(wgimage/r.gif);width:96px;height:548px;}
.ret{border:1px solid white;font-size:12px;
                         border-right:1px solid black;border-bottom:1px solid black;
                         padding:2px;background:orange;color:brown;}
p{
writing-mode: tb-rl; padding:0px;margin:0px;
}
</style>
</head>
<%
'自定义函数部分
dim oConn,oRS,islogin,totalcount,todatcount
dim thisYear,allYear,allAbout
zdm=split("签号|卦类|签诗|诗曰|家宅|岁君|求财|移居|月令|谋事|六甲|婚姻|合夥|山坟|官讼|占病|失物|行人|海水|田蚕|功名|出外|遇风|六畜|子息","|")
islogin = False
Sub DBOpen(dbname)
 Set oConn = Server.CreateObject("ADODB.Connection")
 oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= '" & Server.MapPath(".") & dbname & "'"
 Set oRs = Server.CreateObject( "ADODB.Recordset" )
End Sub
Sub DBClose()

 On Error Resume Next
 oRs.Close
 Set oRs = Nothing
 oConn.Close
 Set oConn = Nothing
End Sub

function getzw(n)
 zw=split("一|二|三|四|五|六|七|八|九|拾","|")
 if n<=10 then
  getzw = zw(n-1)
 end if  
 
 if n>10 and n<20 then
   a = int(n/10)
   b = n - a*10
   getzw = "十"+zw(b-1)
 end if
 
 if n>=20 then
   a = int(n/10)
   b = n - a*10
   if b<>0 then
   getzw =zw(a-1)+"十"+zw(b-1)
   else
   getzw =zw(a-1)+"十"
   end if
 end if
 
end function
Dbopen("/TEST.mdb")
oRS.open "SELECT * FROM ncount",oConn,1,3
if Session("nowvisit")<>"Y" then
   Session("nowvisit")="Y"
   oRS("统计")=oRS("统计")+1
   oRS("今日统计")=oRS("今日统计")+1
   if date > oRS("日期") then
       oRS("日期") = date
       oRS("今日统计")=0
   end if
   oRS.update
end if
   totalcount=oRS("统计")
   todaycount=oRS("今日统计")
dbclose
xs=request.form("xs")
%>
<body>
<% if request.form("xs")<>"显示" then %>
<div id="welcome">
  <div id="inputdiv">
  鸣谢：对以下帮助录入的网友：<br>
        成诚、花友友、WESLEE、<br>
        赞赞就是我、梅川内酷、<br>
        haitan138等表示衷心感谢！ <br>
  <br>
  <hr>
  请输入你要查询的签号(1-51)：<br>
  <form name="sc" METHOD="POST" action="wg2009.asp">
  <span>第</span>
  <input type="text" value="34" name="qh" maxlength="2"
   οnfοcus="this.select()"
   οnkeyup='if(this.value!="")
            {re=//d/g;if(!re.test(this.value)){alert("只能输入1-51中的数字！");this.value="";}}
            if(parseInt(this.value)>51||parseInt(this.value)<1)
   {alert("只能输入1-51中的数字！");this.value="";}'>
  <span>签</span><br><br>&nbsp;&nbsp;&nbsp;&nbsp;
  <input type="hidden" value="显示" name="xs">
  <input type="submit" value="点击查询" class="button">
  <br><br><br><br><br>
  统计：<font color=red><%=totalcount%></font>&nbsp;今日：<font color=red><%=todaycount%></font>
  (<%=date%>)
  </form>
  </div>
 <% end if
    if request.form("xs")="显示" then
     if request.form("qh")="" then %>
   <script language="javascript">alert("请输入1-51中的数字！");history.go(-1);</script>
  <% end if
  %>
</div>
   <div id="big">
   <div id="left"></div>
   <div id="mid">
<p>
   <%
   if request.form("qh")<>"" then
      Dbopen("/TEST.mdb")
      oRS.open "SELECT * FROM content where 签号='"&request.form("qh")&"'",oConn,1,3
     if not oRS.eof then
   %><span class="t1">第<%=getzw(oRS("签号"))%>签&nbsp;
    <% if oRS("签诗")<>"第五十一签" then %>
    <%=oRS("签诗")%>
    <% end if %>
    </span>
    &nbsp;&nbsp<button class="ret" οnclick="history.go(-1);">继续查询</button><br><br><br>
    <span>卦类&nbsp;</span>&nbsp;<%=oRS("卦类")%><br>
    <span>诗曰&nbsp;</span>
     <% if len(ors("诗曰"))>18 then %>
    <%=left(ors("诗曰"),12)%><br>
    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    <%=mid(ors("诗曰"),13,len(ors("诗曰"))-12)%><br>
    <%else%>
    <%=ors("诗曰")%><br>
    <%end if%>
    <br>
    <% for i=4 to Ubound(zdm) %>
    <span><%=zdm(i)%>&nbsp;</span>
    <% if len(oRS(zdm(i)))>17 then %>
    <%=left(oRS(zdm(i)),18)%><br>
    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    <%=mid(oRS(zdm(i)),19,len(oRS(zdm(i)))-18)%><br>
    <%else%>
    <%=oRS(zdm(i))%><br>
    <%end if%>
    <% next %>
   </div>
   <div id="right"> </div>
 </p>
 </div>
<%    dbclose()
     end if
    end if
   end if %>
   </body>
</html>

liucunjian2009
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
分享一个网上的asp签到系统
01-06
2. **asoft_v 3.4 build 20101011 _绿色安装包.rar**：这是一个RAR压缩文件，通常包含系统的所有必要文件，包括ASP源代码、图片、CSS样式表、JavaScript脚本和其他支持文件。"绿色安装包"意味着它不需要复杂的安装...
asp.net制作手写签名
02-22
在ASP.NET平台上开发手写签名功能，主要是为了提供一种用户可以在网页上进行图形化签名的交互体验，这在电子商务、电子合同等领域非常...通过合理的设计和编程，我们可以创建一个高效、易用且安全的在线手写签名系统。
一个完整的asp.net mvc架构网站实例
03-13
这个实例提供了一个完整的ASP.NET MVC网站的详细结构和实现，可以帮助开发者了解和学习如何创建高效、可维护的Web应用。 **ASP.NET MVC架构** 1. **模型（Model）**：模型是应用程序的核心部分，它处理业务逻辑和...
C#写的一个很清新的留言板，有原项目
04-09
综上所述，这个“C#写的一个很清新的留言板”项目展示了C#在Web开发中的强大能力，结合了ASP.NET MVC框架、数据库操作、前端交互等多个技术层面，构建了一个高效、易用的在线交流平台。通过学习和分析这个项目，...
asp.net在线考试系统（简单、齐全、仅供学习）
03-25
在这个“asp.net在线考试系统”中，我们可以看到 ASP.NET 技术在构建一个实用的教育信息化应用中的实际应用。 SQLServer 是微软公司的关系型数据库管理系统，它为数据存储和管理提供了强大的支持。在在线考试系统中...
PPO算法，即Proximal Policy Optimization（近端策略优化）.pdf
08-05
PPO算法，即Proximal Policy Optimization（近端策略优化），是一种在强化学习领域中广泛应用的策略梯度方法。由OpenAI在2017年提出，PPO旨在解决传统策略梯度方法中策略更新过大导致的训练不稳定问题。它通过引入限制策略更新范围的机制，在保证收敛性的同时提高了算法的稳定性和效率。 一、PPO算法简介 PPO算法的核心思想是通过优化一个特定的目标函数来更新策略，但在这个过程中严格限制策略变化的幅度。具体来说，PPO引入了裁剪（Clipping）和信赖域（Trust Region）的概念，以确保策略在更新过程中不会偏离太远，从而保持训练的稳定性。 二、PPO算法的主要变体 PPO算法主要有两种变体：裁剪版（Clipped PPO）和信赖域版（Adaptive KL Penalty PPO）。其中，裁剪版PPO更为常见，它通过裁剪概率比率来限制策略更新的幅度，而信赖域版PPO则使用KL散度作为约束条件，并通过自适应调整惩罚系数来保持策略的稳定更新。PPO算法，即Proximal Policy Optimization（近端策略优化），是一种在强化学习领域中广
GC032A datasheet（侵删）
08-05
GC032A datasheet（侵删）
opencv的概要介绍与分析
08-05
OpenCV (Open Source Computer Vision Library) 是一个开源的计算机视觉和机器学习软件库。它提供了大量的算法和函数，可用于图像处理、视频分析、特征检测、对象识别等多种应用。下面是一些关于 OpenCV 的资源描述，帮助您学习和使用这项强大的技术。 ### OpenCV 资源描述 #### 1. **官方文档和GitHub仓库** - **GitHub 仓库**：OpenCV 的官方 GitHub 仓库是获取最新代码、预训练模型、开发指南和示例代码的地方。这是了解 OpenCV 最新进展和功能的最佳起点。 - **官方文档**：OpenCV 的官方文档包含了详细的使用说明、API 参考和常见问题解答。 #### 2. **在线教程和课程** - **Codecademy**：Codecademy 提供了互动式的 OpenCV 课程，适合完全的新手。 - **freeCodeCamp**：freeCodeCamp 是一个非营利性组织，提供免费的编码课程，包括 OpenCV 基础。 #### 3. **书籍** - **《Learning
基于python3+opencv3做的中国车牌识别源码+文档说明+使用说明
08-05
<项目介绍> 算法思想来自于网上资源，先使用图像边缘和车牌颜色定位车牌，再识别字符。车牌定位在predict方法中，为说明清楚，完成代码和测试后，加了很多注释，请参看源码。车牌字符识别也在predict方法中，请参看源码中的注释，需要说明的是，车牌字符识别使用的算法是opencv的SVM， opencv的SVM使用代码来自于opencv附带的sample，Stat - 不懂运行，下载完可以私聊问，可远程教学 该资源内项目源码是个人的毕设，代码都测试ok，都是运行成功后才上传资源，答辩评审平均分达到96分，放心下载使用！ 1、该资源内项目代码都经过测试运行成功，功能ok的情况下才上传的，请放心下载使用！ 2、本项目适合计算机相关专业(如计科、人工智能、通信工程、自动化、电子信息等)的在校学生、老师或者企业员工下载学习，也适合小白学习进阶，当然也可作为毕设项目、课程设计、作业、项目初期立项演示等。 3、如果基础还行，也可在此代码基础上进行修改，以实现其他功能，也可用于毕设、课设、作业等。 下载后请首先打开README.md文件（如有），仅供学习参考, 切勿用于商业用途。 --------
不同版本yolo介绍大全.pdf
08-05
YOLO（You Only Look Once）是一种流行的目标检测算法系列，自2016年由Joseph Redmon等人提出以来，已经发展出多个版本，每个版本都在性能、速度和准确性上进行了不同程度的优化和改进。以下是对不同版本YOLO的详细介绍： 1. YOLOv1 核心特点：提出了一个统一的模型，能够在单次传递中直接从完整图像预测边界框和类别概率。 优点：速度快，可以达到实时检测；在大型目标上表现较好；利用卷积神经网络提取特征并直接预测边界框和类别；损失函数简单，易于训练和调整。 缺点：精度不高，特别是对小型物体的检测能力较弱；对于相互重叠的物体，只能检测其中一个；定位误差较大；无法检测长形物体。 2. YOLOv2（也称为Darknet-19） 改进：通过使用批量归一化、多尺度锚定框以及其他优化技术，对YOLOv1进行了改进。 优点：精度和速度均有所提升，检测准确率比YOLOv1更高；使用了batch normalization技术，有助于减轻过拟合问题。 缺点：一个分类器只能检测固定数量的物体，无法处理可变数量的物体；训练和调整模型需要更多的计算资源和时间。 3.
数模数学建模数学模型下料问题数模数学建模数学模型下料问题
最新发布
08-05
数模数学建模数学模型下料问题数模数学建模数学模型下料问题
埃森哲埃森哲市场洞察分析.pdf
08-05
【埃森哲】埃森哲市场洞察分析.pdf【埃森哲】埃森哲市场洞察分析.pdf【埃森哲】埃森哲市场洞察分析.pdf【埃森哲】埃森哲市场洞察分析.pdf【埃森哲】埃森哲市场洞察分析.pdf【埃森哲】埃森哲市场洞察分析.pdf【埃森哲】埃森哲市场洞察分析.pdf【埃森哲】埃森哲市场洞察分析.pdf【埃森哲】埃森哲市场洞察分析.pdf【埃森哲】埃森哲市场洞察分析.pdf【埃森哲】埃森哲市场洞察分析.pdf【埃森哲】埃森哲市场洞察分析.pdf【埃森哲】埃森哲市场洞察分析.pdf【埃森哲】埃森哲市场洞察分析.pdf【埃森哲】埃森哲市场洞察分析.pdf【埃森哲】埃森哲市场洞察分析.pdf【埃森哲】埃森哲市场洞察分析.pdf【埃森哲】埃森哲市场洞察分析.pdf【埃森哲】埃森哲市场洞察分析.pdf【埃森哲】埃森哲市场洞察分析.pdf【埃森哲】埃森哲市场洞察分析.pdf【埃森哲】埃森哲市场洞察分析.pdf【埃森哲】埃森哲市场洞察分析.pdf【埃森哲】埃森哲市场洞察分析.pdf【埃森哲】埃森哲市场洞察分析.pdf【埃森哲】埃森哲市场洞察分析.pdf【埃森哲】埃森哲市场洞察分析.pdf【埃森哲】埃森哲市场洞察分析
校园闲置物品微信公众号交易平台的设计与实现(论文+源码)_kaic.zip
08-05
校园闲置物品微信公众号交易平台的设计与实现(论文+源码)_kaic
销售员业绩统计表.xlsx
08-05
销售管理表，财务报表，占比分析，消费能力分析，日程安排，提成表，考核表 适用人群：学习不同技术领域的小白或进阶学习者；可作为毕设项目、课程设计、大作业、工程实训或初期项目立项。
销售指标完成对比图.xlsx
08-05
销售管理表，财务报表，占比分析，消费能力分析，日程安排，提成表，考核表 适用人群：学习不同技术领域的小白或进阶学习者；可作为毕设项目、课程设计、大作业、工程实训或初期项目立项。
1111111111111111111111111111111111111111111111
08-05
1111111111111111111111111111111111111111111111
基于MATLAB谷物计数系统.zip
08-05
MATLAB可以使用形态学操作来进行图像计数。形态学操作是一种基于图像形状和结构特征的图像处理方法。 在MATLAB中，可以使用以下函数进行形态学计数： 1. imerode函数：用于图像的腐蚀操作。腐蚀可以用来检测物体的边界或减小物体的大小。 语法：B = imerode(A, se)，其中A是输入图像，se是结构元素（定义腐蚀的形状和尺寸），B是输出图像。 2. imdilate函数：用于图像的膨胀操作。膨胀可以增大物体的大小或连接物体的间隙。 语法：B = imdilate(A, se)，其中A是输入图像，se是结构元素，B是输出图像。 3. bwmorph函数：用于对二值图像进行形态学变换。 语法：B = bwmorph(A, operation)，其中A是输入图像，operation是形态学操作（如open、close、dilate等），B是输出图像。 使用这些函数可以进行一系列形态学操作，如开操作（先腐蚀后膨胀，用于去除小的物体），闭操作（先膨胀后腐蚀，用于填充物体间的空隙），连通组件分析等，从而实现图像的计数。 以下是一个示例代码，演示了如何
业绩汇总表.xlsx
08-05
销售管理表，财务报表，占比分析，消费能力分析，日程安排，提成表，考核表 适用人群：学习不同技术领域的小白或进阶学习者；可作为毕设项目、课程设计、大作业、工程实训或初期项目立项。
员工销售分析报表.xlsx
08-05
销售管理表，财务报表，占比分析，消费能力分析，日程安排，提成表，考核表 适用人群：学习不同技术领域的小白或进阶学习者；可作为毕设项目、课程设计、大作业、工程实训或初期项目立项。
用asp.net查询数据库，写个案例
07-12
当然可以！以下是一个基本的ASP.NET查询数据库的示例： 首先，确保你已经安装了ASP.NET和SQL Server，并且创建了一个数据库和一张表。 在ASP.NET页面的代码部分，你可以使用ADO.NET来连接并查询数据库。在这个示例中，我们将使用SqlConnection和SqlCommand类来实现。 ```csharp using System; using System.Data; using System.Data.SqlClient; public partial class Default : System.Web.UI.Page { protected void Page_Load(object sender, EventArgs e) { if (!IsPostBack) { // 连接数据库 string connectionString = "YourConnectionString"; // 根据你的实际情况替换为数据库连接字符串 using (SqlConnection connection = new SqlConnection(connectionString)) { // 构建SQL查询语句 string query = "SELECT * FROM YourTable"; // 根据你的实际情况替换为表名 // 打开连接并执行查询 connection.Open(); SqlCommand command = new SqlCommand(query, connection); SqlDataReader reader = command.ExecuteReader(); // 读取并显示查询结果 while (reader.Read()) { string column1Value = reader["Column1"].ToString(); // 根据你的实际情况替换为列名 string column2Value = reader["Column2"].ToString(); // 根据你的实际情况替换为列名 // 在页面上显示查询结果 Response.Write("Column1: " + column1Value + "<br/>"); Response.Write("Column2: " + column2Value + "<br/><br/>"); } // 关闭连接和读取器 reader.Close(); connection.Close(); } } } } ``` 在上面的示例中，我们通过连接字符串创建一个SqlConnection对象，并且构建一个查询语句。然后，我们打开连接，并使用SqlCommand对象执行查询，并通过SqlDataReader对象读取结果。最后，在页面上显示查询结果。 请记得根据你的实际情况替换连接字符串、表名和列名。 希望这个示例对你有帮助！如果你有任何问题，请随时提问。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值