Function CutStr(byVal Str,byVal StrLen)
Dim l,t,c,i
l=Len(str)
Function CutStr(byVal Str,byVal StrLen)
Dim l,t,c,i
l=Len(str)
Sub ShowMsg(byval msg,byval url)
Response.Write("")
IF url="" Then
以前在用PJ时就很欣赏WP的永久链接系统,等到自己换成WP后,突然发现我的主机空间不能正常使用WP的永久链接...
终于受不了WP的诱惑,背叛了PJ,不过现在看来,这实在时太爽了,WP的插件和主题功能很好很强大。虽然俺不懂PHP,但是用起来还是很顺手,只是不能自己开发插件和主题了,囧。
尽管升级过程中出现了好多错误,但还是OK了,现在正在制作皮肤,呵呵,已经是借用别人的。
所以现在很多地方看起来还是很不好,皮肤目前的Bug还是较多的。
如果各位访客发现有什么bug存在,希望给我留言哈,以后这个皮我准备共享出来的。
将此代码添加到父窗体cs中即可,代码中的两个数字根据实际情况改变。
如果有多个子窗体,只需要按照openMdiChileForm_Click事件调用即可。
隐藏父窗体滚动条的方法详见:http://imwls.com/article.asp?id=44