春节义务帮人写了一个《求签在线查询》(ASP)
点击: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>
<input type="hidden" value="显示" name="xs">
<input type="submit" value="点击查询" class="button">
<br><br><br><br><br>
统计:<font color=red><%=totalcount%></font> 今日:<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("签号"))%>签
<% if oRS("签诗")<>"第五十一签" then %>
<%=oRS("签诗")%>
<% end if %>
</span>
 <button class="ret" οnclick="history.go(-1);">继续查询</button><br><br><br>
<span>卦类 </span> <%=oRS("卦类")%><br>
<span>诗曰 </span>
<% if len(ors("诗曰"))>18 then %>
<%=left(ors("诗曰"),12)%><br>
<%=mid(ors("诗曰"),13,len(ors("诗曰"))-12)%><br>
<%else%>
<%=ors("诗曰")%><br>
<%end if%>
<br>
<% for i=4 to Ubound(zdm) %>
<span><%=zdm(i)%> </span>
<% if len(oRS(zdm(i)))>17 then %>
<%=left(oRS(zdm(i)),18)%><br>
<%=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>
春节义务帮人写了一个《求签在线查询》(ASP)相关推荐
- 雷观(十六):帮人写项目,不如教会别人写项目的方法
2019独角兽企业重金招聘Python工程师标准>>> 前段时间,有个潜在客户,想付钱,让我帮他写个简单的项目,最后还是被我委婉地拒绝了. 情况是这样的,这名网友还在读大学,刚来到一 ...
- 又是一年一度的高考时间了,给考生家长们推荐一个全国高校在线查询网站,以方便填报志愿
又是一年高考时,首先祝广大莘莘学子今年高考取得佳绩,春风得意马蹄疾,一日看遍长安花.接下来就是填报志愿的环节,因为全国高校众多,要想全面了解比较困难,这里看到一个全国高校在线查询网站,非常适用,特此推 ...
- 下载量高达163万的易语言牛人写的一个超牛的软件(即将删除)
引自易语言论坛"毁人不倦"贴子(http://bbs.eyuyan.com/dispbbs.asp?boardid=124&id=180180): 在华军上突然发现一个下载 ...
- 我用python,帮朋友写了一个“制作工资条”的自动化程序!
点击上方"Python爬虫与数据挖掘",进行关注 回复"书籍"即可获赠Python从入门到进阶共10本电子书 今 日 鸡 汤 白头宫女在,闲坐说玄宗. 本文说明 ...
- 3条原则,16个小点,帮你写出一个优秀的对外接口!
点击关注公众号,实用技术文章及时了解 来源:blog.csdn.net/weixin_42304845/article/ details/109305740 对外API接口设计 安全性 1.创建app ...
- 最近帮朋友写了一个百度竞价关键词快速分词(分组)工具,支持与或逻辑分组,附源码和工具下载链接...
需求很简单: 有一堆关键词(短句),需要给它们分组.分组逻辑很简单:给出一些归类词语,把包含这些归类词语的关键词归到一类. 归类词语需要支持简单的与或算术逻辑,例如"日记|博客", ...
- 之前帮朋友写的一个小工具-征途2新浪卡全自动淘号工具+按钮精灵脚本
比较简单的小工具 using System; using System.Collections.Generic; using System.ComponentModel; using System.D ...
- 收了100元辛苦费,写了一个最简单的C#ASP.NET的3层架构例子代码,源码是通过代码生成器生成的【写程序的效率神奇的高】...
为什么80%的码农都做不了架构师?>>> 有一个客户购买了代码生成器,虽然我把很多基础类库的源码及配套的源码都发给他了,但是他由于时间忙的原因,还是没自己仔细看,而是希望我以他 ...
- 自己帮别人写的网站可以公开源码吗_雷军靠写代码赚第一个 100 万,马化腾亲自写腾讯网,码农出身的大佬...
作者 | 夏弢 本文经授权转载自创业邦(ID:ichuangyebang) 一提到程序员,很多人脑海里马上会出现这些刻板标签: 可事实上,有一个词似乎更能概括: 改变世界 程序改变世界,已经有几十年了 ...
最新文章
- Linux学习总结(3)——Linux实用工具
- 20101029总结
- SqlServer 中Binary类型的数据如何转化为字符串
- Apache ZooKeeper - 集群中 Observer 的作用以及 与 Follow 的区别
- 《Docker——容器与容器云》:第五章 构建自己的容器云
- pythonnamedtuple定义类型_详解Python中namedtuple的使用
- [转] CSS 颜色名
- [记录]---mysql数据库,decimal类型设置默认值0,不要是null
- 容器编排技术 -- Kubernetes设计架构
- java代码审查工具_APP开发常用的一些工具包、软件工具
- cmake copy dll输出目录_VScode下 多文件,小工程使用cmake 速记
- Build a simple Ethereum + IPFS+ React.js DApp.
- mxnet(gluon)—— 模型、数据集、损失函数、优化子等类、接口大全
- 复杂作业车间调度-单机调度问题研究
- 计算机音乐谱魔法城堡,《魔法城堡》简谱 TFBOYS 乐谱 - 新芭网
- ADB常用命令及详解
- CH340安卓驱动使用教程
- 2022-2027年(新版)中国产权交易行业前景动态与未来发展形势报告
- 关于MMO游戏服务器从零开发基本内容介绍
- 孝感网站建设多少钱,孝感做企业网站多少钱
热门文章
- 智能网联汽车——深度学习与无人驾驶(一)
- 【代码开发】neuron_poker安装及简单使用
- python,ipython,pycharm安装
- 实验:4级流水线32bits全加器
- 在持续集成 (CI) 环境中使用 Android 模拟器 | AndroidDevSummit 中文字幕视频
- Pyecharts概览
- ImportError: attempted relative import with no known parent package
- 我有200台摄像机4MB/s,后端防火墙吞吐量多少G够用?应用层1G够用吗?
- 使用谷歌Colab(Colaboratory)免费GPU训练自己的模型及谷歌网盘无限容量(Google drive)申请教程
- SAP中如何对预制凭证,增加开户行和账户标识