会员登录 用户名: 密码: 登录 新会员注册 [找回密码]
当前位置:编程论坛 >> Web开发技术 >> ASP编程论坛 >> asp常用小例子具体应用改动一下吧
首页
中资源
  发表一个新主题  发表一个新投票  回复主题 您是本帖的第 1766 个阅读者浏览上一篇主题  刷新本主题   树形显示贴子 浏览下一篇主题
 * 贴子主题:asp常用小例子具体应用改动一下吧 悬赏分50 [提问中] 报告本帖给版主  显示可打印的版本  把本贴打包邮递  把本贴加入论坛收藏夹  发送本页面给朋友  把本贴加入IE收藏夹 
 小米稀饭 帅哥哟,离线,有人找我吗?
  
  
  等 级:初出江湖
  积 分:190
  专家分:0
  提问帖:1/0
  回答帖:0
  总帖数:6
  经验值:58
  注 册:2007-10-12
给小米稀饭发送一个短消息 把小米稀饭加入好友 查看小米稀饭的个人资料 搜索小米稀饭在ASP编程论坛的所有贴子 引用回复这个贴子 回复这个贴子楼主
发贴心情 

asp常用小例子具体应用改动一下吧

第一集  先发个试下
<script LANGUAGE=vbscript>
function getchar(char)
charobj=65536+asc(char)
if(charobj>=45217 and charobj<=45252) then 
getchar= "A"
elseif(charobj>=45253 and charobj<=45760) then
getchar= "B"
elseif(charobj>=45761 and charobj<=46317) then
getchar= "C"
elseif(charobj>=46318 and charobj<=46825) then
getchar= "D"
elseif(charobj>=46826 and charobj<=47009) then 
getchar= "E"
elseif(charobj>=47010 and charobj<=47296) then 
getchar= "F"
elseif(charobj>=47297 and charobj<=47613) then 
getchar= "G"
elseif(charobj>=47614 and charobj<=48118) then
getchar= "H"
elseif(charobj>=48119 and charobj<=49061) then
getchar= "J"
elseif(charobj>=49062 and charobj<=49323) then 
getchar= "K"
elseif(charobj>=49324 and charobj<=49895) then 
getchar= "L"
elseif(charobj>=49896 and charobj<=50370) then 
getchar= "M"
elseif(charobj>=50371 and charobj<=50613) then 
getchar= "N"
elseif(charobj>=50614 and charobj<=50621) then 
getchar= "O"
elseif(charobj>=50622 and charobj<=50905) then
getchar= "P"
elseif(charobj>=50906 and charobj<=51386) then 
getchar= "Q"
elseif(charobj>=51387 and charobj<=51445) then 
getchar= "R"
elseif(charobj>=51446 and charobj<=52217) then 
getchar= "S"
elseif(charobj>=52218 and charobj<=52697) then 
getchar= "T"
elseif(charobj>=52698 and charobj<=52979) then 
getchar= "W"
elseif(charobj>=52980 and charobj<=53640) then 
getchar= "X"
elseif(charobj>=53689 and charobj<=54480) then 
getchar= "Y"
elseif(charobj>=54481 and charobj<=62289) then
getchar= "Z"
else 
getchar=char
end if
end function

function getpy(str)
for i=1 to len(str)
getpy=getpy&getchar(mid(str,i,1))
next
end function

点击浏览该文件

发帖:2007-10-12 14:56:00
  鲜花(0)  鸡蛋(0)
 小米稀饭 帅哥哟,离线,有人找我吗?
  
  
  等 级:初出江湖
  积 分:190
  专家分:0
  提问帖:1/0
  回答帖:0
  总帖数:6
  经验值:58
  注 册:2007-10-12
给小米稀饭发送一个短消息 把小米稀饭加入好友 查看小米稀饭的个人资料 搜索小米稀饭在ASP编程论坛的所有贴子 引用回复这个贴子 回复这个贴子2
发贴心情 

忘了说明了 上面是自动获取汉字的拼音简码  需要这段源代码 把您的邮箱告送我 我发过去
发帖:2007-10-12 14:58:00
 小米稀饭 帅哥哟,离线,有人找我吗?
  
  
  等 级:初出江湖
  积 分:190
  专家分:0
  提问帖:1/0
  回答帖:0
  总帖数:6
  经验值:58
  注 册:2007-10-12
给小米稀饭发送一个短消息 把小米稀饭加入好友 查看小米稀饭的个人资料 搜索小米稀饭在ASP编程论坛的所有贴子 引用回复这个贴子 回复这个贴子3
发贴心情 

第二集 获取对方的ip地址
<%
if request.form("Submit")<>"" then
   username=request.form("name")
   Image=request.Form("radiobutton")
   C_username=split(application("name"),",")
   ip=request.ServerVariables("REMOTE_ADDR")
   for i=0 to Ubound(C_username)
      if username=C_username(i) then
       Call MsgBox("重名了啊,从新弄个!","login.asp") 
       response.End()
   end if
    next
application("name")=application("name")+","+username
application("Image")=application("Image")+","+Image
session("name")=username
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from iptable",conn,1,3
rs.addnew
rs("adddate")=now()
rs("ip")=request.ServerVariables("REMOTE_ADDR")
rs.update
rs.close
set rs=nothing
response.Redirect "chat.asp"
end if
%>
需要源代码 留邮箱
发帖:2007-10-12 15:09:00
 索引越界 帅哥哟,离线,有人找我吗?
  
  
  头 衔:情剩
  等 级:初级剑客
  积 分:14670
  专家分:9883
  提问帖:0/0
  回答帖:730
  总帖数:1033
  经验值:1083
  注 册:2006-11-19
给索引越界发送一个短消息 把索引越界加入好友 查看索引越界的个人资料 搜索索引越界在ASP编程论坛的所有贴子 引用回复这个贴子 回复这个贴子4
发贴心情 

不错,为什么不把源码直接上传上来呢?

和你最亲密的人因为亲密,所以会暴露出很多缺点给你。
和你很疏远的人因为疏远,所以可以有选择的展示优点。

所以,不要对身边最亲密的人要求太苛刻!
所以,更不能拿别人的优点来对比你身边最亲密的人。

发帖:2007-10-12 15:51:00
 小米稀饭 帅哥哟,离线,有人找我吗?
  
  
  等 级:初出江湖
  积 分:190
  专家分:0
  提问帖:1/0
  回答帖:0
  总帖数:6
  经验值:58
  注 册:2007-10-12
给小米稀饭发送一个短消息 把小米稀饭加入好友 查看小米稀饭的个人资料 搜索小米稀饭在ASP编程论坛的所有贴子 引用回复这个贴子 回复这个贴子5
发贴心情 

这样能多认识几个喜欢用asp的人,多弄点人气吧  如果不方便 不好意思拉  下次直接把代码弄上
发帖:2007-10-12 16:20:00
 newkedison 帅哥哟,离线,有人找我吗?
  
  
  头 衔:无聊之人
  等 级:贵宾
  积 分:7231
  专家分:3101
  提问帖:7/7
  回答帖:303
  总帖数:422
  经验值:461
  注 册:2007-7-18
给newkedison发送一个短消息 把newkedison加入好友 查看newkedison的个人资料 搜索newkedison在ASP编程论坛的所有贴子 引用回复这个贴子 回复这个贴子6
发贴心情 

路过,支持下

编程编程,不编咋成?

对于初级的程序员来说,养成良好的习惯往往比追求哪种语言/开发工具好用更有意义

发帖:2007-10-12 19:20:00
 st515832 帅哥哟,离线,有人找我吗?
  
  
  等 级:初出江湖
  积 分:205
  专家分:0
  提问帖:0/0
  回答帖:1
  总帖数:2
  经验值:54
  注 册:2007-9-5
给st515832发送一个短消息 把st515832加入好友 查看st515832的个人资料 搜索st515832在ASP编程论坛的所有贴子 引用回复这个贴子 回复这个贴子7
发贴心情 

254318522@qq.com
发帖:2007-11-5 20:09:00
 文华 美女呀,离线,快来找我吧!
  
  
  等 级:初出江湖
  积 分:165
  专家分:0
  提问帖:2/0
  回答帖:1
  总帖数:8
  经验值:69
  注 册:2007-11-7
给文华发送一个短消息 把文华加入好友 查看文华的个人资料 搜索文华在ASP编程论坛的所有贴子  引用回复这个贴子 回复这个贴子8
发贴心情 

发帖:2007-11-7 17:37:00
 gongyun08 帅哥哟,离线,有人找我吗?
  
  
  等 级:初出江湖
  积 分:220
  专家分:0
  提问帖:0/0
  回答帖:2
  总帖数:3
  经验值:53
  注 册:2007-11-7
给gongyun08发送一个短消息 把gongyun08加入好友 查看gongyun08的个人资料 搜索gongyun08在ASP编程论坛的所有贴子 引用回复这个贴子 回复这个贴子9
发贴心情 

发帖:2007-11-7 20:05:00
 星梦缘 帅哥哟,离线,有人找我吗?
  
  
  等 级:初出江湖
  积 分:210
  专家分:0
  提问帖:0/0
  回答帖:2
  总帖数:3
  经验值:54
  注 册:2007-11-11
给星梦缘发送一个短消息 把星梦缘加入好友 查看星梦缘的个人资料 搜索星梦缘在ASP编程论坛的所有贴子 引用回复这个贴子 回复这个贴子10
发贴心情 

谢谢了
发帖:2007-11-11 15:44:00

本主题贴数15,分页:[上一页] [1] [2] [下一页]
 *快速回复:asp常用小例子具体应用改动一下吧  [ 回帖是一种美德 :) ]
会员账号 用户名    还没注册?    密码    忘记密码?
内容
  • HTML标签: 不可用
  • UBB标签: 可用
  • 贴图标签: 可用
  • 多媒体标签:可用
  • 表情字符转换:可用
  • 上传图片:不可用
  • 最多15KB
  • 点击表情图即可在帖子中加入相应的表情
                                
    邮件回复 显示签名   [Ctrl+Enter直接提交贴子]

    管理选项锁定 | 解锁 | 提升 | 删除 | 移动 | 固顶 | 总固顶 | 奖励 | 惩罚 | 发布公告